如何将注释从 Excel 导出到 Word?

ms excelmicrosoft technologiesadvanced excel function更新于 2025/1/21 14:36:17

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