>* 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>>>