如何用VBA修改Word中指定日期后修订记录的作者名称

以下是可直接使用的VBA脚本，能批量将2023年10月10日之后作者为「Author」的修订统一改为「Peter」：

Sub UpdateRevisionAuthorByDate()
    Dim rev As Revision
    Dim targetDate As Date
    Dim oldAuthor As String
    Dim newAuthor As String
    
    ' 自定义参数：按需修改目标日期、旧作者名、新作者名
    targetDate = DateValue("2023-10-10")
    oldAuthor = "Author"
    newAuthor = "Peter"
    
    ' 遍历文档所有修订项
    For Each rev In ActiveDocument.Revisions
        ' 匹配条件：作者为指定旧名称，且修订日期晚于目标日期
        If rev.Author = oldAuthor And rev.Date > targetDate Then
            rev.Author = newAuthor
        End If
    Next rev
    
    MsgBox "处理完成！已将" & targetDate & "之后作者为""" & oldAuthor & """的修订修改为""" & newAuthor & """。", vbInformation
End Sub

代码说明 #

• 核心逻辑：遍历文档中所有Revision对象，通过双重条件筛选目标修订，批量修改作者属性
• 日期处理：用DateValue转换字符串为标准日期格式，避免因系统区域设置导致的解析错误
• 灵活性：可直接修改代码中的targetDate、oldAuthor、newAuthor参数适配其他场景

使用步骤 #

1. 先备份原文档，防止操作失误导致数据丢失
2. 打开目标Word文档，按下Alt + F11打开VBA编辑器
3. 在左侧「工程资源管理器」中右键点击当前文档，选择「插入」→「模块」
4. 将上述代码粘贴到模块窗口中
5. 点击工具栏「运行」按钮（或按F5）执行宏
6. 完成后会弹出提示框确认修改结果

注意事项 #

• 确保文档已启用宏（若处于宏禁用状态，需在Word选项中启用后再操作）
• 若修订数量极大，执行过程可能需要几秒，请耐心等待，不要中途关闭Word

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