Wordでドキュメントと一緒に保存できるプロパティの1つは、ドキュメントのタイトルです。このプロパティを新しいドキュメントで定期的に使用する場合は、指定したタイトルを確認することで、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_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（1693）は、Microsoft Word 97、2000、2002、および2003に適用されます。Wordのリボンインターフェイス（Word 2007）用のこのヒントのバージョンを見つけることができます。以降）ここ：

link自動ファイル名。