自动给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
投稿猜你喜欢
电脑任务栏是电脑使用过程中重要的工具之一，很多用户都会根据自己的习惯对任务栏进行调节，但是如果有别的用户在使用你的电脑，很有可能就会被改掉。- realtek高清晰音频管理器是控制电脑声音的管理器，如果它出现故障，电脑就无法播放声音，影响电脑的使用。今天就是一篇教大家怎么找到Real
- 虽然，现在有很多朋友都在使用Excel2013表格文档，但是有些用户对于excel2013中的功能使用还不是很清楚。比如说excel2013
- 问题：有的时候修改了注册表，会出现这样的问题，管理员账号时效，就会每次 会以一个临时账号登陆，那么设置都会没有，都要重新设置。网上看了很多办
- 现在很多Windows系统用户都在考虑是否要升级到Win10系统，其中主要考虑的问题便是Win10的兼容性如何。如果和Win10以前的系统相
- 很多最新更新了ios14的小伙伴都遇到了app闪退的情况不知道该怎么解决，今天就给你们带来了ios14app闪退不稳定详细解决教程，有需要的
- 在升级或者安装win10系统后，很多用户发现自己电脑屏幕的分辨率无法调整，其实这是因为win10自带的驱动无法匹配显卡导致的。那w10系统分
- 在今天的Build2016发布会上，微软宣布了新的Bot Framework，而同时，微软也宣布了Skype聊天机器人在今天就正式对公众开放
- Win10专业版是一款非常全面的优秀系统，运行非常稳定，很多用户都在使用。目前有用户反映Win10专业版麦克风不工作，无法正常使用，这个问题
- Axure RP 9，专业的原型设计工具，它能快速、高效的创建原型，同时支持多人协作设计和版本控制管理 ，可以帮助相关工作人员快
- 苹果近日更新了 Mac mini 的功耗和热输出 (BTU) 规格，对比 2018 款 Mac mini，搭载 Apple M1 芯片的新版
- 亿图脑图MindMaster简称为MindMaster，这是一款很多小伙伴们都在使用的软件。在其中设置思维导图时我们可以根据自己的实际需要设
- 在Excel表格中如何对数据添加备注说明?比如我们制作表格的时候,想给一段文字或者其他比较重要的东西添加备注,需要怎么做呢?下面小编就为大家
- Excel表格里面的技巧很多，多掌握一些技巧，你就可以避免其他繁琐复杂的操作，比别人更加省时，工作效率大大提高。鉴于经常有朋友在群里面问Ex
- 在Word 2019中，您可以设置整个段落的格式以减少格式设置任务的单调性。段落是Word文档的基础。每次按Enter，都会在Word文档中
- 相信所有的小伙伴都非常的讨厌流氓软件，因为这些流氓软件会不定时的自动安装，并且怎么也找不到，那么应该如何查找隐藏的流氓软件呢？下面就和小编一
- 在一张复杂的大型Excel表格中，可以通过强大的筛选功能迅速找出符合条件的数据，而对于其他不满足条件的数据，Excel会自动将其隐藏，exc
- 现在有非常多的小伙伴都喜欢使用Wps这款软件，而当我们使用Wps打开表格文件的时候难免会遇到需要调整单元格大小的情况，这也让很多刚接触这款软
- 打印机只有一台，电脑却有多台想连接，那共享打印机就是最好的选择了。不过我们在将打印机设置为共享时或多或少会出现些问题。小编在这就分享个故障问
- AppServices.exe是Iomega Zip Drive驱动相关程序进程文件： appservices or appservices
