参考文献标注与自动编号

论文引用参考文献较多，为方便后期编辑和编号，可以结合word自动编号和批注功能快速完成。

首先在需要加标记的地方插入编号

如下图光标放在第一句话后面，word--插入--文档部件--域，选择seq，域代码改为 SEQ a\#[0]，将[1]设为上标^[1]。再将^[1]复制到其他需要标记的地方。效果如下：

－－在电力物资行业,仓储管理在物流行业以及整个经济活动中起着十分重要的作用,同时也是物流中最重要的组成部分^[1]。仓库管理的主要目的是为了可以平衡仓库空间的利用以及库存货品的处理成本,而且它还是使仓库物流成本可以降低的一种重要的途径"^[1]。

更新域编号

全选，右键更新域，自动编号完成。

－－在电力物资行业,仓储管理在物流行业以及整个经济活动中起着十分重要的作用,同时也是物流中最重要的组成部分^[1]。仓库管理的主要目的是为了可以平衡仓库空间的利用以及库存货品的处理成本,而且它还是使仓库物流成本可以降低的一种重要的途径"^[２]。

对每个编号加批注

也可以对编号旁边的其他文字加批注。批注内容为参考文献。

无标题.png

OK.就这样，需要加新的参考文献，把[1]复制过去就行了，然后加批注。编号乱了的话，全选--右键--更新域，就自动编号了。

下面说怎样把参考文献按顺序导出来。

使用 VBA 代码，可以快速将所有批注一次性全部导入新文档中。
按照以下步骤操作即可完成该任务。
1: 按 Alt+F11，打开 Microsoft Visual Basic for Applications 窗口；
2: 单击“插入”菜单下的“模块”，将以下 VBA 代码复制粘贴到模块窗口中，点运行；

Sub exportcomments()
Rem Alt+F11 ,插入- 模块 - 运行△
Dim sList As String
Dim cmt As Word.Comment
Dim doc As Word.Document
For Each cmt In ActiveDocument.Comments
  sList = sList & "[" & cmt.Index & "]" & cmt.Range.Text & vbCr
Next
Set doc = Documents.Add
doc.Range.Text = sList
End Sub

参考文献列表就自动导入到新的word文档了，复制出来粘到你文章的后面就行了。

[1]高源,安育欣.基于RFID技术的电力物资仓储管理系统设计[J].自动化与仪器仪表,2018(12):83-86.
[2]戴清杰,宋军奇,高燕.射频识别技术及其应用[J].通信与信息技术,2010(05):65-67+58.