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

Admin | 2012-4-20 9:44:58 | 被阅次数 | 7709

温馨提示!

如果未能解决您的问题，请点击搜索；登陆可复制文章，点击登陆

　　下面的这一段宏代码，在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