自动给word文档参考文献添加中括号方括号的VBA代码

　　下面的这一段宏代码，在Word环境下使用，其功能是，自动给word文档参考文献添加中括号或方括号

　　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