下面是几段Word VBA程序代码，供需要时使用。通常，在我们使用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 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.DisplayRecentFiles ActiveDocument.Variables("RecentFilesMaximum") = Application.RecentFiles.MaximumEnd SubSub TemporaryOptionsSettings()'根据需要修改选项 Application.DisplayRecentFiles = True Application.RecentFiles.Maximum = 3End SubSub UserOptionsRestore()'恢复用户原始设置 Application.DisplayRecentFiles = ActiveDocument.Variables("DisplayRecentFiles") Application.RecentFiles.Maximum = ActiveDocument.Variables("RecentFilesMaximum")End Sub
欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。
欢迎到知识星球：完美Excel社群，进行技术交流和提问，获取更多电子资料，并通过社群加入专门的微信讨论群，更方便交流。
