如何通过关键词定义文档范围并仅对范围内文本执行格式化操作？

直接通过Range和Find方法精准定位目标区间，无需使用Select或批量替换，示例代码如下：

Sub FormatBetweenStrings()
    Dim doc As Document
    Dim startRange As Range, endRange As Range
    Dim targetRange As Range
    Dim startText As String, endText As String
    
    ' 定义起始与结束标记文本
    startText = "text string a"
    endText = "text string z"
    
    Set doc = ActiveDocument
    
    ' 查找起始标记位置
    Set startRange = doc.Content
    With startRange.Find
        .Text = startText
        .MatchCase = True ' 按需设置是否区分大小写
        .MatchWholeWord = False ' 按需设置是否匹配整词
        .Execute
        If Not .Found Then
            MsgBox "未找到起始标记：" & startText
            Exit Sub
        End If
    End With
    
    ' 从起始标记之后查找结束标记位置
    Set endRange = doc.Range(startRange.End, doc.Content.End)
    With endRange.Find
        .Text = endText
        .MatchCase = True
        .MatchWholeWord = False
        .Execute
        If Not .Found Then
            MsgBox "未找到结束标记：" & endText
            Exit Sub
        End If
    End With
    
    ' 构建目标范围（若需包含起始/结束标记，可改为startRange.Start到endRange.End）
    Set targetRange = doc.Range(startRange.End, endRange.Start)
    
    ' 对目标范围应用格式示例
    With targetRange
        ' 设置字体格式
        .Font.Color = wdColorRed
        .Font.Bold = True
        ' 设置段落格式
        .ParagraphFormat.LeftIndent = CentimetersToPoints(1)
        .ParagraphFormat.SpaceAfter = 12
        ' 可添加任意其他格式操作
    End With
End Sub

关键说明 #

1. 精准定位：先找到起始标记的位置，再从该位置之后查找结束标记，避免匹配到无关的标记实例
2. 范围灵活调整：若需要包含起始/结束标记本身，修改targetRange的起始和结束参数即可
3. 高效无选择：全程无需使用Select，大幅提升长文档处理速度
4. 自由格式操作：在With targetRange代码块中可执行任意Word对象模型支持的格式设置，不限于替换操作

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