400-099-0376

在线试用
微信扫码联系专属客服
安企神软件官网
首页
下载中心
客户列表
关于安企神

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

2024-10-31

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

  • TAG: