自动文件名(Microsoft Word)
Word允许您与文档一起保存的属性之一是文档的标题。如果您经常在新文档中使用此属性,则可以通过查看提供的标题为Word创建一种自动命名文档的方法。
尽管可以很容易地将其修改为其他类型的文档,但该特定宏非常适合与字母一起使用。该宏名为FileSaveAs,因此它将替换内置的“另存为”命令。保存此宏的最佳位置是用于字母的模板:
Sub FileSaveAs() Dim MyDocTitle As String MyDocTitle = Format(Date, "yymmdd") + " letter" Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting With Selection.Find .Text = "^pDear " .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute If Selection.Find.Found Then Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.EndKey Unit:=wdLine, Extend:=wdExtend Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend If Len(Selection.Text) > 1 Then MyDocTitle = MyDocTitle + " to " + Selection.Text End If End If With Dialogs(wdDialogFileSummaryInfo) .Title = MyDocTitle .Execute End With Dialogs(wdDialogFileSaveAs).Show End Sub
请注意,仅当您第一次保存新文档时,此宏才能正常工作。如果您将其与现有文档一起使用(以前以不同的名称保存过的文档),则即使文档标题被修改,“另存为”对话框中仍建议使用原始名称作为默认名称。
快速访问工具栏”或快捷键,以便您可以保存文档并自动命名。
注意:
如果您想知道如何使用此页面(或_WordTips_网站上的任何其他页面)中描述的宏,我准备了一个包含有用信息的特殊页面。
_WordTips_是您进行经济有效的Microsoft Word培训的来源。