如何将 Excel 注释导出到 Word？

Excel 中的注释是一个强大的工具，可以为特定单元格添加附加信息、解释或提醒。但是，在某些情况下，您可能希望在 Excel 之外（例如在 Word 文档中）共享或呈现此信息。在本教程中，我们将指导您完成将注释从 Excel 导出到 Word 的过程，使您可以无缝地传输数据及其附带的注释。无论您需要创建报告、文档还是任何其他形式的书面沟通，本教程都将为您提供轻松地将注释从 Excel 导出到 Word 的必要步骤。让我们开始吧！

将注释从 Excel 导出到 Word

在这里，我们将首先创建一个 VBA 模块，然后运行它来完成任务。让我们看看一个简单的过程来学习如何将注释从 Excel 导出到 Word。

步骤 1

考虑一个包含注释的 Excel 表格。

首先，右键单击工作表名称，然后选择“查看代码”以打开 VBA 应用程序。

右键单击 > 查看代码。

步骤 2

然后单击“插入”，然后选择“模块”。然后将下面的代码复制到文本框中。

插入 > 模块 > 复制。

代码

Sub CopyCommentsToWord()
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