将 Excel 中的活动单元格注释复制到新的 Word 文件中

Question

我不太了解宏，有人能帮我一下吗？我有一个简单的 excel 文件，里面有客户的名字，每个名字都有很多注释。除了截图或编辑注释，然后复制粘贴到 word 文件并保存之外，还有其他快捷方法吗？

VBA 代码是否可以复制我的活动单元格注释，然后将其复制到新的 Word 文档，然后我可以简单地将其保存到我自己的位置。

谢谢

Answer 1

我将尽可能简单地解释如何将此宏放入 Excel。

要添加宏，请按Alt+ F8。

这将打开Macro窗口。然后输入新宏的名称并单击Create。

VBE 将打开，您可以将以下代码粘贴在Sub和之间End Sub。

Dim WordApp As Word.Application
Dim myDoc As Word.Document

Application.ScreenUpdating = False
Application.EnableEvents = False

'Open Word
  On Error Resume Next

    'Check if Word is open
      Set WordApp = GetObject(class:="Word.Application")

    'Clear errors
      Err.Clear

    'If Word is not open, then open it
      If WordApp Is Nothing Then Set WordApp = CreateObject(class:="Word.Application")

    'Handle if the Word Application is not found
      If Err.Number = 429 Then
        MsgBox "Microsoft Word could not be found, aborting."
        GoTo EndRoutine
      End If

  On Error GoTo 0

'Focus on Word and create a new document
  WordApp.Visible = True
  WordApp.Activate
  Set myDoc = WordApp.Documents.Add

'Copy Excel data and paste to Word
  Selection.Copy
  myDoc.Paragraphs(1).Range.PasteExcelTable _
    LinkedToExcel:=False, _
    WordFormatting:=False, _
    RTF:=False

EndRoutine:
  Application.ScreenUpdating = True
  Application.EnableEvents = True
  Application.CutCopyMode = False

重要的- 要使其正常工作，您需要启用 Microsoft Word 项目引用。在 VBE 窗口菜单上，转到，Tools > References然后查找并选择您的Microsoft Word Object Library（您必须向下滚动才能找到它，并且您的版本号可能会有所不同）。单击OK，然后Save关闭VBE窗口。

要使用此宏，请选择要复制的文本，按Alt+ F8，选择宏并单击Run。它将打开 Word 并将选定的文本粘贴到新文档中。