作业帮如何给Word参考文献加方括号
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/24 17:04:14
如何给Word参考文献加方括号
如何给Word参考文献加方括号
如何给Word参考文献加方括号
该方法虽然很方便,但在格式上稍有欠缺.因为一些杂志要求参考文献的序号必须加方括号,一来美观二来醒目.如果用原来介绍的方法,则需手动为各个参考文献加入方括号,这样既费力又麻烦.好在我们生活在牛人辈出的网络时代!今天给大家介绍两种在word中编辑参考文献的方法. 第一种方法,衍生自word脚注或者尾注编辑参考文献. 它就是由苏卫国同学编写的一个小工具,利用该工具可以便捷插入方括号格式脚注或者尾注,同时可以实现脚注或者尾注格式的双向的批量转换.即将原有文档注释加上方括号,或舍弃方括号的形式.该工具只有60k大小,安装后再编辑参考文献变得一劳永逸了. 不过使用过程中发现该工具在交叉应用时,仍需手动加方括号,我想这是作者考虑了一处地方引用多篇文章时的麻烦吧!有需要该工具的可以留下自己的email. 第二种方法,采用题注的方法编辑参考文献. 该方法需先将所有参考文献罗列出来,并在题注中建立一个自定义的项目,如“参考文献”,然后给每条罗列的参考文献前面插入该题注.在文章中需要引用时只要用交叉引用便可以了.如果要给所有参考文献批量加入方括号,需要借助Word宏. 具体操作办法是：先按照上述方法给所有罗列的参考文献前加入题注,并选中所有参考文献,最后选择：‘工具’》‘宏’》 ‘宏’单击编辑,并粘贴以上代码运行即可.注：该宏适用于office2003."叁考文献" 题注前添加[]的宏代码：Sub AddMarkRef()'AddMarkRef Macro Dim parag As Paragraph Dim selRge As Range Dim rge As Range Dim nField As Integer Dim nParag As Integer Set selRge = Selection.Range MsgBox "你确定已经正确的选择参考文献了吗 ?" ActiveDocument.ActiveWindow.View.FieldShading = wdFieldShadingWhenSelected For nParag = 1 To selRge.Paragraphs.Count Set rge = selRge.Paragraphs(nParag).Range rge.Select nField = Selection.Fields.Count For i = 1 To nField rge.Select If Selection.Fields.Count >= 1 Then With Selection.Fields(i) .Update .Select End With Selection.Cut Selection.InsertBefore ("[") Selection.Collapse Direction:=wdCollapseEnd Selection.Paste Selection.InsertAfter ("] ") End If Next i Next nParag End Sub 我个人强烈推荐大家用第一种方法,因为简单实用,对于一般使用word的人来说运行宏代码太麻烦了. 欢迎大家讨论,不清楚的地方可以留言.2009年更新：苏卫国的小插件已经上传到skydrive,喜欢的朋友手动下载吧!