Utilizando a classe TWord, é possivel prender a execução do sistema ao fechamento do arquivo aberto ?
private hWord
hWord :=TWord():New() // inicia o objeto OLE Word
if hWord:IsVisible()
hWord:Hide()
endif
hWord:OpenDoc( cModelo ) // abre o documento modelo
for x:=1 to len( aCampos )
hWord:Replace( '['+aCampos[x,1]+']' , aCampos[x,2] )
next
hWord:Save(CAMIFO)
hWord:visualizar()
só continuar a execução do sistema se
documento word for fechado.
Aoki
FWH25+XHARBOUR 99.50