Форматирование всех таблиц...

[Busine2009]

Почему не работает вот эта конструкция.

Если создаешь новый документ и вставляешь в него 2 таблицы, то - работает. А в существующем документе - нет. У кого есть какие соображения по этому поводу?

Sub main()

For Each oTbl In ActiveDocument.Tables

If oTbl.PreferredWidth < CentimetersToPoints(17.5) Then

oTbl.PreferredWidthType = wdPreferredWidthPoints
oTbl.PreferredWidth = CentimetersToPoints(17)

End If

Next

End Sub

[viter.alex]

Читаем справку по свойству PreferredWidthType

If the PreferredWidthType property is set to wdPreferredWidthPoints, the PreferredWidth property returns or sets the width in points. If the PreferredWidthType property is set to wdPreferredWidthPercent, the PreferredWidth property returns or sets the width as a percentage of the window width

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