如何用Word VBA为指定文本（语句）自动设置加粗格式？

需求说明 #

需要自动为Word文档中指定的文本（包含冒号或特定问句，如Product Name:）设置加粗格式，仅加粗目标文本本身，后续内容保持原样。原Excel VBA代码无法直接适配Word，以下是针对性解决方案。

适配后的Word VBA代码 #

Sub FindAndBoldTargetTexts()
    Dim targetTexts(1 To 33) As String
    Dim i As Integer
    Dim findRange As Range
    
    ' 定义需要加粗的目标文本列表
    targetTexts(1) = "Product Name:"
    targetTexts(2) = "Project ID and/or URL:"
    targetTexts(3) = "Permission to join project?"
    targetTexts(4) = "Permission to join Account as Admin?"
    targetTexts(5) = "No. of Users on Project:"
    targetTexts(6) = "Company/Account Name:"
    targetTexts(7) = "Reported by:"
    targetTexts(8) = "Reporting User Role in Project:"
    targetTexts(9) = "Platform, Version, OS Version:"
    targetTexts(10) = "Which platform does this organization/user mainly use?"
    targetTexts(11) = "Can the agent repro in test project?"
    targetTexts(12) = "Is this related to a third-party integration? (If so, please provide name):"
    targetTexts(13) = "What is the company and project name in the third-party software?"
    targetTexts(14) = "Has the reporter been able to perform this action with no issues in the past?"
    targetTexts(15) = "Pype-Spec Version Name (if applicable):"
    targetTexts(16) = "Salesforce ID:"
    targetTexts(17) = "Description of Issue:"
    targetTexts(18) = "Steps to Reproduce:"
    targetTexts(19) = "1."
    targetTexts(20) = "2."
    targetTexts(21) = "3."
    targetTexts(22) = "4."
    targetTexts(23) = "Expected Behavior:"
    targetTexts(24) = "Observed Behavior"
    targetTexts(25) = "Additional Observation/Notes"
    targetTexts(26) = "Company/Account name:"
    targetTexts(27) = "Can the agent repro in customer project?"
    targetTexts(28) = "Is this related to a third party integration?"
    targetTexts(29) = "Pype-Spec version name (if applicable):"
    targetTexts(30) = "Has the customer provided screenshots/screen- recordings?"
    targetTexts(31) = "Description of issue:"
    targetTexts(32) = "# of Users on Project:"
    targetTexts(33) = "# of Users on Project:"
    
    ' 遍历每个目标文本，执行查找并加粗
    For i = LBound(targetTexts) To UBound(targetTexts)
        Set findRange = ActiveDocument.Content
        With findRange.Find
            .Text = targetTexts(i)
            .MatchCase = True ' 区分大小写，如需忽略可改为False
            .MatchWholeWord = False ' 允许文本作为子串存在，如需精确匹配改为True
            .Wrap = wdFindContinue
            .Format = False
            
            ' 循环查找所有匹配项并加粗
            Do While .Execute
                findRange.Font.Bold = True
                findRange.Collapse wdCollapseEnd ' 折叠范围，继续查找下一个匹配
            Loop
        End With
    Next i
    
    ' 调用删除空行的过程（若需要保留原功能，取消注释即可）
    ' Call DeleteBlankRows
End Sub

' Word版删除空行过程（可选）
Sub DeleteBlankRows()
    Dim para As Paragraph
    For Each para In ActiveDocument.Paragraphs
        If Trim(para.Range.Text) = vbCr Then
            para.Range.Delete
        End If
    Next para
End Sub

关键差异说明（对比Excel VBA） #

• Word VBA使用Range对象和Find方法处理文档内容，而非Excel的单元格Range
• 通过findRange.Find.Execute循环查找所有匹配项，找到后直接设置Font.Bold = True
• 若需要保留删除空行功能，需使用Word版本的DeleteBlankRows过程（已补充在代码中）

内容的提问来源于stack exchange，提问作者Erik Nathe