Word VBA技术：几段实用小程序代码

标签：Word VBA

下面是几段Word VBA程序代码，供需要时使用。

代码1：清除查找和替换对话框中的设置

通常，在我们使用Word的“查找和替换”功能进行查找和替换操作后，Word会保留这个设置，如果你后面无意中又执行了查找和替换操作，可能会得到你不想要的结果。因此，有必要恢复查找和替换为默认参数。下面的代码可以帮助实现：

代码语言：javascript复制

Sub RestoreFindAndReplaceSettings()
 With Selection.Find
   .ClearFormatting
   .Replacement.ClearFormatting
   .Text = ""
   .Replacement.Text = ""
   .Forward = True
   .Wrap = wdFindStop
   .Format = False
   .MatchCase = False
   .MatchWholeWord = False
   .MatchWildcards = False
   .MatchSoundsLike = False
   .MatchAllWordForms = False
 End With
End Sub

代码2：获取光标在文档页面中的位置

下面的代码可以得到光标在文档页面中的位置坐标：

代码语言：javascript复制

x = Selection.Information(wdHorizontalPositionRelativeToPage)
y = Selection.Information(wdVerticalPositionRelativeToPage)

注：1.72磅=1英寸=2.54厘米

2.设置为页面视图，显示比例设置为100%。

代码3：操作显示在最近使用的文件清单列表中文件数

在文件菜单中，会显示最近使用的文件清单。下面的代码可以设置在清单列表中显示的文件数量，或者阻止显示最近使用的文件，并且可以恢复原始设置。

代码语言：javascript复制

Sub DocumentVariablesSettings()
 ActiveDocument.Variables.Add Name:="DisplayRecentFiles", Value:="0"
 ActiveDocument.Variables.Add Name:="RecentFilesMaximum", Value:="0"
End Sub

Sub UserOriginalOptions()
 '记下用户原始设置以便在文档关闭前恢复原设置
 ActiveDocument.Variables("DisplayRecentFiles") = Application.DisplayRecentFiles
 ActiveDocument.Variables("RecentFilesMaximum") = Application.RecentFiles.Maximum
End Sub

Sub TemporaryOptionsSettings()
'根据需要修改选项
 Application.DisplayRecentFiles = True
 Application.RecentFiles.Maximum = 3
End Sub

Sub UserOptionsRestore()
'恢复用户原始设置
 Application.DisplayRecentFiles = ActiveDocument.Variables("DisplayRecentFiles")
 Application.RecentFiles.Maximum = ActiveDocument.Variables("RecentFilesMaximum")
End Sub

vba

0 人点赞