卡饭网
手机版
论坛
首页 IT科技 安全资讯 卡饭教程 卡饭论坛
卡饭网 > word > 正文

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

来源：本站整理 作者：梦在深巷 时间：2013-03-05 18:57:05

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

相关推荐

本周热门

本月热门

科技 安全 论坛 卡饭教程 手机版

Copyright2014-2020© 卡饭网  沪ICP备2020031077号-2

卡饭网提供的所有的资源均来自互联网，如有内容侵犯您的版权或其他利益，请及时向我们提出删除。联系邮箱：kf2020@kafan.cn