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

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（1693）适用于Microsoft Word 97、2000、2002和2003。您可以找到Word（Word 2007）的功能区界面的本技巧版本。和更高版本）在这里：

自动文件名。