如何高效检查Word选中区域每行首非空白字符是否为Courier New？

你的代码效率偏低主要是因为频繁做字符串裁剪、手动遍历查找首非空白字符，以及多次操作Range对象触发Word对象模型的重复交互。下面是更高效的实现方式，利用Word自带的Find功能直接定位目标字符，减少不必要的操作：

Dim para As Paragraph
Dim findRange As Range
Dim firstNonBlank As Range

' 临时关闭后台更新，大幅提升运行速度
Application.ScreenUpdating = False
Application.Options.CheckSpellingAsYouType = False
Application.Options.CheckGrammarAsYouType = False

For Each para In Selection.Range.Paragraphs
    Set findRange = para.Range.Duplicate
    ' 缩小查找范围，排除段落标记
    findRange.End = findRange.End - 1
    
    ' 用Find功能直接定位第一个非空白字符
    With findRange.Find
        .ClearFormatting
        .Text = "[! ]" ' 通配符匹配非空格字符
        .Forward = True
        .Wrap = wdFindStop
        .MatchWildcards = True
        
        If .Execute Then
            Set firstNonBlank = findRange.Duplicate
            ' 检查字体是否为Courier New
            If firstNonBlank.Font.Name = "Courier New" Then
                ' 在这里处理该行（示例：设置背景色）
                para.Range.Shading.BackgroundPatternColor = wdColorGray25
            End If
        End If
    End With
Next para

' 恢复原有系统设置
Application.ScreenUpdating = True
Application.Options.CheckSpellingAsYouType = True
Application.Options.CheckGrammarAsYouType = True

核心优化点： #

• 用Find替代手动遍历：通过通配符[! ]直接定位首非空白字符，避免字符串操作的额外开销。
• 减少对象交互次数：每次仅操作当前段落的Range对象，避免重复创建和修改Range的冗余操作。
• 关闭后台干扰：临时关闭屏幕刷新、拼写检查等后台功能，消除这些操作对代码运行速度的影响。

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