如何查找以冒号为分界的关键词

天空飘过啥

文档中这样的关键词很多，但又不完全一样，所以想着是不是以冒号为分界点，给（姓名：）这样的关键词加粗

如下图，


谢谢大佬们

jiangxiaoyun

天空飘过啥

jiangxiaoyun 发表于 2019-9-3 23:13

这个字看不清，读音是什么，谢谢

天空飘过啥

jiangxiaoyun 发表于 2019-9-3 23:13

这个字看不清，读音是什么，谢谢

yssunny

[一-﨩]{2,}：

yssunny

[一-﨩]{2,}：

天空飘过啥

413191246se 发表于 2019-9-4 01:27

谢谢，但是，能使用选择范围吗，不是整个文档

天空飘过啥

yssunny 发表于 2019-9-4 14:55
[一-﨩]{2,}：

谢谢！
厉害，dao

413191246se

1. Sub aaab段首加粗()
   
2.     Dim r As Range, s As Range
   
3.     With Selection
   
4.         If .Type = wdSelectionIP Then .WholeStory Else .MoveStart 1, -1
   
5.         Set r = .Range
   
6.         Set s = .Range
   
7.     End With
   
8.     With r.Find
   
9.         .ClearFormatting
   
10.         .Text = "^13[!^13]@[：:]"
    
11.         .Forward = True
    
12.         .MatchWildcards = True
    
13.         Do While .Execute
    
14.             With .Parent
    
15.                 If Not .Information(12) Then
    
16.                     .MoveStart
    
17.                     .Font.Color = wdColorRed '红色(本行代码可删除)
    
18.                     .Bold = True
    
19.                     .Characters.Last.Text = "："
    
20.                     .SetRange Start:=.End, End:=s.End
    
21.                 End If
    
22.             End With
    
23.         Loop
    
24.     End With
    
25. End Sub

复制代码

天空飘过啥

413191246se 发表于 2019-9-4 23:15

谢谢老师！