MS Word 2007 论文排版快速教程

ColorCat’s MS Word2007 论文排版快速教程 最初刊载于 http://laoyang.yo2.cn/word 长文排版技巧 ColorCat@newsmth 目录 目录 1. 序言 ............................................................................................ 1 2. 样式 ............................................................................................ 2 3. 目录 ............................................................................................ 6 4. 章节自动编号 ............................................................................ 10 5. 参考文献列表及其引用 ............................................................. 12 6. 插入图片及表格 ........................................................................ 14 7. 公式 .......................................................................................... 17 8. 页码混编 ................................................................................... 18 9. 页眉处理 ................................................................................... 20 10. 论文撰写及排版流程总结 .......................................................... 21 11. 附录 .......................................................................................... 22 1．序言 1 1. 序言 在对论文以及一些长文章的排版里面，很头疼的是重复劳动、自动化程度不 高的问题。比如目录、对文献的引用等。其实这些重复劳动是没有必要的，用 MS Word 都可以解决这些问题。 另一些头疼的问题是自动编号项的错乱，包括章节编号的错乱、页码错乱等。 这是因为你学习的 Word 排版是不成体系的，东学一个技巧西学一个方法，没有 办法从整体上做出一个排版正确的论文。 在做毕业设计的那一个学期，在真正开始写之前，我看了《Word 排版艺术》 这本书，然后针对论文的特性总结了一套排版方法，实践证明这套方法是行之有 效的，不仅可以减少一些不必要的麻烦和重复劳动，还可以让你把主要的注意力 放在 内容 财务内部控制制度的内容财务内部控制制度的内容人员招聘与配置的内容项目成本控制的内容消防安全演练内容 上。最后我的论文排版没有用超过 15 分钟的时间，取得了和那些最后 把精力全部放在解决前述头疼问题的同学同样的效果。 用 30 分钟阅读完这个教程并加以适当的练习，以后每次排版论文或者有排 版 格式 pdf格式笔记格式下载页码格式下载公文格式下载简报格式下载 要求 对教师党员的评价套管和固井爆破片与爆破装置仓库管理基本要求三甲医院都需要复审吗 ，有目录、注解、引用等补充内容的文档，只需要 5 分钟就可以了。 每一部分会给出一些的“高级内容”，提供几个关键词，供有兴趣的同学进 一步研究。 这篇文章仅会对单文档文章进行说明，如果要用多文档组成文章的话，请 Google“主控文档”或者求助于 MS Word 的帮助。 2．样式 2 2. 样式 “无样式不成排版” Word 中所谓的样式（Styles），是指一类“格式（Formats）”的集合，它指定 了文字的呈现方式。 比如宋体三号加粗、段前 1 行段后 0.5 行，行高 20 磅，这些每一项都是一个 “格式”：字体格式，段落格式，编号格式等。 如果我们将这些所有的格式组合起来，就形成了一个“样式”。 你可以在 Word 自带的样式编辑器里面对样式进行新建、修改和删除。在 Word2007 里面，对样式的操作主要是集中在图 2-1 所列的位置上，在“样式窗 口”里，下面有三个按钮：新建样式、检查样式和管理样式，在论文排版的时候， 一般最多只用到第一个。 图 2-1 MS Word 中对样式操作的地方 你选择了一段文字之后，在“快速样式列表”中点击任意一个样式，这段选 择的文字就会变为相应样式。 在快速样式列表中，可以点右边的 来翻到下一行、或者点 来查看整个快 速样式列表的内容。论文中出现的“致谢”、“参考文献”、“附录 A”、“附录 B” 这几个的标题，因为不需要自动编号，我们可以按照论文格式的要求，设置好一 2．样式 3 个之后，按照保存为快速样式，名字不妨起为“抬头”。 图 2-2 从格式生成样式 在任何一个样式上右击，可以有如图 2-3 的菜单出现。可以看到，能够对样 式进行修改、同时可以选择所有应用这个样式的文字。 图 2-3 对样式的操作 点击修改之后，会出现图 2-4 的窗口，正如之前指出的，样式是格式的集合， 我们可以在左下角的格式修改框中修改这个样式中包含的所有格式，包括字体格 式、段落格式等。（注意在字体格式设置里面，中文字体和西文字体是可以独立 2．样式 4 设置的） 图 2-4 对样式的修改 如果你已经有了一个样式，叫做“题目”，它代表的是“宋体三号加粗居中、 段前 1 行段后 0.5 行，行高 20 磅”。那你把这个样式赋予任何文字，那这些文字 就会是“宋体三号加粗居中、段前 1 行段后 0.5 行，行高 20 磅”的格式。 为什么要介绍样式？因为在目录的生成中，是以“样式”作为是否在目录中 出现的标识，并且在章节自动编号中也需要样式才能完成。 Ok，既然你知道了什么是样式，那以下的几个问题就能迎刃而解了  消除页眉上的横线：修改“页眉”样式的边框  正文首行缩进、标题首行不缩进：修改正文样式的“段落格式”-“首行 缩进”，保存之后修改标题样式的段落格式，改为不缩进。 2．样式 5 高级内容：  样式修改中的“样式基准”以及“后续段落样式”  制表符 3．目录 6 3. 目录 在一个新建的空白文档中，自然有“标题 1”“标题 2”“标题 3”三种样式， 当你打开样式管理器（图 3-1），你还会发现从标题 4 到标题 9，目录 1 到目录 9 的样式，叫做“题注”的样式等等。不过后面这些样式在你不用的时候会隐藏起 来。 图 3-1 样式管理器 在 Word 中，被赋予“标题 1”这个样式的文字是文档结构中的最高级，依 次类推，“标题 2”对应的就是次高级„„，具有“标题”样式的文字在左边会有 一个小小的实心黑色方形，只是一个标示，在打印中不会出现。而“正文”样式 的文档是不会出现在文档的结构里面。 3．目录 7 同理，“目录 1”则是目录里面最高级对应文字的样式，“目录 2”是目录里 次高级的文字的呈现方式。 看到这里，你或许明白了论文中目录的生成，实际上就是把具有“标题 x” （x=1～9）的对应的文字及其页码从文档中“抓”出来，形成一个目录。目录文 字按照“目录 x”(x=1～9)的样式来呈现。 在文档中插入目录的方法，如图 3-2 所示 图 3-2 插入目录的方法 在弹出的新窗口（图 3-3）中，可以做一些对目录的修改。你可以选择目录 中没有页码、或者页码对齐方式以及从项目到页码之间用什么符号来连接。 3．目录 8 图 3-3 插入目录窗口 在图 3-3 的“选项”（图 3-4）中，可以选择用哪些样式来生成哪个级别的 目录，图中所示的是标题 1-3 分别为 1-3 级目录，如果没有目录级别则不出现在 目录中。 图 3-4 目录选项 在实际论文中，按照学校的要求，你最好选择是 3 层目录，也就是把标题 1~3 3．目录 9 提出来作为目录，同时，对于“致谢”等非正文内容，如果他们的标题的样式是 同一个（前节所述“抬头”），那你就可以把这个样式作为第 1 级目录的内容。 图 3-5 修改目录样式 在图 3-3 的“修改”（图 3-5）中，可以修改目录 1-9 的样式，也就是其呈现 的方式。点击“修改”可以回到我们的图 2-4。 你现在可以试试，先写几行字，比如“第一章”“1.1”“1.2”“第二章”“2.1” 等，然后分别赋予它们标题 1 和标题 2 的样式，再在当前光标所在的地方插入一 个目录。就是这么简单！ 怎么样把生成的二级目录的缩进去掉？其实很简单，你编辑“目录 2”这个 样式，去掉左下角“格式”--“段落”中的左缩进，然后确定。 为什么目录的样子没有改变？这是因为目录相当于是一段公式（学名叫做域 代码），要经过重新计算才会改变内容。你这个时候按 CTRL+A，全选，然后再按 F9 刷新域代码，看看目录是不是已经 OK 了。以后要是我们的文档结构发生变化 了，但是目录是不会马上就发生变化的，同样需要 F9 一下。 4．章节自动编号 10 4. 章节自动编号 按照学校的要求，论文的第一级标题格式形如“第 1 章”，第二级是“1.1”， 第三级是“1.1.1”。那么我们必须设置一个多级编号来满足层次上的这个要求。 但是我们必须让这个多级编号和“标题 1”，“标题 2”，“标题 3”的样式链接 起来，这样我们才能在目录中抓出来，在我们之后的写作中也不至于出现混乱编 号等现象。 在“多级列表”中，点选“定义新多级列表”（图 4-1） 图 4-1 新增多级列表 然后修改编号格式，将第一级改为“第 1 章”，注意里面的 1 应该是有灰色 4．章节自动编号 11 底纹的。然后点击下面的“更多”，在右边新出现的几个选项中，将多级列表的 第一级和“标题 1”样式链接。同时选择在库中的级别为 1。 图 4-2 修改多级列表 依次类推，将 2 级和 3 级列表和“标题 2”“标题 3”的样式链接，库中的级 别分别为 2 和 3.缩进和对齐都按照论文要求设为 0 厘米。 然后按照论文格式要求，修改标题 1-3 的格式，包括字体和段落。 之后你写论文，就可以只写章节的名字而不是编号了，比如第一章 引言， 就只需要键入“引言”，然后使其为标题 1 的样式就行，如图 4-3 所示 图 4-3 自动编号示例 5．参考文献列表及其引用 12 5. 参考文献列表及其引用 现在主流做参考文献和对参考文献的引用的有两种方法，一是利用尾注，二 是直接用一个编号项。我个人倾向于后一种，因为用尾注的话你得多操作两步： 1.删除尾注分隔符及扩展分隔符，2.修改尾注编号的样式。这两种操作的步骤都 比较多。所以不推荐用尾注来做。 那怎么样来做参考文献呢？首先你大致把你的参考文献列表列出来，然后在 每一条前面增加一个形如[x]的自动编号项，并且按照学校要求，设定为“宋体五 号/Times New Roman 10.5pt，固定行距 17pt，段前后间距 3pt”的样式（你可以 为这个样式取个名字，叫做参考文献正文）。接下来，在要引用的地方，点击“引 用”选项卡“题注”中的“交叉引用”。 图 5-1 插入交叉引用 图 5-2 插入对文献的引用 5．参考文献列表及其引用 13 引用类型选择“编号项”，引用内容选择“段落编号”，然后点“插入”就可 以在当前光标所在位置插入对那一篇文献的引用了，即使那篇文献的编号有所改 变，引用的编号也会跟着改变的。如图 5-2 所示。 现在做好了参考文献列表及其引用，但是你发现没有，这和我们想要的还差 了一点，有时候我们希望对参考文献的引用是上标的形式。这个问题比较好解决， 由于你是从前往后写的，你可以插入一个改一个（快捷键是 CTRL+=），或者采用 批量修改的方法，把所有的引用都插入了再修改。但是，你对参考文献的引用默 认的是正文样式，怎么样批量修改呢？ 这里可以使用 Word 自身提供的查找-替换功能。我们点开“查找-替换”图 标或者按 CTRL+H，点“更多”，勾选“使用通配符”,然后查找内容为“\[[0-9]{1,}\]”, 并且点左下角的“格式”-“样式”，在弹出的窗口中选“正文”。然后点一下替换 框，但是不要输入东西，点左下角“格式”-“字体”，设为上标。然后点击“全 部替换”就 OK 了。至于为什么这么操作，可以看一下 Word 帮助中的“使用通 配符”。 高级内容：  Word2007 的文献管理功能  尾注脚注的区别、用尾注来做参考文献列表的方法 6．插入图片及表格 14 6. 插入图片及表格 学校要求在每一幅插图或者表格下面添加如“图 1-2 原理”字样的题注。其 操作方法是： 在文章中插入一个图片，然后右击图片（图 6-1），选择“插入题注”，如果 没有“图”或者“表”的话就新建一个。取消“题注中不包括标签” 在“编号”选项中勾选“包含章节号”，如果你是采用前面所说的章节自动 编号方式的话，出来的图或者表的题注就是“图 1-1”（章节起始样式设为标题 1） 或者“图 1.1-1”（章节起始样式设为标题 2）。 图 6-1 插入题注 图 6-2 题注设置 6．插入图片及表格 15 题注的字体段落等，由样式“题注”控制。 在引用图或者表的时候，依然选择用“交叉引用” 这个功能来对题 注进行引用，引用类型选择“图”（或表），引用类型为“只有标签和编号”。 如果论文中有图的话，学校要求需要插入一个图目录，如果有表的话，需要 插入一个表目录。直接在“引用”-“题注”-“插入图表目录”（图 6-3），这个 时候会给你选择是对哪个标签生成目录，如果选图的话就把所有用“图”这个标 签的“东西”名字及其所在位置抓成目录（图 6-4）。 其设置与普通目录相同。 图 6-3 插入图表目录 图 6-4 图表目录设置 另外，我们经常遇到的问题是，在嵌入式图片同文字在一段的时候，图片的 下缘不会和文字的下缘对齐。要想对齐的话，可以选中这幅图片，然后打开字体 6．插入图片及表格 16 格式设置，“字符间距”选项卡中，位置选择“降低”，磅值稍作调整即可，如图 6-5 所示。 图 6-5 嵌入式图片混排对齐 另外，要是你按照学校的格式要求把样式设置好了之后，插入图片发现图片 只有下半截的话，选中该图片，行距改为单倍行距即可。 7．公式 17 7. 公式 A． 希腊字母的输入 例如 y = sin(这种简单的公式，其实不用特别的插件功能就能弄好。 不要使用“插入”——“符号”来输入希腊字母，那样输入的希腊字母不好 看，缺乏美感。例如上一段的那个公式如果用这种方法就是 y = sin(α +β )。高下 立判。 比较好的方法，是按表 7-1 来输入一个英文字母，然后把这个英文字母设成 Symbol 字体 a  h  o  v  A  H  O  V  b  i  p  w  B  I  P  W  c  j  q  x  C  J  Q  X  d  k  r  y  D  K  R  Y  e  l  s  z  E  L  S  Z  f  m  t   F  M  T   g  n  u   G  N  U   表 7-1 希腊字母与英语字母的对应 B． 公式的输入和引用 首先推荐的还是 MathType，容易上手，这里不再多说。 附录 A 中给出了 MathType 和 Word2007 自带的公式的比较，可供参考。 如果想用 Word2007 自带的公式编辑器来做公式的编号和引用，请参考附录 B，有任何问题可以发邮件问我或者在水木社区 OfficeSoft 版提出。 8．页码混编 18 8. 页码混编 一般要求论文目录之前的部分，页码用罗马数字编写，目录之后用阿拉伯数 字编写。要实现混编功能，得采用 Word 里面的分节功能。使不同的节之间的页 码呈现方式不同。 在“页面布局”——“分隔符”中可以插入分节符，有四种分节符，如图 8-1， 说明很清楚，如果要每一章都从右边开始的话，可以在每章前插入“奇数页分节 符”。 图 8-1 插入分节符 8．页码混编 19 插入后，如果你选择“显示编辑标记”（图 8-2）的话 图 8-2 显示编辑标记 就能看到页面中出现一个分节符 图 8-3 分节符 说明分节符前后的文档已被分成两节。 因此，我们在目录前一页插入一个分节符，在目录前页面页脚的页码设置中， 设置为罗马字母 图 8-4 设置页码格式 然后在目录后第一页页脚的设置中，取消“链接到前一个页脚”，然后再设 置页码格式为阿拉伯数字，重新编码即可。 图 8-5 取消对前一个页脚的链接 9．页眉处理 20 9. 页眉处理 有时候我们喜欢在页眉上加入比如“第 1 章 文献综述”等字样，只需要编 辑页眉，然后选择“插入”-“文档部件”-“域” 图 9-1 插入域代码 然后选 styleRef 域命令，样式名为标题 1，勾选“插入段落编号”就可以了。 图 9-2 域代码设置 10．论文撰写及排版流程总结 21 10. 论文撰写及排版流程总结 1. 新建一个多级列表，链接到标题 1-标题 3 2. 修改正文、标题 1-标题 3、目录 1-3、题注的字体格式和段落格式。 3. 新建一个带编号的样式“参考文献”、用来处理参考文献列表的内容 4. 新建一个样式“抬头”，处理“致谢”、“参考文献”、“附录”等的标题 5. 完成参考文献列表，标题用“抬头”样式、内容用“参考文献”样式 6. 写正文：对章名采用标题 1 样式、节名采用标题 2 样式、小节名采用标 题 3 样式。在需要引用参考文献的时候，用“交叉引用”，同时上标。为 插图和表格添加题注，也用交叉引用来引用其名称。 7. 生成总目录，抓取标题 1-3 和“抬头”样式 8. 生成图目录和表目录 9. 分节、修改页码 11．附录 22 11. 附录 A． MathType 和 Word2007 自带公式编辑器的比较 发信人: speedfirst (菜牛), 信区: OfficeSoft 标 题: Re: word 2007 新添的那个公式编辑器和 mathtype 比到底怎么样? 发信站: 水木社区 (Sun Nov 2 10:34:43 2008), 站内 字体美观：Office 自带的 Cambri Math 更好。而且由于和常规的字体进行了集成，所以一般的字体样 式也可在公式中使用。 可编辑性：Office 自带的在文字嵌入公式上表现更出色，专业型和线性切换也很合我的脾胃。 兼容性上：MathType 的更好。Office07 带的公式在 03 中貌似会走样，而且没法调整。也没法在 03 中 装 07 的公式编辑器。此外 MathType 由于是对象，所以可以在任何 Office 组件中编辑。但是 Office 的公式 编辑器只能在 Word2007 里用。 符号丰富度上：Office 自带的明显比 MathType 带的符号多很多。同时还可以利用安装字体的方式无 限扩充。 公式复杂度上：二者持平吧，都能满足大部分的需要了。 便利程度上：Office 的更优一些吧，毕竟装了 Word2007 就不用装别的了，而且并不废柴。这有点当 年 IE 和 Netscape 的意思。 B． Word2007 公式自动编号和引用宏代码 以’开头的是使用说明 点击这里下载 '*** Updated by Colorcat@newsmth to let the macro work on Chinese edition 2008-12 '*** Copy and paste everything below this line to Word 2007's View->Macros->View Macros->Edit. '*** if the "Edit" button is grayed out, you can create a dummy macro and then edit it. ' Equation and Theorem Number Manager for office 2007 ' ' (c) Dong Yu (http://research.microsoft.com/~dongyu/) 2007 ' ' Last Updated - 2/28/2007 11．附录 23 ' ' These macros are provided AS IS. You can copy it, use it, and distribute it as long as ' this statement and the following usage instructions are not removed. ' ' Special Thanks to Murray Sargent and Andrei Burago in the Microsoft Office team for the valuable discussions ' and suggestions. ' ' Usage instruction: ' ' *** installation *** ' (1) Copy and paste all the macros into Word 2007's View->Macros->View Macros->Edit ' (2) Right click the menu bar and select customize Quick Access Bar ' (3) Select "Macros" in the "choose commands from" text box. ' (4) Select IncreaseChapterNumber, InsertNumberedEquation,InsertEquationNumber, ' InsertEquationNumberWithChapter,InsertTheoremNumber, InsertTheoremNumberWithChapter ' InsertNumberReference, UpdateAllNumbers, CenterAllEquations, and LeftAlignAllEquations ' from the left pane and add them to the right pane ' (5) You can modify the text and the icons of a macro by selecting the macro and click "modify". ' It's better to choose different icons for different macros and use simpler names ' (6) Click ok and you should see new icons in the ribbon. ' ' *** Usage *** ' NOTE: Make sure the table's "View GridLines" (under the Home menu) is ON. ' (1) To insert a numbered equation, click the InsertNumberedEquation marco. ' NOTE: The equations will be aligned based on the last choice you have made. By default equations are center-aligned. ' NOTE: By default, the inserted equation number is in the format of (1). If you want (1.1) format ' you can delete the equation number and then click the InsertEquationNumberWithChapter macro ' subsequent equations inserted will have the new equation number format. ' NOTE: If you want to insert an equation without number, you should insert with the macro and remove the ' equation number for better formatting later on. ' NOTE: The theorem number and the equation number will use the same format, i.e., either all without ' the chapter number or all with the chapter number. ' (2) To center-align all equations, click the CenterAllEquations marco. ' (3) To left-align all equations, click the LeftAlignAllEquations macro. You will be prompted for the left margin. ' (4) To insert an equation number in the format of (1) (2), etc, click the InsertEquationNumber marco ' (5) To insert an equation number in the format of (1.1) (1.2), etc, click the ' InsertEquationNumberWithChapter macro. ' (6) To insert a theorem number without a chapter number, click the InsertTheoremNumber marco ' (7) To insert an theorem number with a chapter number,click the InsertTheoremNumberWithChapter macro. ' (8) To increase the chapter number by one, click the IncreaseChapterNumber macro. You should only ' insert it in front of the chapter title. If you have clicked this macro too many times, you can ' turn on the visi (i.e., type CTRL + *) and look for the right-up arrow. Double click the arrow ' to remove the extra chapter-number-increase mark. ' (9) To reference an equation or theorem number, click the InsertNumberReference macro and then double click 11．附录 24 ' the equation or theorem number to be referenced ' (10) To update all equation and theorem numbers, click the UpdateAllNumbers macro Global EquationInsertionPoint As Long Sub InsertEquationNumber() On Error GoTo Err Application.ScreenUpdating = False Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.TypeText Text:="MACROBUTTON NumberReference \* MERGEFORMAT " Selection.TypeText Text:="(" Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.TypeText Text:="SEQ EquationNumber \n \* Arabic \* MERGEFORMAT" Selection.MoveRight Unit:=wdCharacter, Count:=2 Selection.TypeText Text:=")" Selection.Delete Unit:=wdCharacter, Count:=1 'update all numbers UpdateAllNumbers SetEquationNumberFormat "EquationNumberOnly" Application.ScreenUpdating = True Exit Sub Err: Application.ScreenUpdating = True MsgBox Err.Description End Sub Sub InsertTheoremNumber() On Error GoTo Err Application.ScreenUpdating = False Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.TypeText Text:="MACROBUTTON NumberReference \* MERGEFORMAT " Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False 11．附录 25 Selection.TypeText Text:="SEQ TheoremNumber \n \* Arabic \* MERGEFORMAT" Selection.MoveRight Unit:=wdCharacter, Count:=2 Selection.Delete Unit:=wdCharacter, Count:=1 'update all numbers UpdateAllNumbers SetEquationNumberFormat "EquationNumberOnly" Application.ScreenUpdating = True Exit Sub Err: Application.ScreenUpdating = True MsgBox Err.Description End Sub Sub IncreaseChapterNumber() On Error GoTo Err Application.ScreenUpdating = False Dim msg As String msg = "This will increase the chapter number by one. You should only use it once for each chapter " & _ "at the chapter title." & vbCrLf & vbCrLf & _ "To decrease the chapter number, you need to turn on the visi (i.e., type CTRL + *) " & _ "and look for the right-up arrow." & _ "Double click the arrow to remove the extra chapter-number-increase mark." & vbCrLf & vbCrLf & _ "Are you sure you want to insert a chapter-number-increase mark at the current location?" If (MsgBox(msg, vbOKCancel) = vbCancel) Then Exit Sub End If Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.TypeText Text:="MACROBUTTON RemoveChapterIncreaseMark \* MERGEFORMAT " Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.TypeText Text:="SEQ EqnChapter \n \h \* MERGEFORMAT" Selection.MoveRight Unit:=wdCharacter, Count:=2 'reset the equation number to 0 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.TypeText Text:="SEQ EquationNumber \r0 \h \* MERGEFORMAT" Selection.MoveRight Unit:=wdCharacter, Count:=2 11．附录 26 'reset the theorem number to 0 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.TypeText Text:="SEQ TheoremNumber \r0 \h \* MERGEFORMAT" Selection.MoveRight Unit:=wdCharacter, Count:=2 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.InsertSymbol CharacterNumber:=246, Font:="Wingdings", Unicode:=False Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend Selection.Font.Hidden = True Selection.MoveRight Unit:=wdCharacter, Count:=2 SetEquationNumberFormat "ChapterPlusEquationNumber" 'update all numbers UpdateAllNumbers Application.ScreenUpdating = True Exit Sub Err: Application.ScreenUpdating = True MsgBox Err.Description End Sub Sub RemoveChapterIncreaseMark() On Error GoTo Err Application.ScreenUpdating = False If MsgBox("Are you sure you want to remove the chapter-number-increase mark?", vbOKCancel) = vbCancel Then Exit Sub Selection.Delete UpdateAllNumbers Application.ScreenUpdating = True Exit Sub Err: Application.ScreenUpdating = True MsgBox Err.Description End Sub 11．附录 27 Sub InsertEquationNumberWithChapter() On Error GoTo Err Application.ScreenUpdating = False Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.TypeText Text:="MACROBUTTON NumberReference \* MERGEFORMAT " Selection.TypeText Text:="(" Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.TypeText Text:="SEQ EqnChapter \c \* Arabic \* MERGEFORMAT" Selection.MoveRight Unit:=wdCharacter, Count:=2 Selection.TypeText Text:="." Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.TypeText Text:="SEQ EquationNumber \n \* Arabic \* MERGEFORMAT" Selection.MoveRight Unit:=wdCharacter, Count:=2 Selection.TypeText Text:=")" Selection.Delete Unit:=wdCharacter, Count:=1 'update all numbers UpdateAllNumbers SetEquationNumberFormat "ChapterPlusEquationNumber" Application.ScreenUpdating = True Exit Sub Err: Application.ScreenUpdating = True MsgBox Err.Description End Sub Sub InsertTheoremNumberWithChapter() On Error GoTo Err Application.ScreenUpdating = False Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.TypeText Text:="MACROBUTTON NumberReference \* MERGEFORMAT " Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ 11．附录 28 PreserveFormatting:=False Selection.TypeText Text:="SEQ EqnChapter \c \* Arabic \* MERGEFORMAT" Selection.MoveRight Unit:=wdCharacter, Count:=2 Selection.TypeText Text:="." Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.TypeText Text:="SEQ TheoremNumber \n \* Arabic \* MERGEFORMAT" Selection.MoveRight Unit:=wdCharacter, Count:=2 Selection.Delete Unit:=wdCharacter, Count:=1 'update all numbers UpdateAllNumbers SetEquationNumberFormat "ChapterPlusEquationNumber" Application.ScreenUpdating = True Exit Sub Err: Application.ScreenUpdating = True MsgBox Err.Description End Sub Sub UpdateAllNumbers() On Error GoTo Err Application.ScreenUpdating = False Dim loc loc = Selection.start Selection.WholeStory