自動給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