Desenvolvi um módulo que varre uma tabela formando uma StringHTML.
Com a StringHTML formada, posso dar um StrToFile formando um ArquivoHTML que pode ser acessado pelos navegadores. Até aqui, sem pânico.
O que ocorre é que, na hora de dar o StrToFile, ao invés de gerar um
ArquivoHTML estou gerando um ArquivoDOC
StrToFile(lcHTML, "Teste.DOC").
Aqui, na minha máquina, Office2000 tudo funciona bem - o Word é aberto e é apresentado o documento bonitinho.
Porém, num cliente meu, Office97, no Word, ao invés de aparecer o ducumento formatado aparecem os códigos HTML. O que posso fazer?
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.
