如何将Excel中的批注导出到Word？

对于Excel用户来说，向单元格中插入批注是一项常见的任务。有时，您需要出于某种目的将这些批注复制并粘贴到Word文档中。当然，您可以逐个将批注复制并粘贴到Word中，但这是一个繁琐且耗时的工作。有没有办法一次性将所有批注从Excel导出到Word呢？

使用VBA代码将当前工作表中的批注导出到Word

使用VBA代码将当前工作表中的批注导出到Word

遗憾的是，Excel并未提供一次性将所有批注复制并粘贴到Word的功能。然而，通过以下VBA代码，您可以快速将活动工作表中的所有批注导出到Word文档中。

1. 按住 ALT + F11键打开Microsoft Visual Basic for Applications窗口。

2. 单击“插入”>“模块”，并将以下代码粘贴到模块窗口中。

VBA代码：将当前工作表中的批注导出到Word

Sub CopyCommentsToWord()
'Update 20140325
Dim xComment As Comment
Dim wApp As Object
On Error Resume Next
Set wApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
  Err.Clear
  Set wApp = CreateObject("Word.Application")
End If
wApp.Visible = True
wApp.Documents.Add DocumentType:=0
For Each xComment In Application.ActiveSheet.Comments
    wApp.Selection.TypeText xComment.Parent.Address & vbTab & xComment.Text
    wApp.Selection.TypeParagraph
Next
Set wApp = Nothing
End Sub

3. 然后按F5键运行此代码，活动工作表中的所有批注都将连同其单元格地址一起被导出到一个新的Word文档中。请参见截图：

相关文章：

如何在Excel中快速向多个单元格插入批注？

如何更改Excel中的批注框形状？

如何更改Excel中单元格内的所有批注格式？

如何更改Excel中所有批注的作者名称？