У Эйприл есть таблица в ее документе Word. Одна строка отформатирована с использованием настраиваемой цветовой заливки, соответствующей цвету логотипа компании. Эйприл теперь хочет скопировать этот цвет заливки в другие строки. Она надеялась использовать Format Painter, но он просто копирует текстовый формат, а не цвет заливки, используемый в ячейках таблицы. Эйприл интересуется, есть ли способ скопировать цвет заливки из одной строки в другую.

Есть несколько способов решить эту проблему. Один из них — просто использовать инструменты, доступные в Word. Выполните следующие действия:

  1. Выберите строку, которая уже залита желаемым цветом.

  2. Отобразите панель инструментов «Таблицы и границы» (щелкните «Просмотр» | «Панели инструментов» | «Таблицы и границы»).

  3. Щелкните стрелку вниз справа от инструмента «Цвета затенения» на панели инструментов. (Инструмент выглядит как ведро с разлитой краской.) Word отображает палитру цветов.

  4. Щелкните «Другие цвета заливки». Word отображает диалоговое окно «Цвета». (См. Рис. 1.) Цвет выбранной строки уже должен отображаться в диалоговом окне.

  5. Щелкните ОК. (Обратите внимание, что вы не внесли никаких изменений в диалоговое окно; вы просто щелкнули OK.)

  6. Выберите другие строки в таблице, цвет фона которых вы хотите изменить.

  7. Щелкните инструмент «Цвета затенения» на панели инструментов «Таблицы и границы».

Ваш желаемый цвет будет применен к выбранным строкам.

После того, как вы примените желаемый цвет, если вы хотите применить его в другом месте (возможно, в другой таблице или в некоторых пропущенных вами ячейках), все, что вам нужно сделать, это выбрать ячейки и нажать F4. Затенение повторяется на выбранных ячейках.

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

Sub ShadeTable()

Dim backColor As Long     Dim foreColor As Long

If Selection.Information(wdWithInTable) Then         With Selection.Tables(1)

backColor = .Cell(1, 1).Shading.BackgroundPatternColor             foreColor = .Cell(1, 1).Shading.ForegroundPatternColor             .Shading.BackgroundPatternColor = backColor             .Shading.ForegroundPatternColor = foreColor         End With     Else         MsgBox "Put the insertion point in a table"

End If End Sub

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

Этот макрос является разновидностью макроса, упомянутого на следующем веб-сайте:

http://www.wordbanter.com/showthread.php?t=84194

_Примечание: _

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

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (10931) применим к Microsoft Word 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Word (Word 2007 и позже) здесь:

link: / wordribbon-Copying_Fill_Color_in_a_Table [Копирование цвета заливки в таблице].