Progress x Word

[Claide Matheus]

Boa Tarde Grupo,

 

Alguém  teria um exemplo de codigo para manipulação de arquivo Word (Abertura, Alteração e Gravação)?

 

Abraços

 

Claide

[Eduardo Brito]

Olá,

Segue um mini-tuto, fonte: http://progressetecnologia.blogspot.com/2007/04/trabalhando-com-word.html

Caso consiga algum material por favor me passe.

Abraços.

Trabalhando com Word

Neste artigo vamos mostrar como criar um documento do word usando Progress 4GL é bem parecido com a maneira de se criar planilhas do excel.

1- Comandos para criação do arquivo

A primeira coisa que temos que fazer é criar o documento:
CREATE "Word.Application" AppWord.

Acima criamos uma instância do aplicativo word agora vamos criar um documento: AppWord:Documents:ADD().

Dependendo da situação, podemos precisar que o arquivo seja mostrado na tela enquanto é gerado, para isso alteramos a propriedade abaixo:
AppWord:visible = YES.

Para pularmos uma linha utilizamos o seguinte comando
Appword:Selection:TypeParagraph.

Para alterarmos o tipo de fonte e o tamanho utilizamos os seguinte comandos:
Appword:Selection:Font:Name = "Arial Narrow" .
Appword:Selection:Font:Size = 12.
Appword:Selection:Font:Bold = true.

Agora vamos escrever o famoso Olá Mundo.
Appword:Selection:TypeText(‘Ola Mundo’).

2- Salvando o Arquivo e liberando o processo

Para Salvar como o documento usa-se o comando:
Appword:ActiveDocument:SaveAs("c:\Progressetecnoligia.doc").

E pra terminar, para fechar a planilha usamos:
Appword:ActiveDocument:Close.
Appword:Quit().
release object appWord.

Att.
Eduardo C. de Brito

---

Date: Fri, 29 Jan 2010 12:28:26 -0300
Subject: Progress x Word
From: cla...@gmail.com
To: Progre...@googlegroups.com

--
Você está recebendo esta mensagem porque se inscreveu no grupo "Progress - 4GL" dos Grupos do Google.
Para postar neste grupo, envie um e-mail para progre...@googlegroups.com.
Para cancelar a inscrição nesse grupo, envie um e-mail para progress_4gl...@googlegroups.com.
Para obter mais opções, visite esse grupo em http://groups.google.com/group/progress_4gl?hl=pt-BR.

---

O Pedro tem 25 Gb grátis de armazenamento na web. Quer também? Clique aqui.

[Sidival Nascimento]

Bom dia Claide,

 

        To te mandando um exemplo espero que te ajude.

 

Sem mais,

Sidival

--
Sem Mais
Sidival F. Nascimento
Analista de Sistemas
Laos Consultoria em Informatica LTDA.