[delphi-br] Find and Replace no Word (TextBox/Caixa de Texto/Rodape/Cabecalho)

Sun, 10 Feb 2008 15:54:51 -0800 

Ola pessoal,

   To precisando fazer um find and replace em documentos word.  Estou
usando a seguinte funcao:

  DocWord.Content.find.Execute('texto1', EmptyParam, EmptyParam,
EmptyParam, EmptyParam,   EmptyParam, EmptyParam, EmptyParam,
EmptyParam,
                               'Texto2', wdReplaceAll, EmptyParam,
EmptyParam, EmptyParam, EmptyParam);

   Funciona perfeitamente em documentos mais simples, porem se o texto
a ser substituido estiver em uma caixa de texto ou cabecalho/rodape nao
funciona.

   Pesquisei na net e dizia ter q pesquisar nos "shapes", vi alguns
exemplos mas todos em VB e nao consegui implementar em delphi.  Segue um
link de exemplo:

http://www.vbforums.com/archive/index.php/t-444139.html

   Caso alguem tenha implementado ou possa dar alguma dica serah muito bem
vinda.

Obrigado

William Rocha

Responder a