【求助】计算在选区内查找到的内容在整篇文档中的实际位置

batmanbbs

求助，在选区内（例如图b-p区间）使用VBS正则查找内容，查找到的内容第一个字符在整篇文档中的位置，以及查找到的内容在整篇文档中的起止位置。如果都是文字很好处理，难点在于文档中有形状和表格（表格甚至有嵌套）。



Sub RealPos()


    Dim oRegEx As Object, myMatches As Object, myMatch As Object
    Set oRegEx = CreateObject("VBSCRIPT.REGEXP")

    With oRegEx
        .Pattern = regex ' regex：要在选区内查找的内容
        .IgnoreCase = False
        .MultiLine = False
        .Global = True
        Set myMatches = .Execute(Selection.Range.Text) ' 在选区（Selection）内查找
    End With

    For Each myMatch In myMatches
        
        '如何获得用正则查找在选区内查找的内容的第一个字符在整个文档位置
        '以及查找内容在整个文档中的起始位置（rngstart=起始位置，rngEnd=结束位置）
        
        MsgBox ActiveDocument.Characters(pos) ' pos :选区内查找到内容的第一个字符在整个文档中的位置？
        
        MsgBox ActiveDocument.Range(Start:=rngstart, End:=rngEnd) ' rngStart :选区内查找的内容在整个文档中的起始位置
   
    Next

End Sub