Create CURSOR curNomes (Codigo I, Nome C(30)) Insert into curNomes values (1, "Geraldo") Insert into curNomes values (2, "Fernandes") Insert into curNomes values (3, "Barbosa") *** *** lcHTML = "" lcHTML = lcHTML + "<html>" + chr(13) lcHTML = lcHTML + "<body>" + chr(13) lcHTML = lcHTML + "<table>" + chr(13) Scan lcHTML = lcHTML + "<tr>" lcHTML = lcHTML + "<td style='font-family=arial' width=50%>" + Transform(Codigo) + "</td>" lcHTML = lcHTML + "<td style='font-family=arial' width=50%>" + Nome + "</td>" lcHTML = lcHTML + "</tr>" EndScan lcHTML = lcHTML + "</table>" + chr(13) lcHTML = lcHTML + "</html>" + chr(13) *** StrToFile(lcHTML, FullPath(Sys(2003)) + "\Teste.HTM") oleHTML = createobject("internetExplorer.application") oleHTML.navigate(FullPath(Sys(2003)) + "\Teste.HTM") oleHTML.visible=.T. *** StrToFile(lcHTML, "Teste.DOC") loWord = CreateObject("Word.Application") loWord.Documents.Add("Teste.DOC") loWord.Visible = .T.