MUDAR TEXTO DENTRO DAS CAIXAS DE TEXTO EM WORD

USUARIO.EXCLUIDOS 05/06/2007 17:12:40
#219895
Galera,

Eu tenho o seguinte código para formatar relatorios em word:
 
[c]Private Sub Troca(Header As String, data As String)
On Error Resume Next

With objWord.Selection.Find
.ClearFormatting
.Text = Header
.Execute Forward:=True
End With

Clipboard.Clear
Clipboard.SetText (data)
objWord.Selection.Paste
Clipboard.Clear

End Sub

[/c]

O código para chamar o procedimento é o seguinte:

Call Troca("@ref", TxtRef.Text)


Ou seja, ela vai ao documento word, onde está @ref vai substituir pela caixa de texto TxtRef.Text, isto funciona direitinho. O que não funciona é se o @ref estiver dentro de uma caixa de texto, aí ele não acha a palavra e não faz a troca.

Alguém sabe como resolver essa questão?

@ Microsoft Word 2007
RODRIGOGBGOMES 05/06/2007 19:06:34
#219915
deixa eu ver se entendi.... se o "@ref" estiver dentro de campo de um formulario do word. é isso?
USUARIO.EXCLUIDOS 05/06/2007 19:31:00
#219918
DE UMA OLHADA NO LINK ABAIXO...PODE TE AJUDAR

http://www.macoratti.net/vbwdrpt.htm


USUARIO.EXCLUIDOS 06/06/2007 03:02:32
#219934
Rodrigo é isso, se o @ref estiver dentro de um campo de um formulário do word ele não troca.
USUARIO.EXCLUIDOS 06/06/2007 10:00:49
#219971
Outra "descoberta" que eu fiz foi que se o texto a mudar estiver em um cabeçalho e em rodapé, o procedimento tb não funciona.
Alguem sabe maneira de arranjar isso?
Tópico encerrado , respostas não são mais permitidas