Valeu, Fausto. Funcionou perfeitamente.
Muito obrigado.
Thomaz .
-Mensagem original-
De: faustofrca [mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 8 de março de 2005 06:47
Para: delphi-br@yahoogrupos.com.br
Assunto: [Norton AntiSpam] [delphi-br] Re: Link Word / Paradox
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]
Yahoo! Grupos, um serviço oferecido por:
http://br.rd.yahoo.com/SIG=12ant91l0/M=264379.5078783.6203979.1588051/D=brc
lubs/S=2137111264:HM/EXP=1110362059/A=2191897/R=0/SIG=10vqa2grn/*http://br.d
iversao.yahoo.com/
http://br.rd.yahoo.com/SIG=12ant91l0/M=264379.5078783.6203979.1588051/D=brc
lubs/S=2137111264:HM/EXP=1110362059/A=2191897/R=1/SIG=10vqa2grn/*http://br.d
iversao.yahoo.com/
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília
_
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]
mailto:[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! http://br.yahoo.com/info/utos.html .
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 266.6.2 - Release Date: 04/03/05
[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