Dieser Artikel veranschaulicht, wie Sie Word-Dokumente in Excel-Tabellen konvertieren können, ohne die Formatierung zu verändern. Angenommen, Sie müssen Ihre Daten in einem Word-Dokument formatieren oder sortieren. Dafür ist Excel natürlich die bessere Wahl. Glücklicherweise müssen Sie die Daten in der neuen Excel-Datei nicht noch einmal eingeben. Sie können das Word-Dokument einfach in eine Excel-Tabelle konvertieren, wobei Sie dieDas folgende Bild verdeutlicht den Zweck dieses Artikels. Schauen Sie es sich kurz an, um zu erfahren, wie Sie das ganz einfach tun können.

Download Arbeitsbuch Praxis

Sie können das Arbeitsbuch für die Praxis über die unten stehende Schaltfläche herunterladen.

Word zu Excel Konvertierung.xlsm

2 Wege zur Konvertierung von Word in Excel mit der gleichen Formatierung

Stellen Sie sich vor, Sie haben das folgende Word-Dokument und möchten es in eine Excel-Tabelle konvertieren. Dann folgen Sie den unten stehenden Methoden.

1. mit Copy-Paste Word in Excel konvertieren

Sie können die Daten einfach aus dem Word-Dokument kopieren und in das Excel-Blatt einfügen, indem Sie die folgenden Schritte ausführen.

📌 Schritte

• Rufen Sie zunächst die Word-Datei auf und drücken Sie dann STRG+A um das gesamte Dokument auszuwählen. Sie können bei Bedarf auch nur einen bestimmten Bereich auswählen.
• Danach drücken Sie STRG+C um die Daten wie unten gezeigt zu kopieren.

• Markieren Sie dann die linke obere Zelle des Bereichs, in dem Sie die Daten abrufen möchten.
• Drücken Sie nun STRG+V um die Daten einzufügen. Alternativ können Sie auch mit der rechten Maustaste auf die Zelle klicken. Wählen Sie dann Formatierung der Quelle beibehalten (K) von der Einfügen-Optionen .
• Danach erhalten Sie das folgende Ergebnis.

Lesen Sie mehr: Kopieren von Word nach Excel in mehrere Zellen (3 Möglichkeiten)

2. mit VBA Word in Excel konvertieren

Sie können dasselbe mit Excel VBA tun, indem Sie die folgenden Schritte ausführen.

📌 Schritte

• Fügen Sie zunächst ein neues Arbeitsblatt hinzu und speichern Sie dann die Arbeitsmappe als makrofähige Arbeitsmappe .
• Drücken Sie dann ALT+F11 um das VBA-Fenster zu öffnen.
• Wählen Sie dann Einfügen>> Modul um ein neues Modul zu erstellen, wie in der folgenden Abbildung gezeigt.

• Kopieren Sie anschließend den folgenden Code über die Schaltfläche Kopieren.

 Sub WordToExcelWithFormatting() Dim Document, Word As Object Dim File As Variant Dim PG, Range Application.ScreenUpdating = False File = Application.GetOpenFilename _ ("Word file(*.doc;*.docx) ,*.doc;*.docx", , "ExcelWIKI.Com - Please Select") If File = False Then Exit Sub Set Word = CreateObject("Word.Application") Set Document = Word.Documents.Open(Filename:=File, ReadOnly:=True)Document.Activate PG = Document.Paragraphs.Count Set Range = Document.Range(Start:=Document.Paragraphs(1).Range.Start, _ End:=Document.Paragraphs(PG).Range.End) Range.Select On Error Resume Next Word.Selection.Copy ActiveSheet.Range("B2").Select ActiveSheet.Paste Document.Close Word.Quit (wdDoNotSaveChanges) Application.ScreenUpdating = True End Sub 

• Fügen Sie dann den kopierten Code wie unten gezeigt in das Modulfenster ein.

• Drücken Sie nun F5 um den Code auszuführen. Sie können dies auch über die ausführen.
• Danach werden Sie aufgefordert, die Word-Datei auszuwählen, die Sie konvertieren möchten.
• Navigieren Sie nun zum Speicherort des gewünschten Word-Dokuments, wählen Sie die Datei aus und klicken Sie auf Öffnen Sie .

• Schließlich erhalten Sie ein ähnliches Ergebnis wie bei der früheren Methode.

🔎 Wie funktioniert der Code?

Sub WordToExcelWithFormatting()

Dim Document, Word As Object

Dim File As Variant

Dim PG, Bereich

Deklaration der notwendigen Variablen.

Application.ScreenUpdating = False

Datei = Application.GetOpenFilename _

("Word-Datei(*.doc;*.docx) ,*.doc;*.docx", , "ExcelWIKI.Com - Bitte auswählen")

If File = False Then Exit Sub

Set Word = CreateObject("Word.Application")

Dies setzt die Wort Variable als Word-Dokument.

Set Document = Word.Documents.Open(Dateiname:=Datei, ReadOnly:=True)

Damit wird die Dokument auf das Objekt oder die Datei, auf die sich der Benutzer bezieht.

Dokument.Aktivieren

PG = Document.Paragraphs.Count

Diese Codezeile ordnet die PG Variable für die Anzahl der Absätze im Word-Dokument

Set Range = Document.Range(Start:=Document.Paragraphs(1).Range.Start, _ Ende:=Document.Paragraphs(PG).Range.End)

Bereich.wählen

Bei Fehler Fortsetzen Weiter

Word.Auswahl.Kopieren

ActiveSheet.Range("B2").Select

ActiveSheet.Paste

Dokument.Schließen

Word.Quit (wdDoNotSaveChanges)

Application.ScreenUpdating = True

End Sub

Lesen Sie mehr: Konvertieren von Word-Tabellen in Excel-Tabellen (6 Methoden)

Dinge zum Merken

• Sie können die Word-Datei auch als PDF-Datei speichern und dann mit Ihrem PDF-Editor in eine Excel-Tabelle umwandeln.
• Vergessen Sie nicht, die Arbeitsmappe als .xlsm Andernfalls verlieren Sie den Code.

Schlussfolgerung

Jetzt wissen Sie, wie man ein Word-Dokument in eine Excel-Tabelle konvertiert und dabei die Formatierung beibehält. Bitte lassen Sie uns wissen, ob dieser Artikel Ihnen geholfen hat, Ihr Problem zu lösen. Sie können auch den Kommentarbereich unten für weitere Fragen oder Anregungen nutzen. Besuchen Sie unsere ExcelWIKI Blog, um mehr über Excel zu erfahren. Bleiben Sie bei uns und lernen Sie weiter.