解析Word——Word法宝「样式」之「表格样式」

紫穆清风 · 发表于 2019-10-13 22:40

解析Word——Word法宝「样式」之「表格样式」

一些闲言碎语

我个人认为Word有三大法宝：样式、域和宏。今天我来聊一下我对Word中的【样式】的一些理解。本文默认你已经对基础的样式有了一个基本的了解，或者最起码使用过。

另外还想感叹几句：
本篇文章是我自己的经验之得，是我自己钻研出来的，如果能对大家有帮助，那么这篇文章也就有了价值。另外，网上讲表格样式的文章是少之又少，所以请尊重我，尊重原创，这毕竟是我的心血。

该怎么巧用Word制作三线表？

下图是一张三线表格，理工科人士应该很熟悉这张表格。下图这个表格的要求是：标题栏采用黑体五号，内容栏中文采用宋体五号字，英文用新罗马五号字。我不知道大家平时是如何制作这种表格的，但如果你的方法比我接下来的方法要稍微麻烦一些，就请一定要继续看下去。Word入手不难，难的是高效正确地使用。

三线表

下图是我的方法——创建了标准的【表格样式】，并且设置为默认值。如此一来，插入一个表格后，所有的格式将会自动应用到这个表格上，也就是说插入一个表格就是标准的三线表。

采用表格样式生成的三线表

怎样？你的方法有没有我的方法高效？如果没有，就继续看下去吧！

初识【表格样式】

样式是Word提供给用户的一种非常好的功能，包括基础的【段落样式】、【字符样式】、【链接段落和字符样式】以及很少有人用但功能非常强大的【表格样式】、【列表样式】。

在Word中，自带了许多非常好看的表格样式。如演示图所示，通过单击某个样式就可以快速地给某个表格调整格式，非常便捷。

Word自带样式

演示图：

套用表格样式演示图

看到上边那些非常绚丽的表格样式，你是否也觉得给表格套用表格样式是一种非常便捷高效的方法呢？你想不想自己打造一个属于自己的表格样式呢？继续看吧！

表格术语扫盲

要想新建一个表格样式，必须先了解一下表格的基本组成元素和一些术语。表格，由行和列组成，行列交叉形成单元格。所以总体来说，表格的组成元素只有三种类型，行、列、单元格。参照着下边图片，我们先来解释一下表格中的一些术语：

整个表格：整个表格，包括下边所述所有内容
标题行：第一行一般就是标题行，标题行单元格中填写的是行标签
汇总行：即我们常见的总计行，汇总除标题行外，其他行的数据
首列：表格当中的第一列
末列：表格当中的最后一列，有时我们也在这一列进行总计
奇条带行：表格中的奇数行
偶条带行：表格中的偶数行
奇条带列：表格中的奇数列
偶条带列：表格中的偶数列

表格的部分组成元素

如果你已经弄清了这些概念，我们再来分析一下三线表，这种稍微特殊的表格。

三线表最上边是标题行、最下边是汇总行、中间的部分是奇偶条带行
标题行：中文黑体五号、英文Times New Roman，只有上下边框线
汇总行：中文宋体五号、英文Times New Roman，只有下边框线
除标题行和汇总行外的其他行：中文宋体五号、英文Times New Roman
具体细节设置，例如：字体颜色、字形、单元格对齐方式、表格其他属性可以根据情况自行设置。

新建三线表样式，先设置整个表格的格式

个人经验：先整体，再局部。先设置整个表格的格式，再设置其他行的格式。
步骤：

打开样式窗口
单击新建样式按钮
键入样式名称，可以任意命名(最长255字符)
选择样式类型：表格
样式基准保持【普通表格】不变
将格式应用于：【整个表格】

设置整个表格的格式

设置标题行格式

步骤：

把将格式应用于：切换到【标题行】
单击对话框左下角【格式】按钮，再单击【字体】，打开字体对话框，设置中英文字体、字号、颜色等信息，设置完后单击确定即可
给标题行添加上框线和下框线（边框线是段落格式，如果只添加边框线，可以按照图中所示方法直接添加。但如果你还要设置其他段落格式，可以按照设置字体的方法，从【格式】按钮中单击【段落】，进行详细的段落格式设置。）
如果单击一次边框线之后，预览图中没有出现，可以再单击应用一次，就会添加上了。（这算是Word的一个bug吧）

设置标题行格式

设置汇总行格式

步骤：

把将格式应用于：切换到【汇总行】
单击对话框左下角【格式】按钮，再单击【字体】，打开字体对话框，设置中英文字体、字号、颜色等信息，设置完后单击确定即可
给汇总行添加下框线（边框线是段落格式，如果只添加边框线，可以按照图中所示方法直接添加。但如果你还要设置其他段落格式，可以按照设置字体的方法，从【格式】按钮中单击【段落】，进行详细的段落格式设置。）
如果单击一次边框线之后，预览图中没有出现，可以再单击应用一次，就会添加上了。

设置汇总行格式

一些细节设置：设置表格居中

