可通过打印功能、VBA宏或手动复制三种方法提取Word批注：一、使用“打印”功能选择“批注和文档标记”并保存为PDF，再用Word打开即可生成独立批注文件；二、运行VBA宏代码可自动创建含批注位置、内容、作者、时间的新文档“所有批注汇总.docx”；三、在审阅选项卡中逐条复制批注内容至新文档，补充原文上下文并添加编号与分类标签以提升可读性。
如果您在处理一份包含大量批注的Word文档，需要将所有审阅意见快速提取并汇总到一个独立的报告中，以便于后续沟通或归档，则可以通过以下方法实现高效导出与整理：
一、使用“打印”功能导出批注内容
该方法利用Word内置的打印设置，将文档中的批注单独提取并生成可保存的新文档。虽然不直接创建Word文件，但可结合其他工具完成最终报告的制作。
1、打开含有批注的Word文档，点击左上角的文件选项卡。
2、选择打印，在打印设置界面找到“打印范围”下方的下拉菜单。
3、从下拉列表中选择批注和文档标记选项。
4、此时预览窗口将仅显示所有批注内容，选择“Microsoft Print to PDF”作为打印机。
5、点击打印按钮，将批注内容保存为PDF格式文件。
6、使用Word打开该PDF文件（支持直接导入），即可获得一个仅含批注的独立文档。
二、通过VBA宏一键提取所有批注到新文档
此方法适用于需要频繁处理批注导出任务的用户，能够自动遍历全文批注，并将其按结构化格式输出至新文档。
1、按下Alt + F11快捷键，打开VBA编辑器。
2、在左侧项目窗口中右键点击当前文档名称，选择插入 > 模块。
3、将以下代码粘贴进右侧代码区：
Sub ExportAllComments() Dim docSource As Document, docNew As Document Dim cmt As Comment Set docSource = ActiveDocument Set docNew = Documents.Add docNew.Content = "Word文档批注汇总报告" & vbCrLf & String(20, "-") & vbCrLf For Each cmt In docSource.Comments docNew.Content.InsertAfter _ "批注位置：" & cmt.Reference.Text & vbCrLf & _ "批注内容：" & cmt.Range.Text & vbCrLf & _ "作者：" & cmt.Author & vbCrLf & _ "时间：" & cmt.Date & vbCrLf & String(20, "-") & vbCrLf Next cmt docNew.SaveAs2 FileName:="所有批注汇总.docx", FileFormat:=wdFormatXMLDocument End Sub
4、关闭VBA编辑器，返回Word界面，按下Alt + F8运行宏，选择ExportAllComments并执行。
5、系统将在后台创建一个名为“所有批注汇总.docx”的新文档，存放于默认保存路径。
三、手动复制批注信息生成报告
对于批注数量较少的情况，可以采用手动方式逐条查看并复制，适合对格式有特殊排版需求的场景。
1、切换到Word顶部菜单栏的审阅选项卡。
2、点击显示批注按钮，确保所有批注均处于可见状态。
3、逐一浏览每一条批注气泡框中的内容，选中后右键选择复制。
4、新建一个空白Word文档，将复制的内容粘贴进去，并补充对应的原文片段作为上下文说明。
5、为每条记录添加编号和分类标签，例如“格式问题”、“内容建议”等，提升报告可读性。
