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: "Vinicius Mommensohn" <[EMAIL PROTECTED]> To: "Delphi-br" <[EMAIL PROTECTED]> Sent: Monday, November 15, 2004 10:41 PM Subject: [delphi-br] Trocar texto do Word em caixas de texto Boa noite pessoal, Eu tenho um documento do word, que contem alguns textos que estão em caixas de texto (e não no corpo normal do texto). O que acontece é que eu preciso trocar esses textos pelo próprio delphi. Mas a função de troca de texto normal não funciona!!! Li alguma coisa sobre StoreRanges mas todos os exemplos que peguei naum deram certo!! Alguem sabe como eu posso fazer isso!??!!? Preciso entregar isso amanha, as 8 da manha! :/ Agradeço a ajuda de todos! []s Vinicius [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 -- <<<<< 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
