在Word VBA中查找字号之间的文本

Sub FindTextBetweenFontSizes()
    Dim startRange As Range
    Dim endRange As Range
    Dim searchRange As Range
    Dim startFontSize As Integer
    Dim endFontSize As Integer
    
    ' 设置开始和结束字号
    startFontSize = 12
    endFontSize = 16
    
    ' 设置搜索范围为整个文档
    Set searchRange = ActiveDocument.Content
    
    ' 初始化开始范围
    Set startRange = searchRange.Duplicate
    
    ' 循环查找符合条件的文本
    Do While startRange.Find.Font.Size <> startFontSize And startRange.Find.Font.Size <> endFontSize
        If Not startRange.Find.Execute(FindText:="", MatchCase:=False, MatchWholeWord:=False, Forward:=True) Then
            Exit Sub
        End If
    Loop
    
    ' 初始化结束范围
    Set endRange = startRange.Duplicate
    
    ' 循环查找符合条件的文本
    Do While endRange.Find.Font.Size <> startFontSize And endRange.Find.Font.Size <> endFontSize
        If Not endRange.Find.Execute(FindText:="", MatchCase:=False, MatchWholeWord:=False, Forward:=False) Then
            Exit Sub
        End If
    Loop
    
    ' 选中找到的文本
    searchRange.SetRange startRange.Start, endRange.End
    searchRange.Select
End Sub