导出Word中全部批注

便捷导出全部批注。

方法

Word 中 Alt+F11，插入模块，粘贴以下 VBA 脚本，运行。活动文档中的全部批注会被放入新的 word 文件中¹⁾。

注意，VBA 无法处理批注中的图片，请留意。

Sub exportcomments()
Dim s As String
Dim cmt As Word.Comment
Dim doc As Word.Document
For Each cmt In ActiveDocument.Comments
s = s & cmt.Index & "|" & cmt.Author & "|" & cmt.Range.Text & "|" & cmt.Date & vbCr
Next
Set doc = Documents.Add
doc.Range.Text = s
End Sub

其他拓展可见 https://docs.microsoft.com/en-us/office/vba/api/word.comment

¹⁾

VBA 脚本修改自 https://www.extendoffice.com/documents/word/1201-word-export-and-print-comments.html