如何使用VBA在Word文档中查找并将“Project:”设置为加粗格式？

你的代码存在几个关键问题导致无法实现需求，以下是修正方案：

问题分析 #

1. 查找文本不匹配：代码中写入Word的是"Project: "（带空格），但查找的是"Project:"（无空格），导致无法定位目标内容。
2. 替换逻辑错误：Replacement.Text设为空，执行替换会删除找到的Project:，而非保留文本并应用格式/替换为目标内容。
3. 冗余执行：连续两次调用Find.Execute，属于多余操作。
4. 常量未定义：使用wdAlignParagraphJustify等Word常量，但Late Binding（CreateObject）模式下需用对应数值替代。

修正代码（两种方案） #

方案1：将"Project: "设置为加粗格式（Word常规格式操作） #

Sub Write_Project_Inv()        
    Dim objWord As Object
    Dim objDoc As Object
    Dim table As Range
    Dim Row As Range ' 需定义Row变量
    
    Set table = Range("A2", "X10")
    
    Set objWord = CreateObject("Word.Application")
    Set objDoc = objWord.Documents.Add        
    
    With objWord
        .Visible = True
        .Activate
        
        For Each Row In table.Rows
            .Selection.TypeText ("Project: " & Row.Cells(1, 1).Text & Row.Cells(1, 2).Text)
            .Selection.TypeParagraph
            
            .Selection.TypeText ("Project Overview: " & Row.Cells(1, 3).Text)
            .Selection.TypeParagraph
            
            .Selection.TypeParagraph
        Next Row
    End With        
    
    With objDoc
        ' 用数值替代Word常量（Late Binding）
        .Range.ParagraphFormat.SpaceAfter = 0
        .Range.ParagraphFormat.Alignment = 3 ' wdAlignParagraphJustify = 3
        
        With .Range.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Replacement.Font.Bold = True
            
            .Text = "Project: " ' 匹配实际写入的带空格文本
            .Replacement.Text = "Project: " ' 保留原文本，仅应用加粗格式
            .Forward = True
            .Wrap = 1 ' wdFindContinue = 1
            .Format = True
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
            
            ' 单次执行全部替换
            .Execute Replace:=2 ' wdReplaceAll = 2
        End With
    End With
End Sub

方案2：替换为<strong>Project:</strong>（插入HTML标签） #

如果确实需要将文本替换为HTML标签形式，修改查找替换部分即可：

' 替换objDoc范围内的With块为以下内容
With objDoc
    .Range.ParagraphFormat.SpaceAfter = 0
    .Range.ParagraphFormat.Alignment = 3 ' wdAlignParagraphJustify = 3
    
    With .Range.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        
        .Text = "Project: "
        ' 替换为带HTML标签的内容，注意保留空格
        .Replacement.Text = "<strong>Project:</strong> "
        .Forward = True
        .Wrap = 1 ' wdFindContinue = 1
        .Format = False ' 无需格式匹配
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        
        .Execute Replace:=2 ' wdReplaceAll = 2
    End With
End With

额外提示：建议用&替代+进行字符串拼接，+在VBA中可能因单元格内容为数值导致类型错误。

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