Adapte as suas necessidades.
procedure TForm1.BitBtn1Click(Sender: TObject); var Texto :WideString; formato : Word; Data : THandle; Palette: HPALETTE; tudo:string; begin //Inicializando o Word //Insira um componente TWordApplication e utilize o codigo: W.Connect; W.Visible := True; //Abrindo um documento em branco no Word: //Insira um objeto TWordDocument, e execute o metodo NewInstance: WD.Activate; //Exibe o aplicativo Word (não e necessario) WD.NewInstance; //Cria um novo documento //Inserindo texto no final do arquivo: Texto := 'WorkShop Delphi 5 Novos Eecursos' +chr(13)+chr(10)+ 'www.clubedelphi.com.br'; WD.Content.InsertAfter(texto); //Substituindo uma palavra: //Neste caso, a palavra de indice 2 sera substituida pela string Borland Delphi. WD.Words.Item(2).Text:= 'Borland Delphi'; //Alterando a formatação de uma palavra: //Insira um objeto TWordFont e um TWordDocument. Em seguida, digite o codigo: WF.ConnectTo(WD.Content.Font); WF.Bold:=1; WF.Italic:=1; texto:= #13+'ui ui'; WD.Content.InsertAfter(texto); //o texto sera inserido com a formatacao negrito e italico //Inserindo texto no meio de um arquivo : Texto:= '(Clube Delphi)'; WD.Words.Item(2).InsertAfter(texto); //Este comando ira inserir a string 'Clube Delphi' apos a Segunda palavra //Inserindo uma figura dentro do arquivo: Image1.Picture.SaveToClipBoardFormat(Formato,Data,Palette); //copia o conteudo do objeto image para o clipboard //WD.content wd.content+ wd.content.Paste; wd.content; //é todo o que contem no documento showmessage(tudo); //cola a area de transferencia dentro do documento} end; WD.CONTENT.TEXT:= stringreplace(wd.Content.Text,'DELPHI','TROCOU',[rfReplaceAll, rfIgnoreCase]); Espero ter ajudado. ----- Original Message ----- From: "Anderson de Oliveira Furtilho - BR3" <[EMAIL PROTECTED]> To: <delphi-br@yahoogrupos.com.br> Sent: Thursday, January 27, 2005 4:26 PM Subject: [delphi-br] Localizar e Alterar Saudações amigos!!! Alguém saberia me dar uma dica de como posso localizar uma determinada palavra dentro de um arquivo do Word e Substituí-la por outra. Qualquer dica ficarei agradecido!!! Um forte abraço a todos Anderson Furtilho [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 -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.7.2 - Release Date: 21/01/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.7.2 - Release Date: 21/01/2005 -- <<<<< 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