电脑教程
位置:首页>> 电脑教程>> office教程>> 自动给word文档参考文献添加中括号方括号的VBA代码

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

  发布时间:2023-12-13 00:27:58 

标签:自动给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
投稿

猜你喜欢

手机版 电脑教程 asp之家 www.aspxhome.com