Question

我正在尝试为Word 2016 创建一个宏，它会根据我使用过＆＃34;查找和替换＆＃34;的大约250个搜索字词列表自动编辑文档。改变的功能。当我从头到尾录制宏并尝试运行时，我收到一条消息，说明＆＃34;过程太长＆＃34; 。我在这里查看了答案并了解您可以清理一些代码和/或在代码中创建子部分以进行故障排除。但是，我不确定我在做什么，代码很长。

有人能帮帮我吗？

部分代码包含在下面：

Portion of code

Answer 1

将宏分解为步骤。最简单的方法是（使用文档的副本进行测试，因此如果出错，您可以随时将原始文本放回原位！）：

录制短宏。它的作用并不重要。将其命名为DoAllReplacements。
记录执行第一个替换块的宏。将其命名为DoReplacement1。
查看宏，然后编辑DoReplacement1宏。将注释块末尾的所有文本复制到End Sub之前的行。
将编辑插入符号（光标）放在DoReplacement1 End Sub的末尾，然后按两次输入。输入以下文本：
```
Sub DoReplacement2()

End Sub
```
将剪贴板中的代码粘贴到刚添加的Sub和End Sub行之间。编辑宏代码以执行下一个替换块。
重复上述操作，直到您对所有替换项进行编码，并根据需要使用尽可能多的新DoReplacementX例程。
返回您录制的第一个宏（DoAllReplacements），并移除Sub DoAllReplacements()和End Sub之间的所有代码。添加对您编写的各个DoReplacementX宏的新调用。
```
Sub DoAllReplacements()
    DoReplacement1
    DoReplacement2
    DoReplacement3
    ' Etc. until you've added them all
End Sub
```

退出宏代码窗口。使用View Macros，选择您的DoAllReplacements宏并执行它。

对Word 2016的大宏进行故障诊断

1 个答案: