Olá Ricardo, O Código que estou trabalhando está postado aqui abaixo. Perceba que estou usando a opção ReplaceAll.
Você teria um código exemplo que exiba a substituição de todos. Grato, Ricardo Souza. --- Em delphi-br@yahoogrupos.com.br, Ricardo César Cardoso <ricardo_engs...@...> escreveu > > Olá chará! > > Um chute: só está substituindo uma vez, pois não parece haver um mecanismo nessa chamada que permita fazer séries de substituições. Ou então o problema é você estar trabalhando com um "Selection". Não tenho como checar mas veja se não existe um método FindAll, ou se você não pode trabalhar com algum outro objeto que não seja o Selection. Ou então passe para o Selection o documento todo (se bem que desconfio que você já esteja fazendo isso) > > Sds, > Ricardo. > > _________________________________________________________________ > > "Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!" > > --- Em dom, 4/1/09, ricshark01 <ricsh...@...> escreveu: > De: ricshark01 <ricsh...@...> > Assunto: [delphi-br] WordApplication: Função substituir textos num documento Word via Delphi > Para: delphi-br@yahoogrupos.com.br > Data: Domingo, 4 de Janeiro de 2009, 15:06 > > > > > > > > > > > > Boa tarde Pessoal, > > > > Através do meu sistema gostaria de substituir todas as tags que eu > > criei num documento padrão em Word por um outro texto. > > > > Por exemplo: > > > > a Tag <ORCAMENTO> se repete em vários pontos do meu documento e > > quando tento substituir, ele substitui só uma delas e não todas. > > > > Gostaria de saber como substituo todas. > > > > Obrigado! > > > > Segue abaixo o código que estou usando: > > > > procedure TForm1.Button1Click (Sender: TObject); > > var marquivo:OleVariant ; > > findtext, matchcase, matchwholeword, matchwildcards, > > matchsoundslike, > > matchallwordforms, Oforward, wrap, format, replacewith, > > replace: olevariant; > > //---------- ------ > > AjusteautomaticoCol unas, oleNumero, oleUnidade : oleVariant; > > Linha, Coluna : integer; > > n,numcampos : integer; > > > > begin > > marquivo:='C: \Teste.doc' ; > > WordApplication. Connect; > > WordApplication. Documents. Open > > (marquivo,EmptyPara m,EmptyParam, EmptyParam, EmptyParam, EmptyParam, Empty > > Param,EmptyParam, EmptyParam, EmptyParam) ; > > WordDocument. ConnectTo( WordApplication. ActiveDocument) ; > > > > //SUBSTITUINDO AS TAGS > > findtext := 'ORCAMENTO'; > > matchcase := false; > > matchwholeword := true; > > matchwildcards := false; > > matchsoundslike := false; > > matchallwordforms := false; > > Oforward := true; > > wrap := wdReplaceAll; > > format := false; > > replacewith := '5000001'; > > replace := true; > > > > WordApplication. Selection. Find.Execute( findtext, > > matchcase, matchwholeword, > > matchwildcards, matchsoundslike, matchallwordforms, > > Oforward, > > wrap, format, replacewith, replace); > > > > WordApplication. Visible:= True; > > end; > > > > > > > > > > > > > > > > > > > > Veja quais são os assuntos do momento no Yahoo! +Buscados > http://br.maisbuscados.yahoo.com > > [As partes desta mensagem que não continham texto foram removidas] >
