Word宏怎么设置条件格式 Word利用VBA根据内容自动变色【技术】

可通过VBA宏在Word中实现文本条件着色：一、用Find匹配关键词（如“重要”“警告”）并设字体颜色；二、按段落含“【紧急】”或以“注意：”开头设色；三、依表格“状态”列值（完成/未开始/进行中）动态着色；四、绑定Document_Open事件实现打开自动执行。

Word宏怎么设置条件格式 Word利用VBA根据内容自动变色【技术】第1张

如果您希望在Word文档中根据文本内容自动应用不同颜色，可以通过VBA宏实现条件格式化。以下是几种可行的实现方式：

一、使用Find方法匹配关键词并高亮着色

该方法通过遍历文档中所有指定关键词，逐个定位并修改其字体颜色。适用于关键词明确、数量有限的场景。

1、按Alt+F11打开VBA编辑器，插入新模块。

2、粘贴以下代码：

Sub ApplyColorByKeyword()
Dim doc As Document
Set doc = ActiveDocument
Dim rng As Range
Set rng = doc.Content
rng.Collapse Direction:=wdCollapseStart
With rng.Find
  .Text = "重要"
  .Forward = True
  .Wrap = wdFindStop
  Do While .Execute
    rng.Font.Color = wdColorRed
    rng.Collapse Direction:=wdCollapseEnd
  Loop
End With
With rng.Find
  .Text = "警告"
  .Forward = True
  .Wrap = wdFindStop
  Do While .Execute
    rng.Font.Color = wdColorOrange
    rng.Collapse Direction:=wdCollapseEnd
  Loop
End With
End Sub

3、返回Word，按Alt+F8运行宏ApplyColorByKeyword。

4、执行后，文档中所有“重要”将显示为红色，“警告”将显示为橙色。

二、遍历段落文本并按首字符或关键词前缀设置颜色

该方法对每个段落进行字符串判断，依据段落开头或包含的特定标记（如“【高亮】”）动态设置字体颜色，适合结构化标记的文档。

1、在VBA编辑器中新建模块，输入以下代码：

Sub ColorByParagraphPrefix()
Dim para As Paragraph
For Each para In ActiveDocument.Paragraphs
  If InStr(para.Range.Text, "【紧急】") > 0 Then
    para.Range.Font.Color = wdColorBrightGreen
  ElseIf Left(para.Range.Text, 4) = "注意：" Then
    para.Range.Font.Color = wdColorBlue
  End If
Next para
End Sub

2、保存并关闭编辑器，回到Word界面。

3、确保文档中存在含“【紧急】”或以“注意：”开头的段落。

4、按Alt+F8运行宏ColorByParagraphPrefix，对应段落文字将立即变色。

三、基于表格单元格内容触发颜色变化

当Word文档含表格时，可针对特定列的单元格值（如“完成”“未开始”“进行中”）设定字体颜色，实现类Excel条件格式效果。

1、在VBA编辑器中插入新模块，粘贴如下代码：

Sub ColorTableCells()
Dim tbl As Table
Dim cell As Cell
Dim i As Long
For Each tbl In ActiveDocument.Tables
  For i = 1 To tbl.Columns.Count
    If tbl.Cell(1, i).Range.Text Like "*状态*" Then
      For Each cell In tbl.Columns(i).Cells
        Select Case Trim(cell.Range.Text)
          Case "完成"
            cell.Range.Font.Color = wdColorDarkGreen
          Case "未开始"
            cell.Range.Font.Color = wdColorGray25
          Case "进行中"
            cell.Range.Font.Color = wdColorBlue
        End Select
      Next cell
    End If
  Next i
Next tbl
End Sub