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

宏基于在表的第一行的第一个单元格中使用的阴影为整个表着色。您需要做的就是确保在运行表之前将插入点放置在表中的某个位置。

该宏是以下网站上提到的宏的变体：

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

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

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

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

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（10931）适用于Microsoft Word 97、2000、2002和2003。您可以在Word（Word 2007）的功能区界面中找到此技巧的版本。和更高版本）在这里：

在表格中复制填充颜色。