超实用的论文编辑技巧-公式,图片,参考文献编号.doc

附件1利用Word快捷键提高学位论文编辑效率编辑论文，特别是那种页数几十页甚至上百页的学位论文，是一件很麻烦的事情。插入参考文献、图片编号，公式编号后，如果需要更改其位置，删除或增加，那么其他的参考文献、图片，公式就要重新编号了。上述工作如果手动完成，将会是一件非常复杂的任务。网上有关于使用“域”来进行编号的方法，但也不是十分方便。 而且有时我们希望插入的参考文献编号能够带有方括号“ ”；插入的公式能够自动居中对齐，自动添加编号，且编号自动右对齐；插入的图片编号居中，同时让图片也自动居中。这些都是学位论文排版的要求。本人以前一直苦于寻找一种非常快捷的方法，但在网上始终没有找到，于是自己摸索了一种全新的方法，主要思想是利用Word的“宏”功能。以下是以Word2003来讲述其实现过程的，Word2007也可以用类似方法来实现。但在WPS中下述方法是无效的。过程虽然很长，但是只要耐心一步一步跟着做，一定可以实现！当完成后，以后排版几乎就是一劳永逸的事儿啦！1.实现输入公式后自动添加带括号的编号前期工作：新建一个文档，随便复制三段文字进去，并给每段文字加一个标题（此时标题不要改格式、字体等，不要编号）；打开“格式样式和格式”，设置标题的多级编号，关于如何设置标题多级编号，网上有很多介绍，本文不再赘述；分别选中三段文字的标题，点击“样式和格式”工具栏的“标题1”。设置公式编号的样式：插入引用题注，弹出如下对话框(左)；点击“新建标签”，在弹出的对话框输入名称“公式”（名称一定要是这个），然后点击“编号”，弹出如下对话框（右），按图示设置。 前期工作完成后，开始下面的操作：Step1.点击“工具宏录制新宏”，给定名称，姑且定为“hong”。将宏保存在“新建Microsoft Word文档”，也可保存在“normal”,区别是前者录制的宏只对当前的文档有效，新建一个文档则无效，而后者则将宏保存在了模板中，对所有文档都有效。 Step2.点击上图的“键盘”图标，出现下图对话框，将快捷键指定为“Alt+C”(也可根据自己喜好设置)，同样将更改保存在“新建Microsoft Word文档”，然后单击“指定”，最后点击“关闭”。（做到此处，下面的step3你可以不做，直接按照Step3后面的“备注1”来做，当然你喜欢钻研，也可继续）Step3.此时开始录制宏了，我们需要做的就是输入公式，然后编号，加括号，调整格式，最后停止录制。具体做法为： 使用快捷键“Alt+e”插入公式（这个快捷键是自己设置的，各人根据自己的情况使用相应的快捷键插入公式，若不知道插入公式的快捷键，可直接进入“插入对象（公式编辑器）”来插入公式）。弹出公式编辑器后，在里面随便输入什么或者不输也行，然后关闭公式编辑器。 使用快捷键“Alt+t”插入题注（同样这个也是我自己设置的快捷键，也可以直接进入“插入引用题注” 来实现），选择“公式”，然后作相应设置（如是否包含章节编号等）。若该公式是第一章的第一个公式，那么公式后面会出现“1-1”(前提是已设置好标题编号)。 使用“home”键让光标移动到公式前，然后使用“”键让光标移动到公式后，输入正括号“(” ，接着使用“end”键让光标移动到编号末尾，输入反括号“)”。 将制表符切换为居中制表符（在页面左上角），如下图 然后在上面的标尺添加一个居中制表符（在标尺上单击即可），如下图。其位置即为公式的位置 接着将制表符切换为居右制表符，如下图 然后在上面的标尺添加一个居右制表符，如下图。其位置即为编号的位置 使用“home”键将光标移动到公式前，键入一个“tab”,然后使用“”键将光标移动到公式后，键入一个“tab”，可以看到公式居中对齐，编号右对齐。 点击宏录制工具栏的停止按钮，即完成了该宏的录制。Step4.以后只要使用快捷键“Alt+C”，便会弹出公式编辑器，输入公式后，带括号的编号也自动添加了。有时希望输入的公式不编号，那么使用常规插入公式的方法就可以了，但是如果使用了“Alt+C”插入了带编号的公式也不要紧，直接将编号删除即可，不会影响下次输入公式的编号。 备注1：做到step2时，你可以直接点击停止宏录制，然后点击“工具宏宏”，会弹出VBA界面，删掉sub hong和end sub之间的代码，千万别连sub hong和end sub也删了，然后将下面的代码复制粘贴在sub hong和end sub之间。Application.Run MacroName:=MathTypeCommands.UIWrappers.InsertEquation Selection.TypeText Text:=（ Selection.InsertCaption Label:=公式, TitleAutoText:=InsertCaption1, _ Title:=, Position:=wdCaptionPositionAbove, ExcludeLabel:=1 Selection.TypeText Text:=） Selection.ParagraphFormat.TabStops.Add Position:=CentimetersToPoints(7.3), _ Alignment:=wdAlignTabCenter, Leader:=wdTabLeaderSpaces Selection.ParagraphFormat.TabStops.Add Position:=CentimetersToPoints(14.29 _ ), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderSpaces Selection.ParagraphFormat.TabStops(CentimetersToPoints(14.29).Position = _ CentimetersToPoints(14.6) Selection.HomeKey Unit:=wdLine Selection.TypeText Text:=vbTab Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.TypeText Text:=vbTab Selection.EndKey Unit:=wdLine2.添加参考文献这个同样非常非常实用，可以实现的功能为：按快捷键后，在光标的位置出现一个带方括号的参考文献编号，且位置在左上角；然后光标跳到文档末尾，自动添加参考文献编号，编辑者只用输入参考文献就行了。当在正文任意位置新增参考文献编号后，已存在的参考文献及其编号也会相应改变。这样就避免了自己编号，且新增编号后，其他编号不能相应更改的麻烦。前期工作：在样式和格式工具栏里新建一个名称为“参考文献列表”的新样式，并设置字体，段落等。设置好后可以进行下面的工作。Step1.录制宏，名称为reference，注意名称不要和上面插入公式的宏重复。Step2.用同样的方法指定快捷键为“Alt+R”（做到此处，下面的step3你可以不做，直接按照Step3后面的“备注2”来做，当然你喜欢钻研，也可继续）Step3.将光标插入到需要添加参考文献的位置，输入方括号“” ，按住“shift”键和“”键选中方括号（之所以这样选中括号，是因为在录制宏的状态下，无法用鼠标选中），单击图中圈出的符号，将其设为上标；按“”键使光标移动到方括号中，插入尾注。Step4.文档的末尾自动添加了一个编号，编号有一个空格也是自动添加的，但这个编号是上标的形式，且不带方括号，怎么办呢？先让光标移动到空格前，同样使用“shift”键和“home”键选中编号，然后单击图中圈出的符号，让它恢复为非上标的格式；接着使用“home”键让光标移动到编号之前，输入正方括号“”，然后使用“end”键让光标移动到末尾，接着使用“”键让光标移动到编号之后（即空格前），输入反方括号“”；最后使用“”键将光标定位到空格后。Step5.停止录制宏。Step6.以后只用按快捷键“Alt+R”，然后在文档末尾对应的编号后输入参考文献就行了。如果要删除某个参考文献，直接在文档末尾的参考文献处删除是不行的，必须要删除正文中参考文献的编号，文档末尾对应的参考文献也会随之删除。由于正文参考文献的编号太小，不容易找，没关系，先在末尾的参考文献找到要删除的那个，单击鼠标右键，选择“定位至尾注”，便会自动跳到正文对应的编号位置。Step6.有个问题是参考文献列表顶端会有一条横线，删除的方法是：将视图切换为普通视图，使用该功能随便插入一个参考文献编号，那么下端会出现一个尾注的编辑栏。如下图 选择下拉列表的“尾注分隔符”和“”尾注延续分隔符，删除编辑栏的横线就行了。然后恢复到页面视图就行了。 至此，已经基本完成，但有时希望连续的参考文献编号显示成形如“68”的形式，还需修改宏代码。将sub reference和end sub之间的代码替换为下面的代码。If ActiveWindow.ActivePane.View.ShowAll = fasle Then ActiveWindow.ActivePane.View.ShowAll = True 如果状态符号为关闭状态，那么将其打开，同时设a=1 a = 1 Else a = 0 End If 连续编号样式13 If Selection.Font.Superscript = True Then While Selection.Font.Superscript = True 如果本来就是上标状态，则不切换 Selection.MoveLeft Unit:=wdCharacter, Extend:=wdExtend Wend Selection.MoveRight Unit:=wdCharacter, Count:=3, Extend:=wdExtend Selection.Font.Hidden = True Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.Font.Hidden = False Selection.TypeText Text:= Selection.MoveLeft Unit:=wdCharacter, Count:=1 Else Selection.TypeText Text:= Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend Selection.Font.Superscript = wdToggle 如果不是上标状态，则切换 End If 连续编号样式13 Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.Font.Superscript = wdToggle Selection.MoveLeft Unit:=wdCharacter, Count:=1 With ActiveDocument.Range(Start:=ActiveDocument.Content.Start, End:= _ ActiveDocument.Content.End) With .EndnoteOptions .Location = wdEndOfDocument .NumberingRule = wdRestartContinuous .StartingNumber = 1 .NumberStyle = wdNoteNumberStyleArabic End With .Endnotes.Add Range:=Selection.Range, reference:= End With Selection.Style = ActiveDocument.Styles(参考文献列表) Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.TypeText Text:= Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.HomeKey Unit:=wdLine, Extend:=wdExtend Selection.Font.Superscript = wdToggle Selection.HomeKey Unit:=wdLine Selection.TypeText Text:= Selection.EndKey Unit:=wdLine If a = 1 Then ActiveWindow.ActivePane.View.ShowAll = fasle a=1表明最初状态符号为关闭，所以编号插入完成后恢复状态符号为关闭 End If备注2：做到step2时，你可以直接点击停止宏录制，然后点击“工具宏宏”，会弹出VBA界面，删掉sub reference和end sub之间的代码，然后将上面的代码复制粘贴在sub reference和end sub之间。3.添加图片编号熟悉了以上操作，相信你对该方法的思想已经有所认识，故此部分将过程简化。前期工作：在样式和格式工具栏里新建一个名称为“图片”的新样式，并设置字体，段落等，段落格式一定要是居中对齐；设置图片编号的样式：插入引用题注，弹出如下对话框(左)；点击“新建标签”，在弹出的对话框输入名称“图”（名称一定要是这个），然后点击“编号”，弹出如下对话框（右），按图示设置。 前期工作完成后，开始下面的操作：Step1.单击要编号的图片；Step2. 录制宏，名称为“Figure”，指定快捷键为“ALT+F”;（做到此处，下面的step3你可以不做，直接按照Step3后面的“备注3”来做，当然你喜欢钻研，也可继续）Step3.点击使图片居中；Step4.按键盘上的“”，然后回车；Step5.插入题注，选择名称为“图”的题注（如没有，请在录制宏之前新建该题注）；Step6. 点击使题注居中；Step7.结束宏录制。备注3：做到step2时，你可以直接点击停止宏录制，然后点击“工具宏宏”，会弹出VBA界面，删掉sub Figure和end sub之间的代码，然后将下面的代码复制粘贴在sub Fi