word 2013 VBA / Macro崩溃

Question

Word 2013在启用注释部分的文档上运行VBA/宏时崩溃。宏搜索字符，并在注释部分和主文档中将其替换为"“(空白)。这是使用Selection.Find.Execute API完成的。当没有注释部分或没有标记被选中时，Word不会崩溃。

这是在Windows 10和word 2013上。该宏在Word 2007和Windows 7中运行良好。

可重复的步骤：

1. 用一个文本创建一个简单的文档并添加注释。
2. 插入示例注释文本如下：(垂直添加类似:a：&(输入)等) A：& B：& C：& D：& E：& F：& G：& H：& I：& J：& K：& L：& M：& N：&
3. 创建宏： 子Test_Macro() ActiveWindow.View.SplitSpecial = wdPaneComments With Selection.Find .Text =“& .Replacement.Text =”.Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False.MatchAllWordForms = False End With Selection.HomeKey unit:=wdStory如果Selection.Find.Execute = True，那么‘我们找到了斜杠。把它删掉。Selection.TypeBackspace端如果端子
4. 执行宏(&将被清除)。继续执行；Word将崩溃2-3次。(在清除所有&时，相应地更新注释文本)。

Answer 1

我在你的文本中没有看到任何问题，所以我不能回答，但我可以确认Microsoft 2013在ActiveDocument.Content.Find.Execute上崩溃。在执行宏之前，我通常需要手动执行替换对话框来解决这个问题。这几乎每次都起作用了。现在，我找到了这个职位，它说它与执行有关，运行的是一个空的撤销记录。我能够通过插入一行代码来解决这个问题，该代码在创建撤销记录之后将一些文本添加到文档的最后一段。