Hi Della,

The do some stuff is using bookmarks to put some data into the template. The user prints it, then closes the template and word then goes back to the VFP application.

Thanks

>John,
>
>I just tried this code, and I'm not seeing the same thing you're seeing. I don't get an OLE error on the second proc. It may be related to the "do some stuff" code. What, specifically, is the OLE error message?
>
> - della
>
>>I have noticed that when I use the Word spell checker I need to shut it down differently than when I create a document in Word. To make sure I get rid of the winword in the task manager I do the following.
>

>* Spell checking
>>oWord = CreateObject("Word.Application")
>>IF oWord.CheckSpelling(oedtQuote.Value) = .F.
>>  WITH oWord
>>    .Documents.add
>>    .Selection.TypeText(oedtNotes.Value)
>>    .Visible = .T.
>>    .WindowState = 0
>>    .Options.CheckGrammarWithSpelling = nchkGrammar
>>    .Options.IgnoreUpperCase = nchkIgnoreCase
>>    .Options.IgnoreMixedDigits = nchkIgnoreNumber
>>    .Options.IgnoreInternetAndFileAddresses = nchkIgnoreInternet
>>    .CustomDictionaries.ActiveCustomDictionary = ;
>>      .CustomDictionaries(ThisForm.PageFrame1.Page5.lstDictionaries.ListItemID)
>>    IF nchkGrammar
>>      .Activedocument.CheckGrammar
>>    ELSE
>>      .Activedocument.CheckSpelling
>>    ENDIF
>>    .Selection.WholeStory
>>    oedtNotes.Value = .Selection.Text
>>    .ActiveDocument.Close(0)
>>    .Visible = .F.
>>  ENDWITH
>>ENDIF
>>oWord.Quit()
>>oWord = .NULL.
>>RELEASE oWord
>>* create a document on a word template
>>oWord = CreateObject("Word.Application")
>>oDoc = .Documents.Open(lcTemplate)
>>... Do some stuff
>>oWord.Visible = .T.
>>oWord.WindowState = 0
>>oDoc = .NULL.
>>RELEASE oDoc
>>oWord = .NULL.
>>RELEASE oWord

>>
>>If I do a oWord.Quit() in the second example I get an ole error. No biggie just thought I'd pass this along...