替换Word内容的时候如何突破500字符的限制

在操作Word时经常会采用这样的方法：在Word里插入特殊字符串，例如[$FindStr$],然后用查找替换的方式将数据库中的内容插入到Word。这样存在一个问题：如果替换的字符串大于500（大约）个字符，那么就会出现“字符串参量过长”的错误。
这时，用下面的方法代替查找替换的方法：
//ReplaceStr是将要插入的内容
WordApplication.Options.ReplaceSelection := True;
WordApplication.Selection.Find.ClearFormatting;
WordApplication.Selection.Find.Text :=[$FindStr$];
WordApplication.Selection.Find.Replacement.Text :='';
WordApplication.Selection.Find.Forward := True;
WordApplication.Selection.Find.Wrap := wdFindContinue;
WordApplication.Selection.Find.Format := false;
WordApplication.Selection.Find.MatchCase := false;
WordApplication.Selection.Find.MatchWholeWord := false;
WordApplication.Selection.Find.MatchByte := True;
WordApplication.Selection.Find.MatchWildcards := false;
WordApplication.Selection.Find.MatchSoundsLike := false;
WordApplication.Selection.Find.MatchAllWordForms := false;
WordApplication.Selection.Find.Execute(EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
WordApplication.Selection.TypeText(ReplaceStr);