Kopieren Sie Active Cell Comment in Excel in eine neue Word-Datei

Ich weiß nicht viel über Makros, ist es möglich, dass mir jemand helfen könnte. Ich habe eine einfache Excel-Datei mit Namen von Kunden, die viele Kommentare zu jedem Namen haben. Gibt es eine andere Möglichkeit, als Screenshots zu machen oder den Kommentar zu bearbeiten, dann Kopieren, Einfügen in eine Word-Datei und Speichern?

Ist es möglich, dass ein VBA-Code meine aktiven Zellkommentare kopiert und sie dann in ein neues Word-Dokument kopiert, das ich dann einfach an meinem eigenen Speicherort speichern kann?

Vielen Dank

Ich werde erklären, wie dieses Makro so einfach wie möglich in Excel eingefügt wird.

Um ein Makro hinzuzufügen, drücken Sie Alt+ F8.

Dies öffnet das MacroFenster. Geben Sie dann einen Namen für ein neues Makro ein und klicken Sie auf Create.

VBE wird geöffnet und Sie können den folgenden Code zwischen Subund einfügen 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

WICHTIG - Damit dies ordnungsgemäß funktioniert, müssen Sie Microsoft Word-Projektreferenzen aktivieren. Gehen Sie im Menü des VBE-Fensters auf Tools > ReferencesSuchen und wählen Sie Ihre aus Microsoft Word Object Library( Sie müssen nach unten scrollen, um sie zu finden, und Ihre Versionsnummer kann unterschiedlich sein ). Klicken Sie OKdann auf Saveund schließen Sie das VBE-Fenster.

Um dieses Makro zu verwenden, wählen Sie den zu kopierenden Text aus, drücken Sie Alt+ F8, wählen Sie das Makro aus und klicken Sie auf Run. Es sollte Word öffnen und den ausgewählten Text in das neue Dokument einfügen.