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培训的来源。