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

相关推荐

  • 怎么在word文档中添加含括号自动生成的尾注和注释

    今天,小编给大家介绍在word文档中添加含括号自动生成的尾注和注释的方法,希望对大家有所帮助.具体如下:1. 首先,请大家在自己的电脑中找到[word]图标,点击进入主界面,然后打开目标文档,选择其中 ...

  • word文档怎么添加目录,自动链接

    word文档是我们常用的办公软件,使用word编辑文档的时候经常会设计到添加目录,word文档怎样添加目录呢? 操作方法 01 先打卡一个要编辑目录的word文档. 02 目录我们知道有一级目录,二级 ...

  • Word文档怎么添加艺术边框

    Word文档怎么添加艺术边框 1.打开需要添加边框的文档.在"开始"选项卡的"段落"组中单击"边框"按钮上的下三角按钮,在打开的列表中选择& ...

  • word文档怎样添加、删除、隐藏批注?

    word文档有批注的功能,那么这个功能怎么用呢?下面小编就来介绍一下word文档怎样添加删除隐藏批注,一起来看看吧! 方法/步骤 首先我们随便打开一篇word文档. 然后将光标定位到要插入批注的地方, ...

  • Word文档里面添加签名行以及手写签名的方法

    在越来越倡导无纸化办公的今天,通过在Word文本中使用手写签名的形式来确认文件签署的方式也被使用得越来越多.另外,这种电子版的形式,也便于保存,同时也可以确保内容是未经篡改的.下面就与大家一起来分享, ...

  • word文档中添加修订的方法

    word是一个文字处理器应用程序,它是我们办公.学习中不可多得的好帮手.不少小伙伴还不太熟悉有关的操作技巧,因此常常存在困惑.比如:很多用户不知道怎么在word文档中添加修订,小编今天就来问您解答这个 ...

  • 怎么解决WPS自动将Word文档中邮箱地址替换为超链接问题

    WPS是现在十分常用的办公软件之一,有些用户遇到了自动将Word文档中邮箱地址替换为超链接问题,想知道怎么解决,接下来小编就给大家介绍一下具体的操作步骤.具体如下:1. 首先第一步先打开电脑中的Wor ...

  • 如何在Word文档中添加题注

    Word是现在十分常用的文件类型之一,有些新用户不知道如何在Word文档中添加题注,接下来小编就给大家介绍一下具体的操作步骤.具体如下:1. 首先第一步根据下图所示,打开电脑中的Word文档.2. 第 ...

  • word文档怎样添加删除隐藏批注

    word文档有批注的功能,那么这个功能怎么用呢?下面小编就来介绍一下word文档怎样添加删除隐藏批注. 操作方法 01 首先我们随便打开一篇word文档. 02 然后将光标定位到要插入批注的地方,然后 ...