自动给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
赞 (0)