Word文档自动标记合格不合格的方法

在处理大量的Word文档时，自动标记文档的合格与不合格状态可以大大提高工作效率。以下是一些常用的方法来实现这一功能：

1. 使用Word内置的样式和条件格式

1.1 创建样式

1. 打开Word文档，点击“开始”选项卡。
2. 在“样式”组中，选择“新建样式”。
3. 输入样式的名称，例如“合格”和“不合格”，然后点击“确定”。
4. 分别为“合格”和“不合格”样式设置不同的格式，例如字体颜色。

1.2 应用样式

1. 选中需要标记的文本或段落。
2. 在“开始”选项卡中，找到“合格”或“不合格”样式，并应用到选中的文本。

1.3 使用条件格式

1. 选中需要应用条件格式的文本或段落。
2. 点击“开始”选项卡中的“条件格式”按钮。
3. 选择“新建格式规则”。
4. 根据需要设置条件，例如文本内容为“合格”时，应用“合格”样式。

2. 使用宏录制

2.1 录制宏

1. 打开Word文档，点击“视图”选项卡。
2. 在“宏”组中，选择“录制宏”。
3. 输入宏的名称，例如“标记合格不合格”。
4. 在文档中执行标记操作，例如选择文本并应用样式。
5. 完成操作后，点击“停止录制”。

2.2 运行宏

1. 在“视图”选项卡中，找到“宏”组。
2. 在下拉列表中选择“标记合格不合格”宏，并运行。

3. 使用VBA编写脚本

3.1 打开VBA编辑器

1. 打开Word文档，按下Alt + F11键。
2. 在“项目”窗口中，找到要修改的文档。

3.2 编写脚本

1. 在“代码”窗口中，输入以下代码：

Sub 标记合格不合格()
    Dim rng As Range
    Set rng = ActiveDocument.Content
    
    With rng.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "合格"
        .Replacement.Text = "合格"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Replacement.Font.Color = wdColorBlack
        .Execute Replace:=wdReplaceAll
    End With
    
    With rng.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "不合格"
        .Replacement.Text = "不合格"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Replacement.Font.Color = wdColorRed
        .Execute Replace:=wdReplaceAll
    End With
End Sub

1. 保存并关闭VBA编辑器。

3.3 运行脚本

1. 在“视图”选项卡中，找到“宏”组。
2. 在下拉列表中选择“标记合格不合格”宏，并运行。

通过以上方法，您可以在Word文档中自动标记合格与不合格状态，提高工作效率。