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

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

Во вложенном файле есть 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). У кого и какие есть соображения, почему такие косяки? Нужно применять заливку с помощью макросов - чтобы было быстрее.

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

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

                            'Заливка 'Обычными способами не получается сделать (какая-то программная недоработка). При распечатки дефекты
    For Each oCell In Selection.Tables(1).Range.Cells
        oCell.Shading.BackgroundPatternColor = wdColorAqua
    Next
                        