Thomaz.. eu utilizo da seguinte forma:
procedure TDelphiWordForm.CartaBtnClick(Sender: TObject);
var
WinWord,Docs,Doc : OleVariant;
Arquivo : string;
begin
try
Arquivo := 'C:\Backup\Contrato.doc';
WinWord := CreateOleObject('Word.Application');
WinWord.visible := true; //false;
Docs := WinWord.Documents;
Doc := Docs.Open(Arquivo);
// Inicio da Substituição
// Codigo do cliente
Doc.Content.find.Execute(FindText := '[Codigo]',
ReplaceWith := CliClicod.AsString );
// Nome
Doc.Content.find.Execute(FindText := '[Nome]',
ReplaceWith := CliClinom.Value);
Doc.Content.find.Execute(FindText := '[Endereco]',
ReplaceWith := CliCliend.Value);
Doc.Content.find.Execute(FindText := '[Bairro]',
ReplaceWith := CliCliBai.Value);
Doc.Content.find.Execute(FindText := '[Estado]',
ReplaceWith := CliCliest.Value);
Doc.Content.find.Execute(FindText := '[Cep]',
ReplaceWith := CliCliCep.Value);
Doc.PrintOut(false);
WinWord.Quit(False);
except
ShowMessage('Alguns relatórios usam componentes do Word');
end;
end;
Note que neste caso eu tenho um documento já criado.. e os campos que
vou substituir estão entre [] ex: [Codigo].
Não esqueça de incluir a unit OleServer.
[]´s
Fausto
--- Em delphi-br@yahoogrupos.com.br, Thomaz Henrique Pulschen
<[EMAIL PROTECTED]> escreveu
> Pessoal,
>
> Há uma forma de inserir campos do Paradox dentro do Word: Por
exemplo: quero ter um texto feito no Word e inserir os clientes de
uma tabela Paradox para enviar uma carta para cada à partir do Word.
>
> Abraço...
>
>
> ---------------------------------
> Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador
do Yahoo! agora.
>
> [As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
