Word VBA技术:几段实用小程序代码
- 2026-09-16 09:26:34
Word VBA技术:几段实用小程序代码学习Excel技术，关注微信公众号： excelperfect 标签：Word VBA 下面是几段Word VBA程序代码，供需要时使用。 代码1：清除查找和替换对话框中的设置 通常，在我们使用Word的“查找和替换”功能进行查找和替换操作后，Word会保留这个设置，如果你后面无意中又执行了查找和替换操作，可能会得到你不想要的结果。因此，有必要恢复查找和替换为默认参数。下面的代码可以帮助实现： 代码2：获取光标在文档页面中的位置 下面的代码可以得到光标在文档页面中的位置坐标： 注：1.72磅=1英寸=2.54厘米 2.设置为页面视图，显示比例设置为100%。 代码3：操作显示在最近使用的文件清单列表中文件数 在文件菜单中，会显示最近使用的文件清单。下面的代码可以设置在清单列表中显示的文件数量，或者阻止显示最近使用的文件，并且可以恢复原始设置。 欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。
欢迎到知识星球：完美Excel社群，进行技术交流和提问，获取更多电子资料，并通过社群加入专门的微信讨论群，更方便交流。 
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 = FalseEnd WithEnd Sub
x = Selection.Information(wdHorizontalPositionRelativeToPage)y = Selection.Information(wdVerticalPositionRelativeToPage)
Sub DocumentVariablesSettings()ActiveDocument.Variables.Add Name:="DisplayRecentFiles", Value:="0"ActiveDocument.Variables.Add Name:="RecentFilesMaximum", Value:="0"End SubSub UserOriginalOptions()'记下用户原始设置以便在文档关闭前恢复原设置ActiveDocument.Variables("DisplayRecentFiles") = Application.DisplayRecentFilesActiveDocument.Variables("RecentFilesMaximum") = Application.RecentFiles.MaximumEnd SubSub TemporaryOptionsSettings()'根据需要修改选项Application.DisplayRecentFiles = TrueApplication.RecentFiles.Maximum = 3End SubSub UserOptionsRestore()'恢复用户原始设置Application.DisplayRecentFiles = ActiveDocument.Variables("DisplayRecentFiles")Application.RecentFiles.Maximum = ActiveDocument.Variables("RecentFilesMaximum")End Sub
本文来自网友投稿或网络内容，如有侵犯您的权益请联系我们删除，联系邮箱：wyl860211@qq.com 。
