机房设计运维网用户论坛

标题: 自动检索选中的段落并在每段的冒号前将字体加粗代码 [打印本页]
作者: admin    时间: 2025-5-5 00:54
标题: 自动检索选中的段落并在每段的冒号前将字体加粗代码
  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    时间: 2025-5-5 01:11
以上代码请用电脑访问链接并复制到word开发环境中



欢迎光临 机房设计运维网用户论坛 (http://www.jifang369.com/bbs/) Powered by Discuz! X3.3