用于标黄交叉引用与超链接的Word宏运行过慢，该如何优化？

原有代码运行缓慢的核心问题集中在非必要的界面操作和冗余循环，完全可以通过调整操作逻辑把执行速度提升数十倍，优化后功能和原有代码完全一致。

原有代码的性能瓶颈：

• 频繁调用Select方法、使用Selection对象操作：每次选中字段都会触发Word界面重绘，大文档下该开销远大于实际逻辑运算的开销
• 逐字符遍历设置高亮：字段对应的文本是连续区域，不需要逐个字符修改属性，直接对整个区域设置即可，把N次操作压缩为1次
• 未关闭临时性能优化项：宏执行过程中Word默认的屏幕刷新、实时拼写语法校验等功能完全可以临时禁用，执行完成后再恢复，进一步降低额外开销

Sub 高亮所有交叉引用与超链接()
    Dim fld As Field
    Dim originalScreenState As Boolean
    
    ' 保存原有Word设置，方便后续恢复
    originalScreenState = Application.ScreenUpdating
    
    ' 增加错误兜底，避免设置异常导致Word卡滞
    On Error GoTo CleanUp
    
    ' 关闭非必要的运行时开销
    Application.ScreenUpdating = False
    Application.Options.CheckSpellingAsYouType = False
    Application.Options.CheckGrammarAsYouType = False
    
    ' 遍历所有字段，全程不需要选中操作
    For Each fld In ActiveDocument.Fields
        If fld.Type = wdFieldRef Or fld.Type = wdFieldHyperlink Then
            ' 直接给字段对应的连续范围设置高亮，无需逐字符循环
            fld.Range.HighlightColorIndex = wdYellow
        End If
    Next fld
    
CleanUp:
    ' 恢复原有Word设置
    Application.ScreenUpdating = originalScreenState
    Application.Options.CheckSpellingAsYouType = True
    Application.Options.CheckGrammarAsYouType = True
    
    ' 执行结果提示
    If Err.Number <> 0 Then
        MsgBox "宏执行完成，错误信息：" & Err.Description, vbExclamation
    Else
        MsgBox "已完成所有交叉引用、超链接的黄色高亮标记", vbInformation
    End If
End Sub

• 如果文档包含嵌套字段（比如超链接内部包含其他交叉引用），可以通过递归遍历嵌套的fld.Fields集合实现全量标记
• 该代码的执行速度提升幅度和文档大小正相关，万字段级的文档可以从原来的数分钟级压缩到秒级完成

内容的提问来源于stack exchange，提问作者MOHAMMED NUMAN