Заливка таблиц макросами
Добавлено: 16 авг 2010, 22:38
Во вложенном файле есть 2 ситуации:
Особенность в том, что Свойства - Таблица - Параметры - Поля ячеек по умолчанию - Верхнее и нижнее по 0,1 см.
Таблица 1 - заливка применена с помощью макросов:
Пояснение. Выделяем всю таблицу и применяем макрос m_1. Затем выделяем первый столбец и применяем макрос m_2.
Таблица 2: делаем то же самое, но только через интерфейс: выделяем всю таблицу - Формат - Границы и заливка - Заливка - Синий - Применить к ячейке - Окей.
Затем выделяем первый столбец - Формат - Границы и заливка - Красный - Применить к ячейке - Окей.
Результаты можно посмотреть, распечатав данный документ в виртуальном принтере (doPDV - бесплатный принтер, или др. принтер, например, PDF).
У кого и какие есть соображения, почему такие косяки?
Нужно применять заливку с помощью макросов - чтобы было быстрее.
Особенность в том, что Свойства - Таблица - Параметры - Поля ячеек по умолчанию - Верхнее и нижнее по 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Таблица 2: делаем то же самое, но только через интерфейс: выделяем всю таблицу - Формат - Границы и заливка - Заливка - Синий - Применить к ячейке - Окей.
Затем выделяем первый столбец - Формат - Границы и заливка - Красный - Применить к ячейке - Окей.
Результаты можно посмотреть, распечатав данный документ в виртуальном принтере (doPDV - бесплатный принтер, или др. принтер, например, PDF).
У кого и какие есть соображения, почему такие косяки?
Нужно применять заливку с помощью макросов - чтобы было быстрее.