PAGUE 6 MESES
LEVE 12 MESES
GARANTIR DESCONTO

Fórum WORD COM DELPHI #368742

01/03/2009

0

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

Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar