本文作者:office教程网

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

office教程网 2024-09-17 04:56:53
后台-系统设置-扩展变量-手机广告位-内容正文顶部
摘要: 下面的这一段宏代码,在Word环境下使用,其功能是,自动给word文档参考文献添加中括号或方括号
'AddMarkRef Macro
Dim parag As Paragraph
Dim selRge As Range
Dim rge As Range
Dim nFie...

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

Word2010中如何使用"悬停时显示文档工具"提示功

Word2010中如何使用

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

恢复Word菜单栏的办法

恢复Word菜单栏的办法 第一种方法:修改模板文件“Normal.dot”的名称 A、首先要找到Normal.dot文件,因为它是隐藏的,方法如下: 打开“我的电脑”→工具→文件夹选项→将“查看”中的“隐藏受保护的操作系统文件”和“显示所有文件和文件夹”前的勾打上。 B、打开“C:Documents and SettingsAdministratorApplication DataMicrosoftTemplates”文件夹,将“Normal.dot”文件名称随意更换一下。 这样Word启动后就会因为No

后台-系统设置-扩展变量-手机广告位-内容正文底部
未经允许不得转载:

作者:office教程网,原文地址:自动给word文档参考文献添加中括号方括号的VBA代码发布于2024-09-17 04:56:53
转载或复制请以超链接形式并注明出处 演示站

分享到:

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏

留言与评论(共有 0 条评论)
   
验证码: