Word VBA


Unabhängige Tabellen sortieren lassen

> Wie kann ich mehrere Tabellen, die durch einen Zeilenumbruch
> (Enter) voneinander getrennt sind, aufsteigend sortieren lassen?

Sub Tabellen_sortieren()
 Dim oTAB As Table
   For Each oTAB In ActiveDocument.Tables
      oTAB.Sort ExcludeHeader:=False, _
            FieldNumber:="Spalte1", _
            SortFieldType:=wdSortFieldAlphanumeric, _
            SortOrder:=wdSortOrderAscending
   Next oTAB
End Sub