Word文档提取文内引用：用正则/通配符定位作者及年份并设红色格式

要实现将Word文档中括号内包含作者和四位数字年份的文本字体改为红色（方便后续用「选择相似文本」功能批量选中），可以基于你提供的斜体设置VBA代码修改，核心调整查找规则和字体格式设置：

修改后的VBA代码 #

Sub SetCitationToRed()
    Dim Rng As Range
    Dim n As Long
    Application.ScreenUpdating = False
    ' 记录当前选区的结束位置，防止循环超出初始选区范围
    n = Selection.End
    With Selection.Find
        .MatchWildcards = True
        .ClearFormatting
        .Wrap = wdFindStop
        ' 通配符规则：匹配括号内包含至少一组四位数字的内容
        ' \(*[0-9]{4}*\) 表示：括号开头 + 任意字符 + 四位数字 + 任意字符 + 括号结尾
        .Text = "\(*[0-9]{4}*\)"
        Do While .Execute
            Set Rng = Selection.Range
            ' 超出初始选区范围则退出循环
            If Rng.Start > n Then Exit Do
            ' 调整范围，去掉前后括号
            Rng.MoveStart unit:=wdCharacter, Count:=1
            Rng.MoveEnd unit:=wdCharacter, Count:=-1
            ' 设置字体颜色为红色
            Rng.Font.Color = wdColorRed
        Loop
    End With
    Application.ScreenUpdating = True
End Sub

关键改动说明 #

1. 查找规则调整：把原代码的\(*\)（匹配所有括号内容）改为\(*[0-9]{4}*\)，精准定位包含四位数字年份的括号内容，避免误匹配不含年份的括号文本。
2. 格式设置替换：将Rng.Font.Italic = True替换为Rng.Font.Color = wdColorRed，实现字体颜色改为红色的需求。
3. 保留了原代码的高效性优化：关闭屏幕更新避免闪烁，限制查找范围在初始选区内，防止无意义的全局循环。

使用方法 #

1. 打开Word文档，选中需要处理的文本范围（如果要处理全文，可选中整个文档）。
2. 按Alt + F11打开VBA编辑器，插入新模块，粘贴上述代码。
3. 运行宏SetCitationToRed，完成后括号内的作者+年份文本会变为红色，此时即可用「选择相似文本」功能批量选中这类红色文本。

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