用VBA改变word文档表字符串中单个单词的颜色以匹配单元格颜色

VBA是Visual Basic for Applications的缩写，是一种用于Microsoft Office应用程序的编程语言。通过使用VBA，可以对Word文档进行自动化操作，包括修改文本样式、颜色等。

要用VBA改变Word文档表字符串中单个单词的颜色以匹配单元格颜色，可以按照以下步骤进行操作：

打开Word文档并进入开发工具栏。在Word中，点击"文件"，然后选择"选项"，在弹出的对话框中选择"自定义功能区"，勾选"开发工具"，点击"确定"。
点击开发工具栏中的"Visual Basic"按钮，打开VBA编辑器。
在VBA编辑器中，选择"插入"菜单，然后选择"模块"，在新建的模块中编写VBA代码。
在模块中编写以下VBA代码：

Sub ChangeWordColor()
    Dim rng As Range
    Dim cellColor As Long
    Dim word As String
    
    ' 获取选中的单元格颜色
    cellColor = Selection.Cells(1).Shading.BackgroundPatternColor
    
    ' 获取要替换的单词
    word = "要替换的单词"
    
    ' 遍历文档中的每个表格
    For Each tbl In ActiveDocument.Tables
        ' 遍历表格中的每个单元格
        For Each cell In tbl.Range.Cells
            ' 判断单元格的颜色是否与选中单元格的颜色相同
            If cell.Shading.BackgroundPatternColor = cellColor Then
                ' 替换单元格中的指定单词的颜色
                Set rng = cell.Range
                With rng.Find
                    .Text = word
                    .Replacement.Text = word
                    .Replacement.Font.Color = RGB(255, 0, 0) ' 设置要替换的单词的颜色，这里设置为红色
                    .Execute Replace:=wdReplaceAll
                End With
            End If
        Next cell
    Next tbl
End Sub