Tabellen sind eine großartige Möglichkeit, viele Arten von Informationen darzustellen. Tatsächlich habe ich einige Dokumente gesehen, die fast ausschließlich aus Tabellen bestehen. Wenn Sie viel mit Tabellen arbeiten, möchten Sie möglicherweise (irgendwann) alle Tabellen von einem Dokument in ein brandneues Dokument kopieren. Dies kann hilfreich sein, wenn Sie tabellarische Informationen haben, die im neuen Dokument verfügbar sein müssen, aber den Rest der Informationen aus dem Originaldokument nicht benötigen.

Der einfachste Weg, diese Art des Kopierens durchzuführen, ist die Verwendung eines Makros.

Glücklicherweise werden VBA alle Tabellen in einem Dokument über die Tabellenauflistung zur Verfügung gestellt. Das heißt, Sie können jeden Artikel in der Sammlung durchgehen (jeder Artikel ist eine individuelle Tabelle) und ihn dann kopieren.

Sub CopyTables()

Dim Source As Document     Dim Target As Document     Dim tbl As Table     Dim tr As Range

Set Source = ActiveDocument     Set Target = Documents.Add

For Each tbl In Source.Tables         Set tr = Target.Range         tr.Collapse wdCollapseEnd         tr.FormattedText = tbl.Range.FormattedText         tr.Collapse wdCollapseEnd         tr.Text = vbCrLf     Next End Sub

Sobald das Makro ausgeführt wird, erstellt es ein brandneues Dokument (Ziel) und kopiert die Tabellen aus dem Originaldokument (Quelle) in das neue. (Das Quelldokument ist das Dokument, das beim Ausführen des Makros aktiv war.)

Das Makro setzt eine Leerzeile zwischen jede Tabelle im Zieldokument.

Wenn Sie die leere Zeile nicht möchten, entfernen oder kommentieren Sie die Zeile kurz vor der Next-Anweisung aus.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (13338) gilt für Microsoft Word 2007, 2010, 2013, 2016, 2019 und Word in Office 365.