Qual word que vc usa? Esses componentes da palheta Automation foram feitos
pra word 97, pode ter mudado a sintaxe do comando em versoes novas do word,
recomendo que vc leia o help do VBA do Word instalado na sua maquina e
confira se os parametros sao os mesmos
[]´s
Rodrigo O. Farias
----- Original Message -----
From: Eduardo Gomes
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, March 29, 2005 10:21 AM
Subject: [delphi-br] Como substituir strings no Word?
Bom dia pessoal,
Estou com um problema ao tentar substituir strings no Word. Tenho o código
abaixo que quando executa a linha "WordDocument.Range.Find.Execute" gera uma
exceção com a seguinte mensagem: "The stub received bad data."
Este código funcionava para um sistema antigo, mas agora nada está
funcionando... Estou precisando de uma dica e/ou um tutorial falando dos
componentes TWordDocument e TWordApplication...
Alguém pode me ajudar? Desde já agradeço a atenção...
//-------------------------------------------------------------------------
procedure TLaudo.ReplaceAll(FindText, ReplaceWith: String);
var
xFindText, xMatchCase, xMatchWholeWord, xMatchWildCards, xMatchSoundsLike,
xMatchAllWordForms, xForward, xWrap, xFormat, xReplaceWith, xReplace,
xMatchKashida, xMatchDiacritics, xMatchAlefHamza, xMatchControl:
OleVariant;
begin
xFindText := FindText;
xMatchCase := False;
xMatchWholeWord := True;
xMatchWildCards := False;
xMatchSoundsLike := False;
xMatchAllWordForms := False;
xForward := True;
xWrap := wdFindStop;
xFormat := False;
xReplaceWith := ReplaceWith;
xReplace := True;
while WordDocument.Range.Find.Execute(
xFindText, xMatchCase, xMatchWholeWord,
xMatchWildCards, xMatchSoundsLike, xMatchAllWordForms, xForward,
xWrap, xFormat, xReplaceWith, xReplace, xMatchKashida,
xMatchDiacritics, xMatchAlefHamza, xMatchControl) do ;
end;
//-------------------------------------------------------------------------
---------------------------------
Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador 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:
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 Termos do Serviço do
Yahoo!.
--
<<<<< 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
