如何在MS Word VBA中为字符串内特定文字设置加粗格式

针对你已经能生成Outlook邮件模板，仅需给FinalText中特定文字设置加粗的需求，直接通过Word对象模型的查找功能就能实现，无需手动选中内容。以下是具体实现代码和注意事项：

核心代码示例 #

Sub FormatEmailTextWithBold()
    Dim olApp As Outlook.Application
    Dim olMail As Outlook.MailItem
    Dim wdDoc As Word.Document
    Dim FinalText As String
    Dim targetText As String
    Dim findRange As Word.Range
    
    ' 替换为你的实际文本和需要加粗的目标内容
    FinalText = "您好，本次需要处理的项目为【XX项目】，请于【2024-06-30】前完成提交"
    targetText = "XX项目" ' 要加粗的特定文字
    
    ' 创建Outlook邮件实例
    Set olApp = New Outlook.Application
    Set olMail = olApp.CreateItem(olMailItem)
    
    ' 必须先调用Display才能获取Word编辑器对象
    olMail.Display
    Set wdDoc = olMail.GetInspector.WordEditor
    
    ' 将FinalText插入邮件正文
    wdDoc.Content.Text = FinalText
    
    ' 遍历查找所有目标文本并设置加粗
    Set findRange = wdDoc.Content
    With findRange.Find
        .Text = targetText
        .Forward = True
        .Wrap = wdFindContinue
        .MatchCase = False ' 按需设置是否区分大小写
        .MatchWholeWord = True ' 按需设置是否匹配整词
        
        Do While .Execute
            findRange.Bold = True
            findRange.Collapse wdCollapseEnd ' 折叠范围，继续查找下一个匹配项
        Loop
    End With
    
    ' 配置邮件其他信息（你已实现的部分可保留）
    olMail.To = "user@example.com"
    olMail.Subject = "任务通知"
    
    ' 释放对象
    Set findRange = Nothing
    Set wdDoc = Nothing
    Set olMail = Nothing
    Set olApp = Nothing
End Sub

关键注意事项 #

• 引用设置：除了Outlook对象库，必须在VBA编辑器的「工具→引用」中勾选Microsoft Word xx.x Object Library（xx.x对应你的Office版本）。
• Display方法：必须先调用olMail.Display，否则无法获取邮件的Word编辑器对象。
• 查找参数调整：
  • 若需要区分大小写，将.MatchCase设为True；
  • 若不需要严格匹配整词（比如匹配"项目"时包含"XX项目"），将.MatchWholeWord设为False；
  • 支持通配符查找，只需开启.MatchWildcards = True，并将.Text设为通配符表达式（比如"【*】"匹配所有方括号内内容）。

多目标文本批量处理 #

如果需要同时给多个不同的内容加粗，可改用数组循环处理：

' 替换原单目标处理部分为以下代码
Dim targetTexts As Variant
targetTexts = Array("XX项目", "2024-06-30") ' 所有需要加粗的内容

Dim i As Integer
For i = LBound(targetTexts) To UBound(targetTexts)
    Set findRange = wdDoc.Content
    With findRange.Find
        .Text = targetTexts(i)
        .Forward = True
        .Wrap = wdFindContinue
        .MatchCase = False
        .MatchWholeWord = True
        
        Do While .Execute
            findRange.Bold = True
            findRange.Collapse wdCollapseEnd
        Loop
    End With
Next i

内容的提问来源于stack exchange，提问作者Chris Melville