在Excel中，可以使用条件格式对数据表的每隔一行（或第n行）进行着色。您可能想在Word中完成相同的任务，该程序提供了几种可以采用的方法。一种方法是使用Word提供的一些预定义表格样式。请按照下列步骤操作：

。照常创建表。

。将插入点放在表中的某处。

。确保显示功能区的“设计”选项卡。

。使用“表格样式”组中的缩略图，单击在表格行上使用阴影的缩略图。

许多表格格式都是“智能”的，这意味着即使您向表格中添加新行，它们也可以调整行底纹。怎么做？很高兴你问；这导致为表行加阴影的第二种方法-创建自己的表样式。

多年来，Word中已经提供样式。您可以定义一种表格样式，该样式将阴影自动应用于表格的偶数或奇数行。 （这是表格自动套用格式的方法。）请按照下列步骤操作：

。将插入点放在表中的某处。

。确保显示功能区的“设计”选项卡。

。在“表格样式”组中缩略图的右侧，您会注意到上下箭头。在此下方是一个下拉箭头。单击它以显示在Word中定义的所有表格样式。

。单击新表样式选项。 Word将显示“从格式创建新样式”对话框。 （请参见图1。）

。使用“将格式应用于”下拉列表，选择“奇数带状行”还是“偶数带状行”，具体取决于您是否希望将此样式应用于奇数或偶数行。

。使用对话框中的控件来设置要应用于行的格式。

。根据需要设置样式名称和其他属性。

。单击确定。

现在，您已经为奇数或偶数行创建了阴影样式。您可以根据需要将此样式应用于表格。更改表格中的行数时，格式会自动调整。

如果您想将格式应用于表中的所有其他行，那么到目前为止介绍的解决方案都非常有用。如果您想将格式应用于每三，四或五行，它们就不能很好地工作。在这种情况下，最好使用宏进行格式化。下面是一个宏的好例子，该宏可以将阴影应用于表中的每第三行：

Sub ShadeRows()

Dim iRow As Integer     Dim iHeads As Integer     Dim iRowTtl As Integer

If Selection.Information(wdWithInTable) = True Then         iHeads = InputBox(prompt:="Number of heading rows?", _           Title:="Headings", Default:="1")



iRowTtl = Selection.Tables(1).Rows.Count - iHeads         For iRow = 1 To iRowTtl             If 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 If End Sub

宏询问表中有多少标题行，然后调整对其应用底纹的行。如果运行宏时插入点不在表中，则不会发生任何事情。您还可以通过更改Mod公式来更改阴影的频率（例如，从每三行到每四行一次）。只需以这种方式更改单行：

If iRow Mod 4 = 0 Then

您也可以通过将wdTexture20Percent常量更改为另一个常量来更改阴影量，例如wdTexture5Percent，wdTexture10Percent，wdTexture25Percent等。

您还应该了解，如果在垂直合并了单元格的表上运行宏，则可能会得到意外的结果（如果有）。如果更改表中的行数，则需要再次运行宏以重新应用阴影。

注意：

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

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

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

（Microsoft Word是世界上最流行的文字处理软件。）本提示（6699）适用于Microsoft Word 2007、2010、2013、2016、2019和Office 365中的Word。 Word的旧菜单界面在这里：

阴影表行。