自动检索选中的段落并在每段的冒号前将字体加粗代码

admin

1. Sub 段落内冒号前字体加粗()
   
2.     Dim para As Paragraph
   
3.     Dim paraText As String
   
4.     Dim colonPos As Long
   
5.     Dim startPos As Long
   
6.     Dim endPos As Long
   
7.    
   
8.     ' 遍历选中的每个段落
   
9.     For Each para In Selection.Paragraphs
   
10.         paraText = para.Range.Text
    
11.         
    
12.         ' 去掉段落中的回车符
    
13.         If Right(paraText, 1) = Chr(13) Then
    
14.             paraText = Left(paraText, Len(paraText) - 1)
    
15.         End If
    
16.         
    
17.         ' 查找英文冒号（半角）的位置
    
18.         colonPos = InStr(paraText, ":")
    
19.         
    
20.         ' 如果找不到英文冒号，查找中文冒号（全角）
    
21.         If colonPos = 0 Then
    
22.             colonPos = InStr(paraText, "：")
    
23.         End If
    
24.         
    
25.         ' 如果找到了冒号
    
26.         If colonPos > 0 Then
    
27.             ' 获取冒号前的文字范围
    
28.             startPos = para.Range.Start
    
29.             endPos = para.Range.Start + colonPos - 1
    
30.             
    
31.             ' 设置冒号前的文字为加粗
    
32.             para.Range.Document.Range(startPos, endPos).Font.Bold = True
    
33.         End If
    
34.     Next para
    
35. End Sub
    

复制代码

admin

以上代码请用电脑访问链接并复制到word开发环境中