表格的一些基础设置已经完成，现在我们再设置一下【表格属性】，这里的表格属性和我们插入的普通表格的表格属性一样，可以设置表格的对齐方式、表格的高度、是否跨页断行等。

设置表格居中

将创建好的表格样式设置为默认值

我们创建好的样式将会保存在表格样式中，如果我们后期对该样式有任何需要调整，只需要找到该样式之后，右击进行修改或者删除，或者进行其他的设置。这里我们将我们创建好的【三线表】表格样式设为默认值，将会弹出一个对话框，询问是否要保存到该文档中还是保存到模板中。在这里，保存到该文档中即可。如果你要是经常用到三线表，你可以选择保存到模板中，比如保存到Normal模板中，这样你新建的默认表格都将会是三线表。

将某个表格样式设置为默认值后，我们单击插入一个表格时，将会自动套用该表格样式。

这是怎么回事？

抛出一个你可能会遇到的一个问题：真实的效果和表格样式有所不同，表格样式的某些设置似乎没有生效。
例如下图，标题行设置的是黑体五号，可是当插入一个的时候，标题行却不是黑体，而是宋体，这是怎么一回事呢？

标题栏字体非表格样式中的黑体

具体原因，我们以后再解析。哈哈哈！
今天的创建表格样式你学会了吗？毕竟我只是按照我自己的理解去解析，不知道自己讲的是否简单、逻辑是否清晰，如果有讲的不对的地方，还请批评指教。本篇文章先在今日头条发布过，当时想省力直接复制过来直接发表，但文章却删除了。这次把文章重新整理了一下，希望可以通过审核吧！谢谢！

紫穆清风 · 发表于 2019-10-14 21:26

先占一个楼层，留作以后去用。

cai6254 · 发表于 2019-11-19 00:43

楼主说的“抛出一个你可能会遇到的一个问题：真实的效果和表格样式有所不同，表格样式的某些设置似乎没有生效。
例如下图，标题行设置的是黑体五号，可是当插入一个的时候，标题行却不是黑体，而是宋体，这是怎么一回事呢？”
这个问题也困扰我好久了。我感觉好像是除了设定的表格样式对表格起作用，还有别的设置（插入表格位置的段落样式）对表格样式有影响，是不是这样啊？楼主给讲讲吧~~

紫穆清风 · 发表于 2019-11-19 22:26

cai6254 发表于 2019-11-19 00:43
楼主说的“抛出一个你可能会遇到的一个问题：真实的效果和表格样式有所不同，表格样式的某些设置似乎没有生 ...

样式优先级导致的，表格样式的字体格式被某个优先级高的样式覆盖了，无法生效

onthetrip · 发表于 2019-11-20 08:44

本帖最后由 onthetrip 于 2019-11-20 09:19 编辑

好贴。请问楼主，为什么在样式窗口中找不到新建的三线表？

yhs185 · 发表于 2019-12-20 20:02

三线表样式

紫穆清风 · 发表于 2019-12-21 11:12

onthetrip 发表于 2019-11-20 08:44
好贴。请问楼主，为什么在样式窗口中找不到新建的三线表？

样式窗格中没有全部显示出来，你打开【管理样式】，在里边进行查找就会找到了。

紫穆清风 · 发表于 2019-12-21 11:15

紫穆清风发表于 2019-10-14 21:26
先占一个楼层，留作以后去用。

Sub 三线表表格样式()
b = False
Set MyDoc = ActiveDocument
MyTableName = "河师大论文表格专用"
For Each MyStyle In MyDoc.Styles
If MyStyle.NameLocal = "河师大论文表格专用" Then
Application.StatusBar = "该样式已存在！"
Exit Sub
Else
b = False
End If
Next
If b = False Then
ActiveDocument.Styles.Add Name:=MyTableName, Type:=wdStyleTypeTable
' 整体表格字体设置
With ActiveDocument.Styles(MyTableName).Font
.NameFarEast = "宋体"
.NameAscii = "Times New Roman"
.NameOther = "Times New Roman"
.Name = "Times New Roman"
.Size = 10.5
End With
' 整体表格段落设置
With ActiveDocument.Styles(MyTableName).ParagraphFormat
.LineSpacingRule = wdLineSpaceSingle
.Alignment = wdAlignParagraphCenter
.SpaceAfter = 0
End With
With ActiveDocument.Styles(MyTableName).Table
.Alignment = wdAlignRowCenter
.AllowPageBreaks = True
.AllowBreakAcrossPage = True
End With
' 整体表格边框线设置
With ActiveDocument.Styles(MyTableName).Table.Borders
.OutsideLineStyle = False
.InsideLineStyle = False
End With
With ActiveDocument.Styles(MyTableName).Table.Borders(wdBorderBottom)
.LineStyle = wdLineStyleSingle
End With
' 标题行边框设置
With ActiveDocument.Styles(MyTableName).Table.Condition(wdFirstRow)
With .Borders(wdBorderTop)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth050pt
End With
With .Borders(wdBorderBottom)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth050pt
End With
End With
' 标题行段落格式设置
With ActiveDocument.Styles(MyTableName).Table.Condition(wdFirstRow). _
ParagraphFormat
.LineSpacingRule = wdLineSpaceSingle
.Alignment = wdAlignParagraphCenter
End With
' 标题行字体格式设置
With ActiveDocument.Styles(MyTableName).Table.Condition(wdFirstRow).Font
.NameFarEast = "黑体"
.NameAscii = "Times New Roman"
.NameOther = "Times New Roman"
.Name = "Times New Roman"
.Size = 10.5
End With
' 汇总行边框线设置
With ActiveDocument.Styles(MyTableName).Table.Condition(wdLastRow).Borders(wdBorderBottom)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth050pt
End With
' 汇总行段落格式设置
With ActiveDocument.Styles(MyTableName).Table.Condition(wdLastRow).ParagraphFormat
.LineSpacingRule = wdLineSpaceSingle
.Alignment = wdAlignParagraphCenter
End With
' 汇总行字体格式设置
With ActiveDocument.Styles(MyTableName).Table.Condition(wdLastRow).Font
.NameFarEast = "宋体"
.NameAscii = "Times New Roman"
.NameOther = "Times New Roman"
.Name = "Times New Roman"
.Size = 10.5
End With
End If
Application.StatusBar = "三线表表格样式新建完毕！"
End Sub

