关于论文写作的技巧
下面关于论文写作的技巧包括：
插图、格式调整、删掉空白页、公式编号和VBA代码。
1. 插图
单独插图，可以复制进去、导入进去。但是如果出现多副子图，编排就会显得麻烦，所以，引入表格的方式，可以简化图片的调整。
1.1 使用表格插图
在word中选择表格插入，依据需要选择表格的行列数。
若想在表格中插入图片，可以直接将图片复制进去。
然后在表格样式中选择居中位置，这样就做好了。
接着在表设计中的边框中选择无框线。
1.2 图片大小一致
但是，不论是插入图片还是插入表格的图片，我们可能有这种需求：插入的图片我希望大小一致。
此时我们可以选择一张图片，右键选择大小和位置菜单，给他设置大小，然后点击确定，如果已经通过拖动调整好了大小，直接点击确定即可。
接下来，点击你想要大小一致的图片，按下键盘的F4，你会发现图片的大小变得一样了。
1.3 插入图注
选择图片或者选择依照上述方法制作的表格，插入题注。
在插入图注的时候，为了分不同章节，会给它加上前缀，比如图1-2和图1-3都是第一章的图片，前缀为图1-。可以新建标签，填写需要的标签格式，再次打开题注，会显示刚刚创建的选项。
2. 格式
2.1 格式刷
在使用格式刷时，可以双击格式刷以反复使用格式刷，就不会刷完一次后还要再次点击格式刷。
正文格式、标题格式都可以使用格式刷。
2.2 表格格式调整
注意在格式刷刷表格的时候如果刷不了高度和宽度，可以使用表格布局里的高度和宽度选项直接调整。注意这里使用的如果是WPS的word的话，它可能没办法调整。
在表设计中有论文使用的三线表格式，可以直接使用，无需自己调整。
3. 删掉空白页
(6 条消息) Word空白页怎么都删除不掉？用这6个方法随便删！ - 知乎
网上有很多方法，我最常使用的是这几种。
- 打开word的大纲视图，删除空白页的段落符，这一点在WPS的word里也做得到。
-
选择空白页剩余行和空白页前一行，设置段落行距为固定值，1磅。
-
使用shfit+鼠标选择段落，可以选中顽固的分节符，按Delete删除。
4.新开一个文档，到最后一页小心翼翼地一点点复制过去。
4. 公式
4.1 公式居中加编号右对齐
在对公式编号的时候，常用的方法是使用#+回车的方式，这样可以触发word的自动编号对齐功能。
注意：要把光标放在编号括号的右边，按下回车即可自动编号对齐，公式居中。
如果觉得麻烦，直接选中公式的任意位置，按下键盘CTRL+=，方便快捷。
4.2 公式太多？
如果公式太多，首先使用你亲爱的豆包或者其它AI工具，将手写的或者是你AI生成的公式直接截图发给它。实际上，公式和文字混合它也能识别。
然后跟它描述：将其转化为markdown格式，并使用txt输出（这个是为了好复制）。
把你的AI输出的txt文本内容复制。
接下来，使用辅助工具，它网址显示不安全，这里就不复制网址，直接截图，网站的名字是AI doc Helper。
将刚刚复制的文本内容粘贴到左侧，右侧会出现对应的渲染内容，可以导出为word文档。
在其导出的word文档中，可以直接编辑其公式，省去了手动敲公式的麻烦。
使用刚刚学的方法，点击公式，按下CTRL+=，发现加载出来的就是我们想要的公式。
4.3 使用域的方式令公式自动编号
如果公式过多，手动编号如(1-1)不仅浪费时间，而且非常麻烦，不小心漏了个公式再补上去，容易牵一发而动全身，导致编号要重新修改。
我们使用word和WPS都自带的功能，”域“类似编程实现变量递增的方式，更新域就能更新变量从而更新编号。
4.3.1 域的快捷键
在word里使用ALT+F9快捷进入域界面。
再次按下ALT+F9，即可退出域界面。
插入域的快捷键是CTRL+F9。
4.3.2 联系标题
首先进入域，然后插入域，插入域时会出现一个大括号，出现这个算是插入成功了。
在所有一级标题的后方分别插入两个域，输入以下代码：
在所有公式的后方加入如下的代码：
记住这个大括号是CTRL+F9添加的。
在公式末尾回车后或者CTRL+=（刚刚讲的快捷键），得到如下的公式：
然后退出域模式，CTRL+A全选，按下F9更新域。
你就会发现得到了如下自动编号的效果。
4.3.3 代码的解释
1. SEQ seq \h 与 SEQ eq \r\h
这是 Word 里的 序列域（SEQ Field），是用来给章节、图表、公式等自动编号的，论文里很常用。
SEQ seq：定义了一个叫seq的序列，通常是用来给章节编号的。\h：\h是Hide的缩写，意思是 “隐藏域结果”，也就是这个域只起编号作用，不会在页面上显示任何内容。- 所以
SEQ seq \h在这里的作用，就是给章节编号做标记，不影响正文显示。
SEQ eq \r\h：定义了一个叫eq的序列，通常是用来给公式编号的。\r：是Restart的缩写，表示 “从当前编号重新开始计数”，一般是为了让公式编号按章节重置（比如第 4 章的公式从 (4-1) 开始）。\h：同样是隐藏域结果，不显示内容。- 所以
SEQ eq \r\h在这里的作用，就是让本章的公式编号从 1 开始重新计数，同时不显示在正文里。
2. STYLEREF 1 \s
这是 Word 里的 样式引用域（STYLEREF Field），用来引用标题样式的内容，常用来实现 “公式编号带章节号”。
1：表示引用的是 “标题 1” 样式的文本，也就是你论文里的 “第 4 章”。\s：表示引用时只保留章节号，不带标题文字。- 它和后面的
SEQ eq配合，就能生成类似(4-1)这样的公式编号：STYLEREF 1 \s取到章节号，SEQ eq取到公式序号。
5. 没有一键全选公式、全选单词、全选数字怎么办？
5.1 进入宏界面
在word或者WPS中按下ALT+F11，以此进入宏界面，宏界面输入的代码叫VBA宏代码。
打开后右键模块，插入模块。
5.2 使用例子展示改单词格式
接下来我使用一个例子来展示它的效果。
我告诉豆包“使用宏把所有英文单词改为新罗马字体，而不改到参考文献。”，然后复制它给我的代码。
Sub SetEnglishToTimesNewRoman_ExcludeReferences()
' 功能：将正文所有英文单词设为Times New Roman，跳过参考文献部分
Dim rng As Range, wordRng As Range
Dim refStart As Long
Dim doc As Document
Set doc = ActiveDocument
'===== 1. 定位参考文献的起始位置 =====
refStart = doc.Content.End ' 默认到文档末尾
On Error Resume Next
' 查找“参考文献”标题，可根据你的实际标题修改文字
With doc.Content.Find
.ClearFormatting
.Text = "参考文献"
.Forward = True
.MatchWholeWord = True
.MatchCase = False
If .Execute Then
refStart = .Parent.End ' 找到后，将正文结束位置设为参考文献标题之后
End If
End With
On Error GoTo 0
'===== 2. 遍历正文所有单词，设置Times New Roman =====
Application.ScreenUpdating = False
For Each wordRng In doc.Words
' 只处理正文部分（不包括参考文献）
If wordRng.Start < refStart Then
' 跳过纯中文/标点/空格
If Not ContainsChinese(wordRng.Text) Then
' 设置西文字体，不修改中文字体
wordRng.Font.Name = "Times New Roman"
End If
End If
Next wordRng
Application.ScreenUpdating = True
MsgBox "✅ 正文英文已全部设置为Times New Roman，参考文献已跳过！", vbInformation
End Sub
' 辅助函数：判断文本中是否包含中文字符
Function ContainsChinese(str As String) As Boolean
Dim i As Integer
For i = 1 To Len(str)
If AscW(Mid(str, i, 1)) > 255 Then
ContainsChinese = True
Exit Function
End If
Next i
ContainsChinese = False
End Function
原始的文章内容，原始字母为宋体：
在模块窗口复制代码，按下绿色箭头开始运行VBA代码:
结果如下，效果很明显，英文变成了新罗马字体：
5.3 其它格式
宏能实现其它很多一键操作，比如一键选中所有公式、数字等，利用AI工具，对格式的调整会变得更加简单。
一键将中文设置为宋体，英文设置为Times New Roman
传送门：
论文格式——怎么一键将中文设置为宋体、英文设置为Times New Roman
放在最后
利用好一切可以利用的资源，祝你的论文书写顺利完成。
如果有其它补充和疑问，欢迎大家在评论区交流学习，补充的作者看到会更新在文章里，与君共勉。
扫一扫
1013
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
