单词2013年VBA /宏崩溃

Question

在启用了注释部分的文档上运行VBA /宏时，Word 2013崩溃。 宏搜索一个字符并用注释部分和主文档中的“”（空白）替换它。 这是使用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. 创建宏：

    Sub 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 If Selection.Find.Execute = True Then 'We found the slash. Delete it. Selection.TypeBackspace End If End Sub 

4. 执行宏（ &将被清除）。 继续执行; Word将在10次中崩溃2-3次。（相应地更新注释文本，当清除所有& s时）。

Answer 1

我没有在您的文本中看到问题，因此我无法回答，但我可以确认Microsoft Word 2013在ActiveDocument.Content.Find.Execute崩溃。 我通常不得不通过在执行宏之前手动执行“替换”对话框来解决此问题。 这几乎每次都有效。 现在我发现这篇帖子说它与使用空的撤销记录运行的Execute有关。 我能够通过插入一行代码来解决这个问题，该代码行在创建撤销记录后立即将一些文本添加到文档的最后一段。