April在她的Word文档中有一个表格。一行采用自定义颜色填充格式，以匹配公司的徽标颜色。 April现在想将该填充颜色复制到其他行。她希望使用Format Painter，但这只是复制文本格式，而不是表单元格中使用的填充颜色。 April想知道是否有一种方法可以将填充颜色从一行复制到另一行。

有几种方法可以解决此问题。一种是简单地使用Word中可用的工具。请按照下列步骤操作：

。选择已经用所需颜色填充的行。

。显示功能区的“主页”选项卡。

。在“段落”组中，单击“阴影”工具右侧的向下箭头。 （该工具看起来像是洒满一桶的油漆。）Word将显示调色板。

。单击更多颜色。 Word将显示“颜色”对话框。所选行的颜色应该已经在对话框中显示了。 （请参见图1。）

。单击确定。 （请注意，您没有在对话框中进行任何更改；您只单击了OK。）

。在表中选择要更改其背景颜色的其他行。

。单击功能区的“设计”选项卡上的“底纹”工具。所需的颜色将应用于选定的行。

应用所需的颜色后，如果要将其应用到其他地方（也许在其他表格中或错过的某些单元格中），则只需选择单元格并按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_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）此技巧（10932）适用于Microsoft Word 2007、2010、2013和2016。您可以在此处找到适用于Word较旧菜单界面的该技巧的版本：

在表格中复制填充颜色。