Затенение строк таблицы

В Excel можно использовать условное форматирование для затенения каждой второй строки (или каждой n-й строки) таблицы данных. Возможно, вы захотите выполнить ту же задачу в Word, и программа предлагает несколько подходов, которые вы можете использовать. Один из подходов – использовать некоторые из предопределенных стилей таблиц, доступных в Word. Выполните следующие действия:

1. Создайте свою таблицу, как обычно.
2. Поместите точку вставки где-нибудь внутри таблицы.
3. Убедитесь, что на ленте отображается вкладка «Дизайн».
4. Используя эскизы в группе «Стили таблиц», щелкните тот, который использует затенение в строках таблицы.

Многие форматы таблиц являются «интеллектуальными», что означает, что они могут регулировать затенение строк, даже если вы добавляете в таблицу новые строки. Как это сделать? Рад, что вы спросили; это приводит ко второму методу затенения строк таблицы – созданию собственных стилей таблиц.

Стили доступны в Word уже много лет. Вы можете определить стиль таблицы, который автоматически применяет затенение к четным или нечетным строкам в таблице. (Вот как это делают автоформаты таблиц.) Выполните следующие действия:

1. Поместите точку вставки где-нибудь внутри таблицы.
2. Убедитесь, что Отображается вкладка «Дизайн» на ленте.
3. Справа от миниатюрных изображений в группе «Стили таблиц» вы увидите стрелки вверх и вниз. Под ним находится стрелка раскрывающегося списка. Щелкните его, чтобы отобразить полный диапазон стилей таблиц, определенных в Word.
4. Щелкните параметр «Новый стиль таблицы». Word отображает диалоговое окно «Создать новый стиль из форматирования». (См. Рис. 1.)



Рис. 1. Диалоговое окно «Создать новый стиль из форматирования».

5. В раскрывающемся списке «Применить форматирование к» выберите строки с нечетными полосами или строки с четными полосами, в зависимости от того, хотите ли вы этого стиль для применения к нечетным или четным строкам.
6. Используйте элементы управления в диалоговом окне, чтобы задать форматирование, которое вы хотите применить к строкам.
7. Задайте имя стиля и другие свойства по желанию.
8. Нажмите “ОК”.

Теперь вы создали стиль затенения для нечетных или четных строк. При желании вы можете применить этот стиль к таблице. Форматирование автоматически корректируется при изменении количества строк в таблице.

Описанные до сих пор решения отлично работают, если вы хотите применить форматирование к каждой второй строке в таблице. Они не работают так хорошо, если вы хотите, чтобы форматирование применялось к каждой третьей, четвертой или пятой строке. В этом случае лучше всего использовать макрос для форматирования. Ниже приведен хороший пример макроса, который может применять затенение к каждой третьей строке в таблице:

 Sub ShadeRows () Dim iRow As Integer Dim iHeads As Integer Dim iRowTtl As Integer If Selection.Information  (wdWithInTable) = True Then iHeads = InputBox (prompt: = «Количество строк заголовков?», _ Title: = «Headings», по умолчанию: = «1») iRowTtl = Selection.Tables (1) .Rows. Count - iHeads For iRow = 1 To iRowTtl Если iRow Mod 3 = 0 Then Selection.Tables (1) .Rows (iRow + iHeads) .Shading.Texture _ = wdTexture20Percent Else Selection.Tables (1) .Rows (iRow + iHeads)  .Shading.Texture _ = wdTextureNone End If Next iRow End IfEnd Sub 

Макрос спрашивает, сколько строк заголовка находится в таблице, а затем корректирует строки, к которым применяется затенение. Если при запуске макроса точка вставки находится вне таблицы, ничего не происходит. Вы также можете изменить частоту затенения (например, с каждой третьей строки на каждую четвертую), изменив формулу Mod. Просто измените одну строку следующим образом:

 Если iRow Mod 4 = 0, то 

Вы также можете изменить степень затенения, изменив константу wdTexture20Percent на другую , например wdTexture5Percent, wdTexture10Percent, wdTexture25Percent и т. д.

Вы также должны понимать, что если вы запустите макрос в таблице, где ячейки были объединены по вертикали, вы можете получить неожиданные результаты, если таковые имеются. Если вы измените количество строк в таблице, вам нужно будет снова запустить макрос, чтобы повторно применить затенение.