如何將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中所有批註的作者名稱？