在等待一些代码运行时，我偶然发现了一些有趣的事情。
Code runs slow... press Esc code runs fast. Example:
对我来说这毫无意义。事实证明其他人也注意到了类似的行为，例如：
暂停 VBA 并重新运行它会导致执行速度更快
http://www.vbforums.com/showthread.php?490446-ESC-key-while-running-macros
https://www.excelforum.com/excel-programming-vba-macros/617300-vba-code-runs-slow-until-i-push-esc.html
And they have found various solutions or workarounds. However, these posts are for MS-Excel; which it seems has different behavior for the Esc key.
In MS-Excel pressing the Esc key can (depending on the setting of Application.EnableCancleKey) interrupt code or raise an error (Err 18), or do nothing. On the other hand in MS Word no such thing happens, instead Application.EnableCancleKey alters the behavior of Ctrl + Pause. Yet despite this, pressing the Esc speeds up the code execution dramatically.
除了这种差异之外，我的问题更多地与用户窗体中的代码放置有关。例如在我的用户表单中：
Private Sub Cmd_Click()
Module1.Macro1
Module1.Macro2
Module1.Macro3
End Sub
在 64 位版本的 Word 2010 上测试，使用上面的结构明显比这个慢：
用户表单：
Private Sub Cmd_Click()
Module1.RunMacro123
End Sub
标准模块：
Private Sub RunMacro123()
Module1.Macro1
Module1.Macro2
Module1.Macro3
End Sub
我应该注意以下几点：
On a side note, in a hair-brained attempt at being clever I tried using sendKeys to send the Esc key but it has no affect.
我最终使用计时器函数来计时代码，我已经实现了一个堆栈类，该类是从这里改编的：http://www.tek-tips.com/viewthread.cfm?qid=1468970
我添加了一个“绝对”计时器（debug.print timer - startTime）到调用堆栈，以便记录每次推送之间的时间并重置计时器（startTime = timer）在每次弹出。这样做可以使在 NotePad++ 中比较时间变得更容易
这使我能够确定将样式应用于文档的子程序花费了约 0.04 秒的时间来应用样式（计时器返回的 NB 值 = 午夜过后的秒数）。
The image below shows an example of the code timing results. Basically, as far as I can tell, the delay in code execution comes from many incremental delays all associated with the same basic task.
由于计时器与调用堆栈的工作方式，我必须测试代码getStyleElement以确保它不会对加时赛产生重大影响。我通过直接对代码计时来做到这一点，并能够确认它的运行速度始终很快。
检查其余代码确认问题出在applyStyleFormat（这称为getStyleElement).
样式应用于文档 - 代码结构包括 With 块和 For 循环；像这样的东西：
For i = 1 to Styles.Count
With aDocument.Styles(i)
.Font.??? = Something
' or .Paragraph.??? = Something
End With
Next i
I'm no clearer as to why the code runs faster from outside of the userform, or after pressing Esc but it does and it seems to have something to do with modifying styles...
只是在@Florent Bs 评论上拉动线程，您是否尝试过在单击事件中运行宏之前查看可以禁用的内容？像
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'code
Module1.Macro1
Module1.Macro2
Module1.Macro3
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
只是为了看看事情是否更快？可能还有其他命令可以取消人们可以添加的其他内容。