Hi

One easy way to do this is add Word bookmarks in each place you want to add text and save the document as a template then you can run code like this:

oWord= createobject("word.application")
oWord.Options.ReplaceSelection = .t. && Replace selection

* Create a new document based on the template

oDocument = oWord.Documents.add("template.dot")

setvalue(oDocument, "Name", "Mr A Person")
setvalue(oDocument, "Add1", "1 North Lane")
setvalue(oDocument, "Town", "Atown")
setvalue(oDocument, "County", "Surrey")
setvalue(oDocument, "LetterDate", cdow(date()) + " " + dmy(date()))
setvalue(oDocument, "Signatory", "Mr Banana")

* Save, print, whichever

procedure setvalue(oDocument, cBookmark, cValue)

oBookmark = oDocument.Bookmarks(cBookmark)
oBookmark.select
oDocument.application.selection.TypeText(cValue)

endproc