如何给Word参考文献加方括号

放牛娃,2008年3月10日

    以前用动画方式介绍过如何用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，喜欢的朋友手动下载吧！给参考文献加方括号的便捷工具下载
本地下载给word参考文献序号加方括号【】的增强插件http://moonlab.net/upload/AddMyFootnote.rar
另外本人发现一种最简单的加方括号办法：给尾注编号加方括号的简单方法，特别对推荐大家使用。

Tags: 参考文献  编撰方法  word  

分类: 网络资源 | 评论:129 | 浏览:

相关文章:

发表评论