怎样避免按钮等控件影响正则表达式的准确匹配

weiyingde

我有一段代码，要求匹配和提取各题的选枝。代码如下
Public Function 录入选枝(Odoc As Document)
    Dim mt, mk, oRng As Range, n&, m&, str$, tt$, arr() As Range 'arr()不申明也没关系
    Dim rg As Range, x%, dic As Object, k&, a
    Set dic = CreateObject("Scripting.Dictionary")
    osr = Odoc.Content.Text 'Osr=ActiveDocument.Content
    str = Replace(osr, Chr(7), "")
    With CreateObject("vbscript.regexp")
        .Global = True: .Ignorecase = False: .MultiLine = True
        .Pattern = "((?!\))^[A-D][\.．][^\r]+\r)+(?!解析[\r]+\r)"
        For Each mt In .Execute(str)
            Nb = Nb + 1
            ft = mt.FirstIndex
            lh = mt.Length
            Set oRng = Odoc.Range(ft, ft + lh)
            Set dic(mt) = oRng.FormattedText
            ReDim Preserve arr(1 To Nb)
            Set arr(Nb) = oRng.FormattedText
        Next
    End With
tm = dic.Items
'录入选枝 = arr
录入选枝 = tm
End Function

Sub 写入选枝()
Dim Odoc As Document
Set Odoc = ActiveDocument
For Each isr In 录入选枝(Odoc)
    asr = asr & isr
Next
Documents.Add.Content = asr
End Sub

代码的意图是，用正则匹配和提取选枝，然后生成新文档。
我提供了两个测试文档。
文档1没有按钮，正则能正常运行，文档2有按钮，不能，为什么？
请大侠支招，怎样才能避免干扰，是这段程序能正常运行。

weiyingde

测试3,直接匹配，不通过文档字符的位置来获取相应文本的话，可以实现。
Sub 录入选() '(Odoc As Document)
    Dim mt, mk, oRng As Range, n&, m&, str$, tt$, arr() As Range 'arr()不申明也没关系
    Dim rg As Range, x%, dic As Object, k&, a
    Set dic = CreateObject("Scripting.Dictionary")
    Osr = ActiveDocument.Content
    str = Replace(Osr, Chr(7), "")
    With CreateObject("vbscript.regexp")
        .Global = True: .Ignorecase = False: .MultiLine = True
        .Pattern = "((?!\))^[A-D][\.．][^\r]+\r)+(?!解析[\r]+\r)"
        For Each mt In .Execute(str)
         MsgBox mt
        Next
    End With
End Sub

这再次说明，源文档中有按钮等控件的存在，会影响到正则所匹配的文本的精准定位。
结论：嵌入式控件，一定会当字符串，作为文档的一部分。以致正则已经匹配了正确字符串，在word定位时，由于嵌入式空间的存在，影响了正则所锚定的目标字符首尾位置的精准定位。
我们在消除表格对文档所带来的影响用Replace(ActiveDocument.Content, Chr(7), ""),那么对于控件的影响，能否借用一下？若如此，又该如何表达呢？

weiyingde

有大侠路过吗，请搭把手指教指教！先谢了。

lss001

weiyingde 发表于 2024-8-23 18:22
有大侠路过吗，请搭把手指教指教！先谢了。

以下这句代码有问题
str = Replace(osr, Chr(7), "")
是否应该是写成如下
str = Replace(Replace(osr, Chr(7), 0), Chr(1), 0)

weiyingde

lss001 发表于 2024-8-23 19:05
以下这句代码有问题
str = Replace(osr, Chr(7), "")
是否应该是写成如下

谢谢指教，解决问题。为什么“0”却没有统计在字符数之列。

lss001

weiyingde 发表于 2024-8-23 19:24
谢谢指教，解决问题。为什么“0”却没有统计在字符数之列。

解决方案，请参考参考一下楼上更正代码

weiyingde

lss001 发表于 2024-8-23 19:30
解决方案，请参考参考一下楼上更正代码

好的，谢谢你，还是懵懵懂懂的接受了

weiyingde

lss001 发表于 2024-8-23 19:30
解决方案，请参考参考一下楼上更正代码

chr(1)是什么呢？百度没查出来，用msgbox chr(1)显示的好像是个小方框。请问到底是什么？

lss001

weiyingde 发表于 2024-8-23 20:02
好的，谢谢你，还是懵懵懂懂的接受了

主要是Asc与Chr的转换问题
这样说应该是清楚了

weiyingde

lss001 发表于 2024-8-23 20:08
主要是Ascii与Chr的转换问题
这样说应该是清楚了

chr(7)是指表格，chr(1)是不是按钮呢？