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://progressetecnologia.blogspot.com/index.html ").
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.
2 comentários:
Muito bom!!!
Usei e realmente funcionou.
Existe algum comando para dar um "PAGE" no Word, isto é, pular para próxima folha.
grato?
ch-app-word:SELECTION:EndKey(6). /* Posiciona cursor no final do arquivo */
ch-app-word:SELECTION:InsertBreak(7). /* Qubra pagina antes de inserir arquivo */
Postar um comentário