Word修订跟踪记录导出为表格/文本及格式修改权限限制咨询

以下两种方法都可以覆盖公共目录下多用户产生的全量格式、文本修改记录，导出内容包含所需的页码、修改人、修改日期时间3个字段：

• 方法1：Word自带功能导出（无需代码）
  操作路径：打开目标Word文件 → 顶部「审阅」选项卡 → 「比较」组→「审阅窗格」下拉菜单 → 选择「创建修订摘要报告」→ 在弹出的配置窗口中，勾选修改人、修改时间、页码显示项，输出格式可选Word，也可直接将报告内容复制粘贴到Excel中整理成规范表格。
• 方法2：VBA脚本直接导出Excel表格（适合批量处理/自动生成规范表格）
  操作步骤：按Alt+F11调出Word VBA编辑器 → 右键当前文档点击「插入」→「模块」→ 粘贴如下代码后按F5运行，即可自动生成符合要求的Excel文件：

Sub 导出修订记录到Excel()
    Dim xlApp As Object, xlBook As Object, xlSheet As Object
    Dim rev As Revision
    Dim rowNum As Integer
    ' 初始化Excel对象
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Sheets(1)
    ' 写入表头
    xlSheet.Cells(1, 1) = "页码"
    xlSheet.Cells(1, 2) = "修改人"
    xlSheet.Cells(1, 3) = "修改日期时间"
    rowNum = 2
    ' 遍历所有修订记录写入行
    For Each rev In ActiveDocument.Revisions
        xlSheet.Cells(rowNum, 1) = rev.Range.Information(wdActiveEndAdjustedPageNumber)
        xlSheet.Cells(rowNum, 2) = rev.Author
        xlSheet.Cells(rowNum, 3) = rev.Date
        rowNum = rowNum + 1
    Next
    ' 自动适配列宽
    xlSheet.Columns("A:C").AutoFit
End Sub

可通过Word自带的限制编辑功能实现，操作步骤如下：

• 打开目标Word文件，点击顶部「审阅」选项卡 → 选择「限制编辑」，右侧会弹出配置面板
• 勾选面板顶部的限制对选定的样式设置格式，点击「设置」可自定义允许修改的格式范围，也可直接禁用所有格式修改操作
• 下拉到「编辑限制」区域，勾选「仅允许在文档中进行此类编辑」，子选项根据需求选择（如果仅限制格式、允许改内容就选「修订」或「无限制」，同步配合上一步的格式限制规则即可）
• 在「例外项（可选）」区域，选中你允许修改格式的用户，勾选对应权限，未被选中的特定人员就会被限制格式修改操作
• 最后点击「是，启动强制保护」，设置保护密码后规则即可生效。

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