优化：保持行距不变保留切换按钮

dafanshu1

weiyingde 发表于 2017-4-2 20:28
呵呵，有三四个qq待加，因为不明身份，我没加，能把你的qq给我吗？我加你的。

我加你的时候都i注明是excelhome论坛网友的，我的Q号是452820843。

weiyingde

总觉还可简化和提速，看看附件中的一个过程的代码：
目的：将“（    ）"括号的内容隐藏
说明：括号内有的是拼音，有的是汉字。
问题：1、能否用定界符，准确定位括号内的内容？
      2、能否用”|“选择符来限定括号内要选择的内容用：（汉字|拼音）的形式
     来简化过程
其他，若是融进主体代码中也可以。
附件如下;
Sub 测试()
With ActiveDocument.Content
        .Font.ColorIndex = wdBlack
        With .Find
            .Replacement.Font.ColorIndex = IIf(Me.CommandButton1.Caption = "测试", 8, 1)
            .Execute "(\([!^1-^127]@)\)", , , 1, , , , , 1, , 2 '匹配拼音
        End With
        With .Find
            .Replacement.Font.ColorIndex = IIf(Me.CommandButton1.Caption = "测试", 8, 1)
            .Execute "\(([!^13]@)\)", , , 1, , , , , 1, , 2 '匹配拼音\([!^13]@\)
        End With
        With .Find
            .Replacement.Font.ColorIndex = 1
            .Execute "[\(\)]@", , , 1, , , , , 1, , 2 '匹配拼音\([!^13]@\)
        End With
End With
End Sub
今天我利用?:进行精确定位，简化为以下代码，为什么没有效果，而且弹出了毛病对话框
请大虾为我指指路，简化代码如下：
Sub 测试()
With ActiveDocument.Content
        .Font.ColorIndex = wdBlack
        With .Find
            .Replacement.Font.ColorIndex = IIf(Me.CommandButton1.Caption = "测试", 8, 1)
            .Execute "(?:(\)([!^1-^127]@|[!^13]@)(?:\))", , , 1, , , , , 1, , 2
        End With
End With
End Sub

weiyingde

dafanshu1 发表于 2017-4-2 22:47
我加你的时候都i注明是excelhome论坛网友的，我的Q号是452820843。

问一个word查找合体换的问题：
查找框中：(?{1,})\1
替换框中：\1

两个框中的\1，怎么不好理解。

dafanshu1

weiyingde 发表于 2017-4-6 18:15
问一个word查找合体换的问题：
查找框中：(?{1,})\1
替换框中：\1

不好意思，最近工作太忙，未研究你之前的问题呢。
\1都是代表查找框中第一个括号的内容。

weiyingde

dafanshu1 发表于 2017-4-7 10:44
不好意思，最近工作太忙，未研究你之前的问题呢。
\1都是代表查找框中第一个括号的内容。

\1这样这种写法好像是这样的：
（1）出现的地方是：替换框中。
（2）作用是：捕获查找框中第一个括号的内容或表达式。
我的理解是：既有捕获作用，另外还有替代作用；
可是出现在查找框中，就匪夷所思了：难道自己替代自己吗？
另外比喻说，有这样几行程序代码：

Sub 删除连续的重复段落和不连续的重复段落()
With ActiveDocument.Content.Find
     .Execute "(?{1,})\1", , , 1, , , , , , "\1", 2
End With
End Sub
查找中红色\1，指的是本框的"(?{1,})“，而替换框中蓝色的\1,不是也能表示前面的"(?{1,})吗？
这样说，查找中红色\1的指代，岂不多此一举？删除之后，不也能很清楚的表达吗？
还有：
.Execute "(?{1,})\1", , , 1, , , , , , "^&", 2
.Execute "(?{1,})\1", , , 1, , , , , , "\1", 2
这样量的表达有什么不同？

weiyingde

简化代码，自己解决，是第一段自己解决的有关查找的第一例，发出以作纪念，并方便别人。
代码如下：
Sub 显示括号及号外内容同时隐藏号内内容()
With ActiveDocument.Content
   .Font.ColorIndex = 1
   With .Find
     .Replacement.Font.Bold = True
     .Execute "(\(*\))", , , 1, , , , , , "^&", 2
   End With
End With
With ActiveDocument.Content.Find
.Font.Bold = True
.Font.Size = 10.5
.Format = True
.Replacement.Font.ColorIndex = IIf(Me.CommandButton1.Caption = "测试", 8, 1)
.Replacement.Font.Bold = False
.Execute "[!\(\)]", , , 1, , , , , , "^&", 2
End With
End Sub

dafanshu1

weiyingde 发表于 2017-4-7 11:45
\1这样这种写法好像是这样的：
（1）出现的地方是：替换框中。
（2）作用是：捕获查找框中第一个括号的 ...

查找框(?{1,})\1是表示要查找连续两个(?{1,})放在一起的内容，相当于查找(?{1,}){2}，而替换框为\1，表示将查找到的连续两个(?{1,})替换成1个(?{1,})。
至于替换框为^&，表示将查找到的内容替换为查找框的内容，这就是自己替代自己了, 即替换后原文本内容不变。

weiyingde

dafanshu1 发表于 2017-4-7 22:51
查找框(?{1,})\1是表示要查找连续两个(?{1,})放在一起的内容，相当于查找(?{1,}){2}，而替换框为\1，表示 ...

终于懂了，谢谢你的讲解。学习有你，一路轻松！！

13907933959

dafanshu1 发表于 2017-4-7 22:51
查找框(?{1,})\1是表示要查找连续两个(?{1,})放在一起的内容，相当于查找(?{1,}){2}，而替换框为\1，表示 ...

前辈好！

我理解为，在“替换为”框内， ^& 与 \1，意思都是“替换的内容不变”。区别在于：^& 指的是“格式”（字体、字号、字形、颜色…等），而 \1 指的是“字符”。

不知对不对？请修正！

jiminyanyan

weiyingde 发表于 2017-4-3 11:33
总觉还可简化和提速，看看附件中的一个过程的代码：
目的：将“（    ）"括号的内容隐藏
说明：括号内有 ...

?:应是用在正则表达式中吧．．．．．．