delphi+word处理报表的问题

[espp]

让Word替换标记字符串要使用WordDocument.Range.Find.Execute
下面的例子中用“Delphi”替换了“VB”：
var
FindText, MatchCase, MatchWholeWord, MatchWildcards, MatchSoundsLike,
MatchAllWordForms, Forward, Wrap, Format, ReplaceWith, Replace: OleVariant;
begin
FindText := 'VB';
MatchCase := False;
MatchWholeWord := True;
MatchWildcards := False;
MatchSoundsLike := False;
MatchAllWordForms := False;
Forward := True;
Wrap := wdFindContinue;
Format := False;
ReplaceWith := 'Delphi';
Replace := True;

WordDocument.Range.Find.Execute( FindText, MatchCase, MatchWholeWord,
MatchWildcards, MatchSoundsLike, MatchAllWordForms, Forward,
Wrap, Format, ReplaceWith, Replace );
上面的代码是替代word中特定字符的，但是word替代的时候是有字数限制的，好像是500个字符，超出之后会出错，不知道有没有什么设置可以改掉这个限制

[程序小童的爸爸]

想想有没有其它的变通，要想去掉可能比较难。

[智商无下限]

好像没有办法突破WORD的限制

[espp]

我哭阿，那不是要重新来过阿，我程序都基本结束了。。楼上的几位大哥，能不能帮忙想个办法，我现在是长度过大的话我是拆分的，但是在拆分汉字过程中，如果汉字被半个截断，就出现乱码的情况了，能不能智能判断不截断半个汉字。。