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 Macro
Fenster. 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 Sub
und 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 > References
Suchen 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 Save
und 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.