【问题背景】

对于Word文档插入内容，插入内容后存在多个换行符的情况，循环采用“Word.Selection.Find.Execute( '^p^p',0,0,0,0,0,1,1,0 , '^p',2,0,0,0,0);”可以解决问题，但对于如下情况，就陷入了死循环，无法进行替换操作

【解决方案】

通过测试，发现采用“Execute”对于文档尾部的两个换行符进行替换时是无法进行的，在Word文档中进行操作也是如此

因此，只能确定当前选中的两个换行符“^p^p”是否在文档尾部，若为尾部则采用删除的方式处理

【相关代码】

  a = Word.Selection.Find.Execute( '^p^p' ); 

if a==1

     if strcmp(CurrentLabel,'^p^p')==1 && ... % 选中的是文档末尾的两个换行符

            Word.Selection.Range.End == Word.ActiveDocument.Content.End

             Word.Selection.Delete; % 删除

      else

             Word.Selection.Find.Execute( '^p^p',0,0,0,0,0,1,1,0 , '^p',2,0,0,0,0); % 一般情况正常替换

     end

end