关于WORD替换内容字符超长问题

Question

   oWord.Selection.Find.ClearFormatting();
   oWord.Selection.Find.Text = ordword;
   oWord.Selection.Find.Replacement.ClearFormatting();
   oWord.Selection.Find.Replacement.Text = newword;//长度过长时会报错
            
   oWord.Selection.Find.Execute(ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref replaceAll, ref oMissing, ref oMissing, ref oMissing, ref oMissing);   用下方法时，WORD格式就不对了
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);大家看看有什么办法 

Answer 1

用插入的方法试试， 可以多次插入。