你提到受旧帖启发创建了名为NewStyle的链接式字符样式，想要用VBA批量给指定关键词应用这个样式，我帮你完善并修正了原宏的代码，确保能正常运行：

Sub FnR4()
    Dim rng As Range
    Dim mykeywords
    ' 定义需要查找的关键词数组，可自行添加或修改
    mykeywords = Array("word1", "word2", "word3")
    Dim nkey As Integer
    
    ' 遍历数组中的每个关键词
    For nkey = LBound(mykeywords) To UBound(mykeywords)
        ' 将查找范围初始化为整个文档内容
        Set rng = ActiveDocument.Content
        With rng.Find
            .ClearFormatting ' 清除之前的查找格式设置
            .Text = mykeywords(nkey) ' 设置当前要查找的关键词
            .MatchWholeWord = True ' 仅匹配完整单词（可根据需求改为False）
            .MatchCase = False ' 不区分大小写（可根据需求改为True）
            .Wrap = wdFindStop ' 查找完文档后停止，避免循环
            
            ' 循环查找所有匹配项
            Do While .Execute(Forward:=True) = True
                ' 给找到的文本应用指定的字符样式
                rng.Style = ActiveDocument.Styles("NewStyle")
                ' 折叠范围到当前匹配项的末尾，避免重复处理同一位置
                rng.Collapse wdCollapseEnd
            Loop
        End With
    Next nkey
End Sub

实用注意事项 #

• 确认NewStyle是字符样式：如果是段落样式，应用到单个字符会出错，可在Word「样式」面板中查看样式类型
• 灵活调整查找规则：
  • 把.MatchWholeWord = True改成False，会匹配包含关键词的文本片段（比如查找"word"会匹配"wording"）
  • 把.MatchCase = True改成True，会严格区分大小写（只匹配"Word1"而非"word1"）
• 特殊字符处理：如果关键词包含通配符（如*、?），需要用反斜杠\转义，比如查找*test要写成\*test
• 运行前备份文档：避免意外格式修改无法恢复

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