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

Excel 如何导出评论到Word中