I'm using word 2000 to spell check data in vfp7 exe. My start.prg contains the following code to open word (the exit program closes word):

oWord = CREATEOBJECT([WORD.APPLICATION]) && start word
oWord.windowstate = 1 && minimize word window

oDoc = oWord.Documents.Add && create new document

and my spell check function located on the form has the code:

LPARAMETERS lcTextToCheck
WITH oDoc
.Content.TEXT = ALLTRIM(lcTextToCheck)

IF .SpellingErrors.COUNT > 0
_screen.windowstate = 1 && minimize foxpro
oWord.windowstate = 2
.CheckSpelling
oWord.windowstate = 1
_screen.windowstate = 2 && maximize foxpro
ENDIF
lcTextToCheck = SUBSTR(.Content.TEXT,1,LEN(ALLTRIM(.content.text))-1)
ENDWITH

RETURN lcTextToCheck

I am getting sporadic "error 1426 - ole error code 0x800706ba RPC server unavailble" - while the users are adding data, about every 10-12 records this error will appear.

Any ideas on how to solve this? Thanx