- 1、本文档共6页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
office word中尾注的使用与设置,用于参考文献的使用
office word中尾注的使用与设置尽管我们写科技文献时一般使用专业软件,但是office所带的word还是为大多数人常用的。而写文献时,常常需要加入引用参考文献,一般是以尾注的方式加入,下面就介绍下用word来为引用的参考文献加入尾注的方法。1. 以尾注的方式插入第一个 参考文献。将光标定位于word文档中将要插入参考文献的位置,按“插入/引用/脚注和尾注”。出现一菜单,选择“尾注”, “文档结尾”,编号格式为“1,2,3”。按“插入”按钮,就在该处就插入了一个上标“1”,而光标自动跳到文档最后,一个上标“1”的地方,这就是输入第一个参考文献的地方。参考文献标注要求用中括号把编号括起来,方法详见下面链接(注意:只在参考文献被引用的地方添加中括号,在参考文献文本中不必添加中括号,因为第十条要重新自动编号)。然后按照排版格式要求输入参考文献。注意:给尾注编号加方括号的简单方法:虽然借助word的宏工具可以直接插入带方括号[]的脚注或者尾注,但毕竟要安装一个东西,麻烦~~~。???? 有没有更简单的方法改变尾注的编号呢?答案就在强大的word替换功能里。大家一般都熟悉常用的查找和替换,但是一些特殊字符的查找和替换恐怕很少有人用过。如怎么批量清除段落之间多余的空行呢?我们只要查找^p^p...,并替换为^p即可。这里的^p就是换行符。再说如何用特殊字符替换功能给尾注编号加方括号。很多杂志和论文要求参考文献编号带有方括号,但是word的脚注/尾注中默认格式中唯独没有方括号。如果用自定义方法加入方括号,当你调整段落顺序后,参考文献的序号不会跟着调整,麻烦更大了。我们还是用默认的1,2,3插入尾注吧,等你做完了所有工作,再用word的特殊字符将尾注编号替换为带方括号格式的[1],[2],[3]即可,当然也可以替换为:{}《》等格式。具体操作办法如下:如果用了尾注就查找尾注标记^e,然后全部替换为[^]即可;如果用了脚注就查找脚注标记^f,再全部替换为[^]便可以了(注意查找时让“不限定格式”按钮为灰色)。如何给Word参考文献加方括号:第一种方法,衍生自word脚注或者尾注编辑参考文献。???? 它就是由苏卫国同学编写的一个小工具,利用该工具可以便捷插入方括号格式脚注或者尾注,同时可以实现脚注或者尾注格式的双向的批量转换。即将原有文档注释加上方括号,或舍弃方括号的形式。该工具只有60k大小,安装后再编辑参考文献变得一劳永逸了。???? 不过使用过程中发现该工具在交叉应用时,仍需手动加方括号,我想这是作者考虑了一处地方引用多篇文章时的麻烦吧!有需要该工具的可以留下自己的 email。???? 第二种方法,采用题注的方法编辑参考文献。???? 该方法需先将所有参考文献罗列出来,并在题注中建立一个自定义的项目,如“参考文献”,然后给每条罗列的参考文献前面插入该题注。在文章中需要引用时只要用交叉引用便可以了。如果要给所有参考文献批量加入方括号,需要借助Word宏。???? 具体操作办法是:先按照上述方法给所有罗列的参考文献前加入题注,并选中所有参考文献,最后选择:‘工具’》‘宏’》 ‘宏’单击编辑,并粘贴以上代码运行即可。注:该宏适用于office2003。叁考文献 题注前添加[]的宏代码:Sub AddMarkRef()AddMarkRef MacroDim parag As ParagraphDim selRge As RangeDim rge As RangeDim nField As IntegerDim nParag As IntegerSet selRge = Selection.RangeMsgBox 你确定已经正确的选择参考文献了吗 ?ActiveDocument.ActiveWindow.View.FieldShading = wdFieldShadingWhenSelectedFor nParag = 1 To selRge.Paragraphs.CountSet rge = selRge.Paragraphs(nParag).Rangerge.SelectnField = Selection.Fields.CountFor i = 1 To nFieldrge.SelectIf Selection.Fields.Count = 1 ThenWith Selection.Fields(i).Update.SelectEnd WithSelection.CutSelection.InsertBefore ([)Selection.Collapse Direction:=wdCollapseEndSelection.PasteSelection.InsertAfter (] )End IfNext iNext nParagEn
文档评论(0)