Using Access 97 I open Winword with the following code:

......
lngApplicationID = Shell("" & MyPath & "\winword.exe", 1)
AppActivate lngApplicationID
.....

Afterwords I want to create a new document:

.....
Set objObject1 = Documents.Add(Template:=MyTemplate)
.....

Sometimes I get the Error Message "The RPC Server is Unavailable", but
sometimes it works. Does someone have experiences with this problem?

Thanks in advance,
El Barto