WORD COM DELPHI

Delphi

01/03/2009

Boa tarde Pessoal !

Tenho uma aplicação que precisa preencher um documento word com algumas tags já informadas. Conforme abaixo :

WinWord := CreateOleObject(´Word.Application´);
WinWord.Visible := true;
Docs := WinWord.Documents;
vPathDoc := ExtractFilePath(Application.ExeName);
Doc := Docs.Open(vPathDoc+´Acordo.doc´); // Abre um arquivo .doc modelo com as tags.
Doc.Content.Find.Execute(FindText := ´<Texto>´, ReplaceWith := strTexto); // procura pela tag <Text> e substitui


Porém se o texto for maior que 255 caracacter ocorre uma exceção.
Como fazer para acionar textos maiores ?
[b:192ec64c4c]
Desde já agradeço
[]s[/b:192ec64c4c]


Wmaciel

Wmaciel

Curtidas 0
POSTAR