Word VBA问题：如何仅为特定单词应用Standard_Bold样式？

问题核心是你的代码未开启格式匹配，且未限定查找的原样式，导致替换时错误覆盖整个段落样式。以下是两种可行的解决方案：

方案一：启用格式匹配的批量替换 #

修正后的代码通过指定查找的原样式，并开启格式匹配功能，确保仅对目标单词应用新样式：

Sub replaceStyle(doc As Document)
    With doc.Content.Find
        .ClearFormatting
        .Style = doc.Styles("Standard").NameLocal ' 限定查找Standard样式的内容
        .Replacement.ClearFormatting
        .Replacement.Style = doc.Styles("Standard_Bold").NameLocal
        .Forward = True
        .Wrap = wdFindStop
        .Text = "Text"
        .Format = True ' 开启格式匹配，这是关键设置
        .Execute Replace:=wdReplaceAll
    End With
End Sub

关键说明： #

• .Format = True：告诉Word要基于格式（这里指样式）进行查找和替换，否则Word会忽略样式设置，直接替换文本并错误应用样式到整个段落。
• .Style = doc.Styles("Standard").NameLocal：确保只查找应用了Standard样式的"Text"单词，避免误匹配其他样式下的相同文本。

方案二：逐个匹配替换（更可控） #

如果需要更精细的控制，可通过循环逐个处理匹配项，确保每个目标单词单独应用样式：

Sub replaceStyleByLoop(doc As Document)
    Dim findRange As Range
    Set findRange = doc.Content
    
    With findRange.Find
        .ClearFormatting
        .Style = doc.Styles("Standard").NameLocal
        .Text = "Text"
        .Forward = True
        .Wrap = wdFindStop
        .Format = True
        
        Do While .Execute
            findRange.Style = doc.Styles("Standard_Bold").NameLocal
            findRange.Collapse wdCollapseEnd ' 移动范围，避免重复匹配当前内容
        Loop
    End With
End Sub

这种方式适合复杂场景，能避免批量替换可能出现的意外问题。

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