Trabalhando com Word

Olá pessoal,

Hoje vamos voltar a falar sobre geração de arquivos em Progress 4GL mas dessa vez como criar um arquivo do Word.

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().

Se quisermos que o arquivo seja mostrado durante  a execução do programa usamos:

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.

Conheça o Blog de Progress http:\\progressetecnologia.blogspot.com

Abraços e até o próximo artigo.