Выровнять таблицы по ширине, а после по содержимому

[Polotenchik]

Итак, проблема в следующем: если создать два отдельных макроса:

Sub Таблицы2()

    Dim wwtbl As Table
    For Each wwtbl In ActiveDocument.Tables
        wwtbl.AutoFitBehavior (wdAutoFitWindow)
    Next wwtbl

End Sub

Sub Таблицы3()

    Dim wctbl As Table
    For Each wctbl In ActiveDocument.Tables
        wctbl.AutoFitBehavior (wdAutoFitContent)
    Next wctbl
    
End Sub

И запустить сперва один, а потом второй, то эффект такой:


Т.е. таблица выровнялась по ширине и потом по содержимому.

А если совместить:
Так:

Sub Таблицы()

    Dim wwtbl As Table
    For Each wwtbl In ActiveDocument.Tables
        wwtbl.AutoFitBehavior (wdAutoFitWindow)
    Next wwtbl

    Dim wctbl As Table
    For Each wctbl In ActiveDocument.Tables
        wctbl.AutoFitBehavior (wdAutoFitContent)
    Next wctbl

End Sub

Или так:

Sub Таблицы()

    Dim wwtbl As Table
    For Each wwtbl In ActiveDocument.Tables
        wwtbl.AutoFitBehavior (wdAutoFitWindow)
        wwtbl.AutoFitBehavior (wdAutoFitContent)
    Next wwtbl

End Sub

Эффект другой:


А тут таблица выделилась по ширине окна, но по содержимому без изменений.

Почему так? Можно как-то совместить выравнивание, что бы было, как на рисунке 1, но не надо было по отдельности макросы запускать?

[Ципихович Эндрю]

Sub Таблицы2()

    Dim wwtbl As Table
    For Each wwtbl In ActiveDocument.Tables
        wwtbl.AutoFitBehavior (wdAutoFitWindow)
    Next wwtbl

Call Таблицы3

End Sub

Sub Таблицы3()

    Dim wctbl As Table
    For Each wctbl In ActiveDocument.Tables
        wctbl.AutoFitBehavior (wdAutoFitContent)
    Next wctbl
    
End Sub

ОК???

[Polotenchik]

Ну не совсем. Я перепутал последовательность. Сперва wdAutoFitContent, а потом wdAutoFitWindow. Все равно если делать по отдельности, то таблицы выглядят по другому, намного лучше, если бы сделать это все вместе. Не знаю почему, но да и шут с ним.

[Ципихович Эндрю]

Sub Таблицы3()

    Dim wctbl As Table
    For Each wctbl In ActiveDocument.Tables
        wctbl.AutoFitBehavior (wdAutoFitContent)
    Next wctbl

Call Таблицы2

    
End Sub


Sub Таблицы2()

    Dim wwtbl As Table
    For Each wwtbl In ActiveDocument.Tables
        wwtbl.AutoFitBehavior (wdAutoFitWindow)
    Next wwtbl

End Sub

Окейно???

[Polotenchik]

Да нет же говорю. Это не прокатывает. Как заколдованно. Да фиг с ним! Мне проще отдельно запустить эти 2 макроса.