LOCAL oWord,ix oWord = Createobject("Word.Application") With oWord .Documents.Open( getfile("DOC") ) && open your word doc with formfields in it .Visible = .T. .Activate With .ActiveDocument * Get For ix = 1 To .FormFields.Count ? .FormFields(m.ix).Name,.FormFields(m.ix).Result Endfor * Set .FormFields("Text1").Result = "My Text" && assuming these form fields exist .FormFields("Check1").Checkbox.Value = .T. .FormFields("DropDown1").Result = "My DD" && auto added if not in list For ix = 1 To .FormFields.Count ? .FormFields(m.ix).Name,.FormFields(m.ix).Result Endfor Endwith EndwithCetin