想要天天向上，就要懂得享受学习。图老师为大家推荐自动给word文档参考文献添加中括号方括号的VBA代码，精彩的内容需要你们用心的阅读。还在等什么快点来看看吧！
【 tulaoshi.com - Word教程 】
下面的这一段宏代码，在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
（本文来源于图老师网站，更多请访问https://www.tulaoshi.com）With Selection.Fields(i)
.Update
.Select
（本文来源于图老师网站，更多请访问https://www.tulaoshi.com）End With
Selection.Cut
Selection.InsertBefore ("[")
Selection.Collapse Direction:=wdCollapseEnd
Selection.Paste
Selection.InsertAfter ("] ")
End If
Next i
Next nParag
End Sub
来源:https://www.tulaoshi.com/n/20160219/1589713.html
看过《自动给word文档参考文献添加中括号方括号的VBA代码》的人还看了以下文章 更多>>