复制代码

紫穆清风 · 发表于 2019-12-21 11:25

紫穆清风发表于 2019-10-14 21:26
先占一个楼层，留作以后去用。

Sub 三线表表格样式()
b = False
Set MyDoc = ActiveDocument
MyTableName = "河师大论文表格专用"
For Each MyStyle In MyDoc.Styles
If MyStyle.NameLocal = "河师大论文表格专用" Then
Application.StatusBar = "该样式已存在！"
Exit Sub
Else
b = False
End If
Next
If b = False Then
ActiveDocument.Styles.Add Name:=MyTableName, Type:=wdStyleTypeTable
' 整体表格字体设置
With ActiveDocument.Styles(MyTableName).Font
.NameFarEast = "宋体"
.NameAscii = "Times New Roman"
.NameOther = "Times New Roman"
.Name = "Times New Roman"
.Size = 10.5
End With
' 整体表格段落设置
With ActiveDocument.Styles(MyTableName).ParagraphFormat
.LineSpacingRule = wdLineSpaceSingle
.Alignment = wdAlignParagraphCenter
.SpaceAfter = 0
End With
With ActiveDocument.Styles(MyTableName).Table
.Alignment = wdAlignRowCenter
.AllowPageBreaks = True
.AllowBreakAcrossPage = True
End With
' 整体表格边框线设置
With ActiveDocument.Styles(MyTableName).Table.Borders
.OutsideLineStyle = False
.InsideLineStyle = False
End With
With ActiveDocument.Styles(MyTableName).Table.Borders(wdBorderBottom)
.LineStyle = wdLineStyleSingle
End With
' 标题行边框设置
With ActiveDocument.Styles(MyTableName).Table.Condition(wdFirstRow)
With .Borders(wdBorderTop)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth050pt
End With
With .Borders(wdBorderBottom)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth050pt
End With
End With
' 标题行段落格式设置
With ActiveDocument.Styles(MyTableName).Table.Condition(wdFirstRow). _
ParagraphFormat
.LineSpacingRule = wdLineSpaceSingle
.Alignment = wdAlignParagraphCenter
End With
' 标题行字体格式设置
With ActiveDocument.Styles(MyTableName).Table.Condition(wdFirstRow).Font
.NameFarEast = "黑体"
.NameAscii = "Times New Roman"
.NameOther = "Times New Roman"
.Name = "Times New Roman"
.Size = 10.5
End With
' 汇总行边框线设置
With ActiveDocument.Styles(MyTableName).Table.Condition(wdLastRow).Borders(wdBorderBottom)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth050pt
End With
' 汇总行段落格式设置
With ActiveDocument.Styles(MyTableName).Table.Condition(wdLastRow).ParagraphFormat
.LineSpacingRule = wdLineSpaceSingle
.Alignment = wdAlignParagraphCenter
End With
' 汇总行字体格式设置
With ActiveDocument.Styles(MyTableName).Table.Condition(wdLastRow).Font
.NameFarEast = "宋体"
.NameAscii = "Times New Roman"
.NameOther = "Times New Roman"
.Name = "Times New Roman"
.Size = 10.5
End With
End If
Application.StatusBar = "三线表表格样式新建完毕！"
End Sub

复制代码

这是我自己写的一个新建三线表样式的代码，如果不想手动建立三线表，可以用这个代码来建立三线表样式。

40525299999 · 发表于 2020-1-8 18:03

漂亮，学习了，收藏

		自动登录	找回密码
密码			免费注册

[原创] 解析Word——Word法宝「样式」之「表格样式」

评分

评分