操作 word 文件的问题，worddocument1.range.find.execute 提示字符串参数过长(200分)

操作 word 文件的问题，worddocument1.range.find.execute 提示字符串参数过长
主要是要替换的内容指数太多引起的，不知如何解决？有没有其他的办法？
//直接字符替换
worddocument1.range.find.execute(findtext, matchcase, matchwholeword, matchwildcards,matchsoundslike, matchallwordforms, forward_, wrap, format_t, replacewith, replace, matchkashida, matchdiacritics, matchalefhamza,matchcontrol);

try
wordapp.Selection.Find.ClearFormatting ;
wordapp.Selection.Find.Replacement.ClearFormatting ;
wordapp.Selection.Find.Text := docText ;
wordapp.Selection.Find.Replacement.Text := newText ;
wordapp.Selection.Find.Forward := True ;
wordapp.Selection.Find.Wrap := wdFindContinue;
wordapp.Selection.Find.Format := False;
wordapp.Selection.Find.MatchCase := False;
wordapp.Selection.Find.MatchWholeWord := False;
wordapp.Selection.Find.MatchByte := False;
wordapp.Selection.Find.MatchWildcards := False;
wordapp.Selection.Find.MatchSoundsLike := False;
wordapp.Selection.Find.MatchAllWordForms := False;
wordapp.Selection.Find.Execute(Replace:=wdReplaceAll);
except
try
wordapp.Selection.Find.ClearFormatting;
wordapp.Selection.Find.Text := docText ;
wordapp.Selection.Find.Replacement.Text := '';
wordapp.Selection.Find.Forward := True ;
wordapp.Selection.Find.Wrap := wdFindContinue ;
wordapp.Selection.Find.Format := False ;
wordapp.Selection.Find.MatchCase := False ;
wordapp.Selection.Find.MatchWholeWord := False ;
wordapp.Selection.Find.MatchByte := False;
wordapp.Selection.Find.MatchWildcards := False ;
wordapp.Selection.Find.MatchSoundsLike := False ;
wordapp.Selection.Find.MatchAllWordForms := False ;
while wordapp.Selection.Find.Execute do
wordapp.Selection.TypeText(Text:=newText);
except
end;
end

executeold 少了4个参数：）
不过偶用 execut 很正常的 这样
Find.Execute(FindText,
MatchCase,MatchWholeWord,MatchWildcards,MatchSoundsLike,
MatchAllWordForms,Forward,Wrap,Format, ReplaceWith,Replace,
MatchKashida,MatchDiacritics,MatchAlefHamza,MatchControl)

去掉语法检查。。。
var
wordapp:TWordApplication;
------------------------------------
wordapp.Options.CheckGrammarAsYouType:=false; //不检查语法错误
wordapp.Options.CheckSpellingAsYouType:=false; //不检查拼写错误
wordapp.Options.CheckGrammarWithSpelling:=false; //不用拼写检查语法错误