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
