Заливка таблиц макросами

Busine2009 · 16 авг 2010, 22:38

Во вложенном файле есть 2 ситуации:
Особенность в том, что Свойства - Таблица - Параметры - Поля ячеек по умолчанию - Верхнее и нижнее по 0,1 см.
Таблица 1 - заливка применена с помощью макросов:

Код: Выделить всё

Sub m_1()
With Selection.Cells.Shading
    .Texture = wdTextureNone
    .ForegroundPatternColor = wdColorAutomatic
    .BackgroundPatternColor = wdColorBlue
End With
End Sub
Sub m_2()
With Selection.Cells.Shading
    .Texture = wdTextureNone
    .ForegroundPatternColor = wdColorAutomatic
    .BackgroundPatternColor = wdColorRed
End With
End Sub

Пояснение. Выделяем всю таблицу и применяем макрос m_1. Затем выделяем первый столбец и применяем макрос m_2.

Таблица 2: делаем то же самое, но только через интерфейс: выделяем всю таблицу - Формат - Границы и заливка - Заливка - Синий - Применить к ячейке - Окей.
Затем выделяем первый столбец - Формат - Границы и заливка - Красный - Применить к ячейке - Окей.

Результаты можно посмотреть, распечатав данный документ в виртуальном принтере (doPDV - бесплатный принтер, или др. принтер, например, PDF).

У кого и какие есть соображения, почему такие косяки?
Нужно применять заливку с помощью макросов - чтобы было быстрее.