毕业论文排版（5）：快速表格样式与三线表

我又回来啦！连续肝了三个月的博士毕业论文，内容写完了临终了还有个格式排版，一百八十页、十一万字的word文档。为了帮大家少走弯路，我总结了如何轻松地在两个半小时之内完成排版，大家快来瞧瞧~

快速表格样式

在毕业论文中，表格是不可或缺的内容载体。一个格式统一、美观的表格不仅能提升论文的专业度，还能让数据更加清晰易读。本章将介绍如何快速创建和格式化表格，特别是学术论文中常用的三线表样式。

三线表的定义与要求

三线表是学术论文中最常用的表格形式，其特点是：

• 表格只有三条横线：顶线、栏目线、底线
• 没有竖线，显得简洁专业
• 顶线和底线较粗，一般1.25或1.5磅，栏目线较细，一般0.75或1磅。

三线表因其简洁、专业的特点，被广泛应用于各类学术论文中，是学位论文排版的标配。

手动创建三线表样式

方法一：直接设置表格边框

1. 插入一个表格，选中整个表格：

2. 点击表格属性，进入边框和底纹

3. 把所有的网格框线都关掉，然后点击宽度为1.5磅，创建上下框线

4. 再退出，选择表格的第一行，创建0.75磅的下框线：

三线表的线框格式完成。

方法二：创建三线表样式（推荐）

为了避免每次都要重复设置，可以创建一个三线表样式：

1. 选中一个已经设置好的三线，然后点击表格设计 -> 新建表格样式：

2. 命名样式为”三线表”，设置属性、边框和底纹：
   • 将格式应用于：整个表格
   • 边框：上框线、下框线（1.5磅）
   • 将格式应用于：标题行
   • 边框：下框线（0.75磅）

3. 但是上面只设置了表格的上线边框，还有标题行的下边框未设置：

3. 然后点击确定保存。以后插入表格后，直接点击这个样式即可：

批量格式化全文表格

如果论文中已经有很多表格需要统一格式，可以逐个应用样式，也可以使用宏来批量处理（建议逐个手动操作，因为在当前的框架下，公式也是表格形式，会同步修改公式表格的样式）。

手动逐个格式化

1. 选中表格
2. 点击”三线表”样式
3. 重复以上步骤

使用宏批量格式化

对于大量表格，使用宏可以大大提高效率：

1. 按 Alt + F11 打开VBA编辑器，点击插入 -> 模块：

2. 粘贴以下代码：

Sub FormatAllTables()
    Dim tbl As Table
    For Each tbl In ActiveDocument.Tables
        ' 跳过包含公式的表格
        If Not TableContainsFormula(tbl) Then
            ' 清除所有边框
            tbl.Borders.Enable = False
            
            ' 设置顶线和底线（1.5磅）
            tbl.Rows(1).Range.Borders(wdBorderTop).LineStyle = wdLineStyleSingle
            tbl.Rows(1).Range.Borders(wdBorderTop).LineWidth = wdLineWidth150pt
            tbl.Rows(tbl.Rows.Count).Range.Borders(wdBorderBottom).LineStyle = wdLineStyleSingle
            tbl.Rows(tbl.Rows.Count).Range.Borders(wdBorderBottom).LineWidth = wdLineWidth150pt
            
            ' 设置栏目线（0.75磅）
            If tbl.Rows.Count > 1 Then
                tbl.Rows(1).Range.Borders(wdBorderBottom).LineStyle = wdLineStyleSingle
                tbl.Rows(1).Range.Borders(wdBorderBottom).LineWidth = wdLineWidth075pt
            End If
        End If
    Next tbl
    MsgBox "表格格式化完成！"
End Sub

Function TableContainsFormula(tbl As Table) As Boolean
    Dim cell As Cell
    For Each cell In tbl.Range.Cells
        If InStr(cell.Range.Text, "EQ") > 0 Or InStr(cell.Range.Text, "OMath") > 0 Then
            TableContainsFormula = True
            Exit Function
        End If
    Next cell
    TableContainsFormula = False
End Function

3. 关闭VBA编辑器，按 Alt + F8 运行宏，或点编辑器上的绿色三角形运行宏：

运行宏前建议先备份文档，以防意外情况发生。

表格题注的添加

别忘了给表格添加题注，具体方法可以参阅：毕业论文排版（2）：优雅地自动编号和引用图表：https://www.eatrice.cn/post/WordTutorial2/

一些小tips

1. 表格跨页处理：如果表格跨页，可以设置重复标题行：
   • 选中标题行
   • 点击布局 -> 重复标题行

2. 表格宽度自适应：选中表格，点击自动调整 -> 根据窗口自动调整：

3. 快速选中整个表格：点击表格左上角的十字箭头：

4. 表格与文字混排：如果需要在表格旁添加文字说明，可以使用文本框或将表格设置为环绕方式：

5. 宏安全性设置：如果宏无法运行，可能需要调整宏安全性设置：

   • 文件 -> 选项 -> 信任中心 -> 信任中心设置
   • 宏设置 -> 启用所有宏

各位小伙伴如果使用过程中有问题，欢迎大家留言讨论！😊