Erro com OleObject: WordApplication

Delphi

01/09/2008

Saudações.
Estou obtendo um erro ao executar o Replace num WordApplication. O erro é: [b:1f0d86d463]O parâmetro da seqüência de caracteres é muito longo.[/b:1f0d86d463].
Estou utilizando Office 2003. Segue o código.
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  WordApp: Variant;
  oleFile, oleFind, oleReplace, oleReplaceMode: oleVariant;
begin
  WordApp := CreateOleObject(´Word.Application´);
  { Adiciona um documento em branco }
  WordApp.Documents.Add(EmptyParam, oleFalse, EmptyParam, EmptyParam);
  { Copia o arquivo para dentro do documento }
  oleFile := ExtractFilePath(Application.ExeName)+´\Modelo.doc´;
  WordApp.Selection.InsertFile(oleFile, EmptyParam, EmptyParam, EmptyParam, oleTrue);
  oleFind    := Trim(Procurar); // [TEXTO]
  oleReplace := Trim(Substituir); // String grande, muito grande
  oleReplaceMode := wdReplaceAll;
  WordApp.Selection.Find.Execute(oleFind, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
                                   oleFalse, oleFalse, EmptyParam, oleReplace,
                                   oleReplaceMode, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  WordApp.Visible := True;
end;



Marcosrocha

Marcosrocha

Curtidas 0
POSTAR