如何给特定单词加下划线

zzpsx

ming0018 发表于 2018-4-27 17:25
Sub 全字查找(findstr As String)
    Dim myDoc As Document
    Dim myRng As Range

谢谢，为何alt+f8看不到？

ming0018

zzpsx 发表于 2018-4-27 19:30
谢谢，为何alt+f8看不到？

alt+f8  干嘛的？

zzpsx

ming0018 发表于 2018-4-28 09:31
alt+f8  干嘛的？

谢谢，代码很完美，是我的电脑问题。

相见是缘8

ming0018 发表于 2018-4-27 17:25
Sub 全字查找(findstr As String)
    Dim myDoc As Document
    Dim myRng As Range

你好！
想学习一下，能劳你把 “设置范围、计数” 的加上，及语句都注释一下吗？感谢！

ming0018

相见是缘8 发表于 2018-5-1 07:08
你好！
想学习一下，能劳你把 “设置范围、计数” 的加上，及语句都注释一下吗？感谢！

你都是老司机了，还要我加注释啊？

相见是缘8

ming0018 发表于 2018-5-2 08:27
你都是老司机了，还要我加注释啊？

就是不懂，才问啰！能否……？

ming0018

相见是缘8 发表于 2018-5-2 11:54
就是不懂，才问啰！能否……？

1. Sub 全字查找(findstr As String, wRng As Range)
   
2.     Dim myDoc As Document
   
3.     Dim myRng As Range
   
4.     Set myDoc = ActiveDocument
   
5.     Set myRng = wRng
   
6.     '这里可以传一个Range进来，比如:
   
7.     'ActiveDocument.Paragraphs(1).Range '第一段 或者  某一段
   
8.     'ActiveDocument.Content '这里也可以是所有内容
   
9.     With myRng.Find
   
10.         .Text = findstr
    
11.         .MatchWholeWord = True  '全字匹配
    
12.         .MatchCase = True       '区分大小写
    
13.         Do While .Execute
    
14.             '这里可以加入计数，找到几个或者一个也没找到。
    
15.             '这里可以设一个计数变量n
    
16.             n = n + 1
    
17.             With .Parent.Font
    
18.                 .Underline = wdUnderlineSingle
    
19.                 .Color = wdColorRed
    
20.             End With
    
21.         Loop
    
22.         '循环完了把n打出来
    
23.         Debug.Print n
    
24.     End With
    
25. End Sub
    

复制代码

很清楚了吧？

ming0018

相见是缘8 发表于 2018-5-2 11:54
就是不懂，才问啰！能否……？

1. Sub 全字查找(findstr As String, wRng As Range)
   
2.     Dim myDoc As Document
   
3.     Dim myRng As Range
   
4.     Set myDoc = ActiveDocument
   
5.     Set myRng = wRng
   
6.     '这里可以传一个Range进来，比如:
   
7.     'ActiveDocument.Paragraphs(1).Range '第一段 或者  某一段
   
8.     'ActiveDocument.Content '这里也可以是所有内容
   
9.     With myRng.Find
   
10.         .Text = findstr
    
11.         .MatchWholeWord = True  '全字匹配
    
12.         .MatchCase = True       '区分大小写
    
13.         Do While .Execute
    
14.             '这里可以加入计数，找到几个或者一个也没找到。
    
15.             '这里可以设一个计数变量n
    
16.             n = n + 1
    
17.             With .Parent.Font
    
18.                 .Underline = wdUnderlineSingle
    
19.                 .Color = wdColorRed
    
20.             End With
    
21.         Loop
    
22.         '循环完了把n打出来
    
23.         Debug.Print n
    
24.     End With
    
25. End Sub
    

复制代码

很清楚了吧？

相见是缘8

ming0018 发表于 2018-5-2 14:09
很清楚了吧？

你好！
感谢！感谢！我其实就是想请你把没有注释的代码，注释一下，想知道每句代码的中文意思，没注释的看不懂，来这里有几个月了，对这个VBA一直摸不到边。

相见是缘8

ming0018 发表于 2018-5-2 14:09
很清楚了吧？

你好！
感谢！想请你把没有注释的代码，注释一下，想知道每句代码的中文意思。