oWord=CREATEOBJECT('word.application')-Rick
oDocument = oWord.documents.OPEN('c:\qcf19.doc')
oWord.VISIBLE=.T.
oSelection = oWord.Selection
#DEFINE wdLine 5
with oSelection
.MoveDown(wdLine,1)
.TypeParagraph
.TypeParagraph
.MoveUp(wdLine,2)
.InsertDateTime("MMMM d, yyyy",.f.)
.TypeParagraph
.Typeparagraph
.TypeText (l_address) && Macro expansion not necessary here
endwith
oWord=CREATEOBJECT('word.application')The application object contains the documents collection, which you can use to open a document as you're doing in your second line of code.
<b>oWord</b>=CREATEOBJECT('word.document') >>>><b>oDocument = oWord</b>.documents.OPEN('c:\qcf19.doc') >>>><b>oWord</b>.VISIBLE=.T. >>>> >>>>oRange = <b>o</b>Document.selection.range()>>>>
oWord=CREATEOBJECT('word.document') >>>oDocument = oWord.documents.OPEN('c:\qcf19.doc') >>>oWord.VISIBLE=.T. >>>oRange = oDocument.selection.range() >>>#DEFINE wdLine 5 >>> >>>with oRange >>>.MoveDown(wdLine,1) >>>.TypeParagraph >>>.TypeParagraph >>>.MoveUp(wdLine,2) >>>.InsertDateTime("MMMM d, yyyy",.f.) >>>.TypeParagraph >>>.Typeparagraph >>>.TypeText (&l_address) >>>endwith>>>