求你一帮：老眼昏花？一段简单代码也有问题！

weiyingde

效果见文档
请大侠一看。
Sub 加下划线()
With ActiveDocument.Content
     With .Find
          With .Replacement
               .Font.Underline = wdUnderlineWavy
               .Font.ColorIndex = wdBlack
          End With
          .Execute "(：[!^13]@\()", , , 1, , , , , "^&", 2
     End With
     With .Find
          With .Replacement
               .Font.Underline = wdUnderlineNone
               .Font.ColorIndex = wdBlack
          End With
          .Execute "(：|\()", , , 1, , , , , "^&", 2
     End With
End With
End Sub

weiyingde

再次求助，希望大侠出手。

gbgbxgb

试试如下代码：

1. Sub the_Test()
   
2.     Dim reg As Object, theStr$
   
3.     Dim theMatches As Object, theSubMatch As Variant
   
4.     Dim theStart&, theEnd&, theFirstIndex&
   
5.     Dim rng As Range
   
6.     '
   
7.     Set reg = CreateObject("VBScript.RegExp")
   
8.     With reg
   
9.         .Global = True
   
10.         .Pattern = "默写：[^(]+"
    
11.     End With
    
12.     With ActiveDocument
    
13.         theStr = .Content
    
14.         If reg.test(theStr) Then
    
15.             Set theMatches = reg.Execute(theStr)
    
16.             For Each theSubMatch In theMatches
    
17.                 theFirstIndex = theSubMatch.firstindex
    
18.                 theStart = theFirstIndex + 3
    
19.                 theEnd = theStart + Len(theSubMatch) - 3
    
20.                 With .Range(theStart, theEnd).Font
    
21.                     If .Underline = wdUnderlineWavy Then
    
22.                         .Underline = wdUnderlineNone
    
23.                     Else
    
24.                         .Underline = wdUnderlineWavy
    
25.                     End If
    
26.                     If .ColorIndex = wdBlack Then
    
27.                         .ColorIndex = wdAuto
    
28.                     Else
    
29.                         .ColorIndex = wdBlack
    
30.                     End If
    
31.                 End With
    
32.             Next theSubMatch
    
33.         End If
    
34.     End With
    
35.     Set theMatches = Nothing
    
36.     Set reg = Nothing
    
37. End Sub
    

复制代码

weiyingde

gbgbxgb 发表于 2019-7-25 21:47
试试如下代码：

谢谢你，你用正则解决，很好。我的那个简单代码，不知问题出在哪里，能帮我看看嘛？

413191246se

* gbgbxgb 老师 的代码运行了，很好！
* 魏老师，我发现你在替换操作时（简写），“1”后面少写了一个逗号（,）。前面是 3 个逗，后面是 6 个逗。
* 另外，查找时半角括号要用中括号括上，如([(])。
* 还有，查找替换设置格式时，是无法舍弃前/后字符的，还是用 VBA 语句，如：.MoveStart/.MoveEnd 来取舍才好。——这个“.MoveEnd”方法，希望 魏老师 认真学习一下，非常有好处。
* 下面是我的代码：

1. Sub a经典代码_查找_通用_ActiveDocument_加粗_下划线()
   
2.     With ActiveDocument.Content.Find
   
3.         .ClearFormatting
   
4.         .Text = "：*\("
   
5.         .Forward = True
   
6.         .MatchWildcards = True
   
7.         Do While .Execute
   
8.             With .Parent
   
9.                 .MoveStart
   
10.                 .MoveEnd 1, -1
    
11.                 With .Font
    
12.                     .Bold = True
    
13.                     .Color = wdColorRed '红色
    
14.                     .Underline = wdUnderlineWavy
    
15.                 End With
    
16.                 .Start = .End
    
17.             End With
    
18.         Loop
    
19.     End With
    
20. End Sub

复制代码

weiyingde

413191246se 发表于 2019-8-2 00:20
* gbgbxgb 老师 的代码运行了，很好！
* 魏老师，我发现你在替换操作时（简写），“1”后面少写了一个逗 ...

谢谢你的帮助和指点，我最近比较忙，很少逛论坛。
你说的很有道理。带我有功夫，再来嚼一嚼，到时不懂的还是要请教你。

413191246se

魏老师 又会数组，又会正则，我很羡慕您呢！像[(（]（或[\(（]这种用法，我还是向 杜老师 学到的。像 loquat 老师、duquancai 老师、zhanglei1371 老师、ming0018 老师，及论坛前辈高人各位老师都是我们学习的对象。
最近论坛又出了几位高人，如：gbgbxgb 老师、chonghong8 老师、daibao88 老师 等，都会函数、数组、字典、正则……等，令我非常羡慕，得多向这些高人老师们学习（还有论坛高人/大神 sylun 老师又回归了）。