У Эйприл есть таблица в ее документе 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

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

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

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

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

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

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (10932) применим к Microsoft Word 2007, 2010, 2013 и 2016. Вы можете найти версию этого совета для старого интерфейса меню Word здесь:

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