Tabellen sind ein großer Segen für Benutzer von Word. Wenn Sie mit Dokumenten arbeiten, die in einem anderen Textverarbeitungsprogramm erstellt wurden, können Tabellen jedoch störend sein. Beispielsweise beschwerte sich ein WordTips-Leser, dass sein in WordPerfect erstellter zweispaltiger Text in Word in Tabellen konvertiert wurde. Er bat um eine Möglichkeit, alle Tabellen automatisch in Text umzuwandeln, ohne dass jede Tabelle manuell verarbeitet werden muss.

Das folgende Makro, AllTablesToText, erledigt den Trick. Es durchläuft jede Tabelle im aktuellen Dokument und konvertiert sie alle in Text mit Registerkarten zwischen den Spalten:

Sub AllTablesToText()

Dim Tbls As Long     Dim J As Long

Tbls = ActiveDocument.Tables.Count     For J = Tbls To 1 Step —1         ActiveDocument.Tables(J).ConvertToText Separator:=wdSeparateByTabs     Next J End Sub

Wenn Sie keine Tabulatoren zwischen den Spalten möchten, müssen Sie lediglich den dem Separator-Parameter zugewiesenen Wert ändern. Sie können wdSeparateByCommas, wdSeparateByDefaultListSeparator oder wdSeparateByParagraphs verwenden.

_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 (866) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier:

Tabellen in Text konvertieren.