📌 VBA 宏代码实现

下面是完整的 VBA 代码，支持：

• 自动创建新文档，并将当前 Word 文档的所有批注导出。
• 批注格式清晰，包括编号、作者、日期和批注内容。
• 智能检测，如果当前文档没有批注，则提示用户并终止导出。
• 自定义保存路径，通过对话框选择导出文件位置。

若想详细引用到某段，参见链接地址文章

代码均成功实现效果

💡 代码

Sub ExportComments()
    Dim doc As Document
    Dim comment As Comment
    Dim exportDoc As Document
    Dim i As Integer
    Dim savePath As String
    
    ' 设置当前文档
    Set doc = ActiveDocument
    
    ' 如果文档没有批注，则提示用户并退出
    If doc.Comments.Count = 0 Then
        MsgBox "当前文档没有批注，无需导出。", vbInformation, "提示"
        Exit Sub
    End If
    
    ' 让用户选择保存路径
    With Application.FileDialog(msoFileDialogSaveAs)
        .Title = "选择导出文件保存位置"
        .FilterIndex = 1
        .InitialFileName = "批注导出.docx"
        If .Show = -1 Then
            savePath = .SelectedItems(1)
        Else
            Exit Sub ' 如果用户取消，则退出
        End If
    End With

    ' 创建新文档
    Set exportDoc = Documents.Add
    exportDoc.Content.Text = "文档批注导出" & vbCrLf & vbCrLf
    
    ' 遍历所有批注
    For i = 1 To doc.Comments.Count
        Set comment = doc.Comments(i)
        
        With exportDoc.Content
            .InsertAfter "批注 #" & i & vbCrLf
            .InsertAfter "作者: " & comment.Author & vbCrLf
            .InsertAfter "日期: " & comment.Date & vbCrLf
            .InsertAfter "内容: " & comment.Range.Text & vbCrLf & vbCrLf
        End With
    Next i
    
    ' 保存导出文档
    exportDoc.SaveAs2 savePath
    exportDoc.Close
    
    MsgBox "批注导出完成！", vbInformation, "完成"
End Sub

---

📖 代码解析

1. 判断当前文档是否有批注

   If doc.Comments.Count = 0 Then
       MsgBox "当前文档没有批注，无需导出。", vbInformation, "提示"
       Exit Sub
   End If
   

   这一部分检查当前文档是否有批注，如果没有，则弹出提示并退出，避免创建空的导出文件。

2. 让用户选择保存路径

   With Application.FileDialog(msoFileDialogSaveAs)
       .Title = "选择导出文件保存位置"
       .InitialFileName = "批注导出.docx"
       If .Show = -1 Then
           savePath = .SelectedItems(1)
       Else
           Exit Sub
       End If
   End With
   

   这段代码使用 FileDialog 让用户自由选择保存位置，而不是将文件强制保存在默认目录。

3. 批注导出格式

   .InsertAfter "批注 #" & i & vbCrLf
   .InsertAfter "作者: " & comment.Author & vbCrLf
   .InsertAfter "日期: " & comment.Date & vbCrLf
   .InsertAfter "内容: " & comment.Range.Text & vbCrLf & vbCrLf
   

   每个批注导出的格式如下：

   批注 #1
   作者: 张三
   日期: 2024/04/01
   内容: 请修改此部分的措辞。
   

   这样可以清晰地记录每个批注的信息。

---

📌 如何使用 VBA 宏

如果你是 VBA 新手，不用担心，按照以下步骤即可轻松运行此宏：

1️⃣ 启用 VBA 开发环境

1. 打开 Word，按 Alt + F11 进入 VBA 编辑器。
2. 在 VBAProject (当前文档) 下，点击 插入 > 模块。

2️⃣ 复制代码

将上面的 VBA 代码粘贴到新模块中。

3️⃣ 运行宏

按 F5 或点击 运行 按钮，Word 将自动执行批注导出操作。

---