Fórum Substituir texto no Word dentro de uma Caixa de Texto. #382411

Olá.
Tenho uma aplicação usando Delphi2007, onde tenho um modelo de proposta de venda feito no word, minha aplicação lê esse modelo e gera um novo doc substituindo algumas TAGS.
Este modelo o próprio usuário cria. Sendo que ele possui a lista de TAGS disponíveis.
Estava tudo funcionando muito bem, até que um determinado usuário resolveu incluir algumas TAGS dentro de uma caixa de texto para melhor posiciona-las.
Acontece que dentro desta caixa de texto, a TAG não é substituída.
Basicamente o código que estou usando é o seguinte:

procedure TfrmImpProposta.GerarDoc(ArquivoOriginal, ArquivoNovo: String);
var
  WinWord, docs : Variant;
begin
  WinWord  := CreateOleObject('Word.Application');
  Docs    := WinWord.Documents;
  Docs    := WinWord.Documents.Open(ArquivoOriginal);
  Docs.Content.Find.Execute(FindText    := '',
                            ReplaceWith := 'Claudia');
  Docs.SaveAs(ArquivoNovo);
  WinWord.Visible:= true;
end;

Se alguém puder me ajudar ficaria muito grata.

Cláudia