'Tabelle Auto Breite  kurz (Siehe Beispiel "TabelleSpaltenBreite"

' Tabelle Auto Breite

' Passt alle Tabellen an die aktuelle Zeilenbreite an und

' Teilt die Spaltenbreiten in gleiche Teile

Sub MAIN

    BeginnDokument

    While AbsatzUnten()

        If AuswInfo(12) = - 1 Then        'Einfügemarke in Tabelle?

            BeginnTabellenzeile

            TabelleTabelleMarkieren

            TabelleSpaltenBreite .SpaltenBreite = "Auto", .LinealArt = 0

            ZeileUnten

        End If

    Wend

End Sub

'TabellenAutoBreite lang

'Dieses Beispiel zählt auch die Tabellen im Dokument.

'Die Textmarke "Temp" wird 'immer an der jeweils nächsten Position der

'Einfügemarke definiert, damit TextmarkenVergleichen() bestimmen kann,

'ob die letzte BearbeitenGeheZu-'Anweisung (oder SuchenWiederholen-

'Anweisung) die Einfügemarke verschoben 'hat. Wenn SuchenWiederholen die

'Einfügemarke nicht mehr verschiebt (weil 'keine weiteren Tabellen

'vorhanden sind), beendet Word die While...Wend-'Schleife.

Sub MAIN

    BeginnDokument

    BearbeitenTextmarke "Temp", .Hinzufügen

    Anzahl = 0

    If AuswInfo(12) = - 1 Then

        Anzahl = 1

        TabelleTabelleMarkieren

        TabelleSpaltenBreite .SpaltenBreite = "Auto", .LinealArt = 0

    End If

    BearbeitenGeheZu .Ziel = "t"

    While TextmarkenVergleichen("\Sel", "Temp") <> 0

        BearbeitenTextmarke "Temp", .Hinzufügen

        Anzahl = Anzahl + 1

        TabelleTabelleMarkieren

        TabelleSpaltenBreite .SpaltenBreite = "Auto", .LinealArt = 0

        SuchenWiederholen

    Wend

    BearbeitenTextmarke "Temp", .Löschen

    MsgBox "***** " + Str$(Anzahl) + " Tabellen an die Seitenbreite angepaßt."

End Sub