Макрос для изменения высоты строк всех таблиц в документе

Как показывает авторекордер макросов, высоту строки 0 для выделенной таблицы устанавливает следующий макрос:

Sub TabTo0()
'
    Selection.Rows.HeightRule = wdRowHeightAtLeast
    Selection.Rows.Height = CentimetersToPoints(0)
End Sub

Этот макрос работает с уже выделенной таблицей.

Вам осталось перебрать все таблицы в файле, выделить каждую из них и применить к ней эти операторы.
Попробуйте это сделать сами.

Уважаемый Максим, я имел в виду перебрать все таблицы автоматически (в макросе). Вы сможете сами вставить в упомянутый вами макрос операторы, устанавливающие высоту строки 0, вместо выравнивания всех таблиц по ширине?
Если нет, то выложите, пожалуйста, текст макроса, выравнивающего все таблицы по ширине, о котором вы написали. Мы постараемся сформировать нужный вам макрос вместе.

Ну, вот.
Заменяем в присланном вами макросе строку

        myTable.AutoFitBehavior wdAutoFitWindow

на две строки, указанные нам авторекордером и приведенные выше (немного измененные):

        myTable.Rows.HeightRule = wdRowHeightAtLeast
        myTable.Rows.Height = CentimetersToPoints(0)

В результате получится так:

Sub Height0()
'
    Dim myTable As Table
    For Each myTable In ActiveDocument.Tables
        myTable.Rows.HeightRule = wdRowHeightAtLeast
        myTable.Rows.Height = CentimetersToPoints(0)
    Next myTable
End Sub

Строка

myTable.Rows.HeightRule = wdRowHeightAtLeast

даже не обязательна!

Остается следующий макрос:

Sub Height0()
'
    Dim myTable As Table
    For Each myTable In ActiveDocument.Tables
        myTable.Rows.Height = CentimetersToPoints(0)
    Next myTable
End Sub

У меня, вроде бы, все работает!

Если будут вопросы - пишите.