Leitura de arquivo do Word

[MarceloHirata 0]

Olá Pessoal! :)

 

Preciso ler um arquivo do word e dentro desse arquivo tenho que modificar alguns dados.

 

Situação: O Cliente digita um texto padronizado no word e deixa alguns marcadores igual a mala direta. Tenho que abrir esse arquivo do word para poder "mesclar" os dados do formulário para depois ser impresso.

 

Por favor, se alguém souber como abrir um arquivo do word dentro do delphi e ler o texto, mande uma resposta...

 

Urgentíssimo!!! http://forum.imasters.com.br/public/style_emoticons/default/cry.gif

 

Obrigado!! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[MarceloHirata 0]

Olá pessoal, agora pouco acabei de postar essa dúvida e já achei uma resposta.

Vai aih pra quem estiver precisando..Compartilhando conhecimentos... http://forum.imasters.com.br/public/style_emoticons/default/yes.gif

 

Neste exemplo a baixo que estou mostrando, ele vai abrir um documento, realizar uma alteração, salvar, imprimir e sair do Word:

 

var

WinWord, Docs, Doc: Variant;

begin

// Cria objeto principal de controle

WinWord := CreateOleObject('Word.Application');

// Mostra o Word

WinWord.Visible := true;

// Pega uma interface para o objeto que manipula documentos

Docs := WinWord.Documents;

// Abre um Documento

Doc := Docs.Open('c:\Ramos.doc');

// Substitui texto via "name parameters"

Doc.Content.Find.Execute(FindText := 'Ramos grita pelas ruas!!', ReplaceWith := 'Ramos gritava pelas ruas!!');

// Grava documento

Doc.SaveAs('c:\Ramos2.doc');

// Imprime

Doc.PrintOut(false);

// Fecha o Word

WinWord.Quit;

end;

 

Para que não apareça o Word neste exemplo, basta que no WinWord.Visible := true. você coloque false.

 

Falow moçada.

 

Marcelo Hirata