'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


