oWord=createobject("Word.Application") if isnull(oWord) return endif owdok=oword.documents.add(gLocalWorkSpace + "REKLA.DOT") owdok.formfields("NAME").range.text=KOPF.Liefer1 oword.visible=.T. owdok.saveas((mTempFolder) + "\" + alltrim(Thisform.Text1.value))In This example you need a word template called "Rekla.Dot" and a formfield