Форматирование таблиц в Word - VBA (57090)

Формулировка задачи:

Здравствуйте! У меня есть куча документов с таблицами на 3 листа. Нужно, чтобы по нажатию кнопки всё содержимое отформатировалось(уменьшился шрифт, уменьшилась высота строк, удалились разрывы страниц и содержимое колонтитулов и т.д). Т.е. всё должно уместиться на одном листе! Все документы одинаковые. Пример документа, кидаю. Заранее благодарю!!!!

Решение задачи: «Форматирование таблиц в Word»

textual
                            Листинг программы 
                        

                            Sub m_2() 'обработка всех таблиц в одном документе
Dim oTable As Table
Dim response As String
response = MsgBox("Обработать все таблицы?", vbCritical + vbYesNo) 'Чтобы случайно не запустить макрос
    If response = vbNo Then Exit Sub
For Each oTable In ActiveDocument.Tables
    oTable.LeftPadding = CentimetersToPoints(0.05)
    oTable.RightPadding = CentimetersToPoints(0.05)
    oTable.PreferredWidthType = wdPreferredWidthPoints
    oTable.PreferredWidth = CentimetersToPoints(9)
    oTable.Range.Font.Size = 8
Next
End Sub
                        