如何在Word中搜索词片段并替换整个词（附VBA代码）

需求说明 #

要在Word文档中找到包含指定片段的整个词语（比如含%%hyperlink%%的内容，如%%hyperlink%%312、%%hyperlink%2210），将其直接删除或替换为空格。类似虚构场景中搜索wh，删除when,、where这类完整词语。

现有代码问题修正 #

你提供的VBA代码存在语法错误和逻辑缺失，以下是修正并优化后的版本，直接可用：

版本1：直接删除匹配的词语

Sub DeleteWordsWithSpecificText()
    Dim rng As Word.Range
    Dim SearchString As String
    
    ' 设置要搜索的目标片段
    SearchString = "%%hyperlink%%"
    Set rng = ActiveDocument.Content
    
    With rng.Find
        .ClearFormatting
        .MatchWildcards = False
        ' 循环查找所有包含目标片段的内容
        Do While .Execute(findText:=SearchString, Forward:=True) = True
            ' 扩展Range到整个词语（自动识别单词边界，包含标点）
            rng.Expand Unit:=wdWord
            ' 清空内容实现删除
            rng.Text = ""
            ' 折叠Range到末尾，继续查找下一个匹配项
            rng.Collapse wdCollapseEnd
        Loop
    End With
End Sub

版本2：替换匹配的词语为空格

如果需要保留原位置的空格（避免内容粘连），可以把rng.Text = ""改成rng.Text = " "：

Sub ReplaceWordsWithSpace()
    Dim rng As Word.Range
    Dim SearchString As String
    
    SearchString = "%%hyperlink%%"
    Set rng = ActiveDocument.Content
    
    With rng.Find
        .ClearFormatting
        .MatchWildcards = False
        Do While .Execute(findText:=SearchString, Forward:=True) = True
            rng.Expand Unit:=wdWord
            ' 替换为空格
            rng.Text = " "
            rng.Collapse wdCollapseEnd
        Loop
    End With
End Sub

关键逻辑说明 #

• rng.Expand Unit:=wdWord：核心操作，能自动把当前定位的Range扩展到整个词语，不管词语是空格分隔还是标点结尾（比如when,会被完整选中）
• 避免使用Selection：全程用Range对象操作，不会干扰用户当前的选中内容，运行更稳定
• 循环查找：通过Do While .Execute()循环处理所有匹配项，直到文档末尾

使用方法 #

1. 打开需要处理的Word文档
2. 按Alt + F11打开VBA编辑器
3. 插入模块（右键文档 -> 插入 -> 模块）
4. 把上面的代码粘贴进去
5. 修改SearchString为你需要的目标片段（比如wh、%%hyperlink%%）
6. 运行对应的Sub过程（按F5或点击运行按钮）

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