.Wrap = wdFindContinue和=1;Replace:=wdReplaceAll 和=2有什么区别?

weiyingde

doitbest 发表于 2017-4-6 20:02
wdReplaceAll    2    替换所有匹配项。   
wdReplaceNone    0    不替换任何匹配项。   
wdReplaceOn ...

向你请教一个问题：
Sub 隐藏括号内容但不隐藏括号()'
   With ActiveDocument.Content
        With .Find
            .Replacement.Font.ColorIndex = 8
            .Execute "(\(*\))", , , 1, , , , , , "\1", 2
        End With
        With .Find
            .Replacement.Font.ColorIndex = 1
            .Execute "[\(\)]@", , , 1, , , , , 1, , 2
        End With
End With
End Sub
问题：
1、一起运行时，却不现实括号。并将第一个前括号删除了。
2、将第一套with……end with 的代码转为注释，方才显示括号？
请问为什么？
附件见http://club.excelhome.net/thread-1335783-4-1.html
32楼，期待你的指点。谢谢了

doitbest

weiyingde 发表于 2017-4-6 20:48
向你请教一个问题：
Sub 隐藏括号内容但不隐藏括号()'
   With ActiveDocument.Content

Sub 隐藏括号内容但不隐藏括号() '
   With ActiveDocument.Content
        With .Find
            .Replacement.Font.ColorIndex = 8
            .Execute "(\(*\))", , , 1, , , , , , "\1", 2
        End With
        With .Find
            .Replacement.Font.ColorIndex = 1
            .Execute "[\(\)]@", , , 1, , , , , 1, "^&", 2
        End With
End With
End Sub

weiyingde

doitbest 发表于 2017-4-6 21:48
Sub 隐藏括号内容但不隐藏括号() '
   With ActiveDocument.Content
        With .Find

很好，很管用，谢谢！！
能否详细说说"^&"的用法吗？
作为一个大侠和过来人，在office组件（word、excel、ppt）替换和正则学习过程中，你有什么经验和宝贵的资料，能分享一下吗?

weiyingde

doitbest 发表于 2017-4-6 21:48
Sub 隐藏括号内容但不隐藏括号() '
   With ActiveDocument.Content
        With .Find

这个问题在优化中出了问题，代码如下：
Sub 显示括号及号外内容同时隐藏号内内容() '
   With ActiveDocument.Content
        With .Find
            .Replacement.Font.ColorIndex = IIf(Me.CommandButton1.Caption = "测试", 8, 1)
            .Execute "(\(*\))", , , 1, , , , , , "\1", 2
        End With
        With .Find
            .Replacement.Font.ColorIndex = 1
            .Execute "([\)]{1}*[\(]{1})", , , 1, , , , , 1, "^&", 2
        End With
        With .Find
            .Replacement.Font.ColorIndex = 1
            .Execute "([\)]{1}*)", , , 1, , , , , 1, "^&", 2
        End With
End With
End Sub
附件同上。
问题是：第一个词语前括号及号外内容没有显示，不知为何。
大侠看看，再次期待你的回复和指导。

liuchust

我也是单步调试时，发现wdReplaceAll 为空值，而论坛上下载的一个例子，同样是wdReplaceAll 但是单步调试是为2，搜索wdReplaceAll搜在楼主的帖子。把wdReplaceAll替换成2，的确可以替换成功，虽然不知道为什么。感谢楼主。

ffarseer

小花鹿 发表于 2016-7-17 11:59
如果是前期引用应该是可以的，不用改的

我遇到了类似的问题，能否大概讲讲如果是后期引用怎么改？

Excel2119

doitbest 发表于 2017-4-6 20:02
wdReplaceAll    2    替换所有匹配项。   
wdReplaceNone    0    不替换任何匹配项。   
wdReplaceOn ...

终于搞懂了，感谢

思而学CPA梁

谢谢。真是好人。

mythqiu

记号，学习了