Word VBA技术：几段实用小程序代码
Word VBA技术：几段实用小程序代码
fanjy
发布于 2023-02-24 20:30:22
发布于 2023-02-24 20:30:22
代码可运行
运行总次数：0
代码可运行
标签：Word VBA
下面是几段Word VBA程序代码，供需要时使用。
代码1：清除查找和替换对话框中的设置
通常，在我们使用Word的“查找和替换”功能进行查找和替换操作后，Word会保留这个设置，如果你后面无意中又执行了查找和替换操作，可能会得到你不想要的结果。因此，有必要恢复查找和替换为默认参数。下面的代码可以帮助实现：
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：获取光标在文档页面中的位置
下面的代码可以得到光标在文档页面中的位置坐标：
x = Selection.Information(wdHorizontalPositionRelativeToPage)
y = Selection.Information(wdVerticalPositionRelativeToPage)注：1.72磅=1英寸=2.54厘米
2.设置为页面视图，显示比例设置为100%。
代码3：操作显示在最近使用的文件清单列表中文件数
在文件菜单中，会显示最近使用的文件清单。下面的代码可以设置在清单列表中显示的文件数量，或者阻止显示最近使用的文件，并且可以恢复原始设置。
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本文参与 腾讯云自媒体同步曝光计划，分享自微信公众号。
原始发表：2022-12-13，如有侵权请联系 cloudcommunity@tencent.com 删除
评论
登录后参与评论
推荐阅读
腾讯云开发者
