Word 宏非常慢

Question

我刚开始使用宏这个词。我在识别 word 文档中的所有交叉引用和超链接时遇到问题。我正在使用宏来解决这个问题

我写的宏是

For Each fld In ActiveDocument.Fields
If fld.Type = wdFieldRef Or fld.Type = wdFieldHyperlink Then
    fld.Select
    For Each ch In Selection.Characters
        ch.HighlightColorIndex = wdYellow
    Next
End If
Next

这是我写的宏，它按预期工作，但速度太慢，我无法使用它。

必须有一种有效的方法来解决这个问题。如果是，请告诉我-how.Any 参考网站以便我参考也可以。

谢谢

Answer 1

禁用屏幕更新并尽可能避免选择任何内容。例如：

Sub Demo()
Application.ScreenUpdating = False
Dim Fld As Field
For Each Fld In ActiveDocument.Fields
  With Fld
    Select Case .Type
      Case wdFieldRef, wdFieldPageRef, wdFieldHyperlink
        .Result.HighlightColorIndex = wdYellow
    End Select
  End With
Next
Application.ScreenUpdating = True
End Sub

Word 宏非常慢

Word macros are painfully slow

vba

ms-word