Gerando arquivos .doc
define var ch-Word as component-handle no-undo.
define var ch-Documento as component-handle no-undo.
define var ch-FormField as component-handle no-undo.
define var ch-Range as component-handle no-undo.
Create “Word.Application” ch-Word.
ch-Word:ScreenUpdating = yes.
ch-Word:WindowState = 1.
ch-Word:Visible = yes.
ch-Word:System:Cursor = 0.
ch-Documento = ch-Word:Documents:Add(“c:\temp\pro_word.doc”).
ch-word:Selection:Font:Bold = true.
ch-word:Selection:TypeText(” http://www.4each.com.br/ “).
ch-word:Selection:Font:Bold = false.
ch-word:Selection:TypeText(” Progress na Web!!!”).
ch-Word:System:Cursor = 1.
release object ch-Documento.release object ch-Word.
Obs: O arquivo pro_word.doc já deve existir no diretório, o programa irá abri-lo e preencher conforme os comandos.
Para mudar de página
ch-app-word:SELECTION:EndKey(6). /* Posiciona cursor no final do arquivo */
ch-app-word:SELECTION:InsertBreak(7). /* Qubra pagina antes de inserir arquivo */