在有控件的文档中，正则如何精准锚定目标位置？

weiyingde

lss001 发表于 2024-8-25 08:45
\r回车
"(^解析[^\r]*)([A-D](?:(?![A-D\r]).)*)\r"
$结束

在正则中回车和结束符有没有差别？

weiyingde

已经岔开了本帖的原始问题，请大侠回到一楼，巧施援手，释疑解难。

weiyingde

lss001 发表于 2024-8-24 22:27
'经过计算控件所占长度为35个字节
    ph = ydoc.Paragraphs(1)
    Set wt = ph.Words(ph.Words.Count ...

这种处理，貌似可以，经过测试，还是不行……

lss001

weiyingde 发表于 2024-8-25 09:55
这种处理，貌似可以，经过测试，还是不行……

'根据你的要求控件修改为替换成空字符→""

Sub 要求匹配解析捕获四个()
    Dim mt, mk, oRng As Range, n&, m&
    Dim str$, tt$, arr() As Range, x%
    Dim rg As Range, dic As Object, k&
   
    Set ydoc = ThisDocument
    Set dic = CreateObject("Scripting.Dictionary")
    osr = ydoc.Content
    '************************
    ph = ydoc.Paragraphs(1)
    Set wt = ph.Words(ph.Words.Count - 1)
    r = wt.End - wt.Start
    s = 4 '控件2+回车2
    '*************************
    str = Replace(Replace(osr, Chr(7), ""), Chr(1), "")
    With CreateObject("vbscript.regexp")
        .Global = True
        .Ignorecase = False
        .MultiLine = True
        .Pattern = "(^解析\s*)([A-D].*?)([A-D].*?)([A-D].*?)$"
        For Each mt In .Execute(str)
            m = mt.FirstIndex + s + r: n = mt.Length - s
            'm = mt.FirstIndex: n = mt.Length
            Set oRng = ydoc.Range(m, m + n)
        Next
    End With

End Sub

lss001

weiyingde 发表于 2024-8-25 09:45
在正则中回车和结束符有没有差别？

看下正则参考链接36楼有讲到\r与$的区别
https://club.excelhome.net/forum.php?mod=viewthread&tid=1128647&extra=page%3D1&mobile=2&_dsign=bca982a8

weiyingde

lss001 发表于 2024-8-25 10:54
看下正则参考链接36楼有讲到\r与$的区别
https://club.excelhome.net/forum.php?mod=viewthread&tid=112 ...

好的，谢谢提醒。

weiyingde

lss001 发表于 2024-8-25 10:32
'根据你的要求控件修改为替换成空字符→""

Sub 要求匹配解析捕获四个()

过程不能正常运行，改了一下，添加了红色字符。
Sub 要求匹配解析捕获四个2()
    Dim mt, mk, oRng As Range, n&, m&
    Dim str$, tt$, arr() As Range, x%
    Dim rg As Range, dic As Object, k&, ph As Paragraph
   
    Set Ydoc = ThisDocument
    Set dic = CreateObject("Scripting.Dictionary")
    osr = Ydoc.Content
    Set wdoc = ActiveDocument
    '************************
   
    Set ph = wdoc.Paragraphs(1)
    Set wt = ph.Range.Words(ph.Range.Words.Count - 1)
    r = wt.End - wt.Start
    s = 3 '控件终止符1+回车符2
    '*************************
    str = Replace(Replace(osr, Chr(7), ""), Chr(1), 0)
    With CreateObject("vbscript.regexp")
        .Global = True
        .Ignorecase = False
        .MultiLine = True
        .Pattern = "(^解析\s*)([A-D].*?){3}$"
        For Each mt In .Execute(str)
            '文档有控件时使用
            'm = mt.FirstIndex + r + s: n = mt.Length - s
            m = mt.FirstIndex: n = mt.Length
            Set oRng = Ydoc.Range(m, m + n)
            MsgBox oRng
        Next
    End With
End Sub
不能达到预期效果。请测试附件

lss001

可能是版本不同

lss001

lss001 发表于 2024-8-26 12:55
可能是版本不同，
word365版本段落不需要声明为对象，
也不需要Range对象

根据上楼分析
大概有以下四种解决方案
一加上控件所占用的字节数
二替换后新建文档对象
三InlineShape控件转换为Shape控件
四移动控件位置到文档最后

lss001

lss001 发表于 2024-8-26 12:55
可能是版本不同，
word365版本段落不需要声明为对象，
也不需要Range对象

当然了还有一种推荐方案
取值时直接取正则匹配结果
不使用原对象
取整体→mt.Value
子匹配→mt.SubMatches(i)