現在の日付のWord文書をファイル名で保存するにはどうすればよいですか？

Word文書を保存するときにファイル名に現在の日付を自動的に追加する必要がある場合、Wordファイルでこのタスクをどのように処理できますか？

VBAコードを使用してファイル名に現在の日付のWord文書を保存します

---

VBAコードを使用してファイル名に現在の日付のWord文書を保存します

Word文書を保存するときにファイル名に現在の日付を自動的に追加するには、次の手順を実行してください。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。 次に、をクリックします インセット > モジュール、以下のコードをコピーして、開いた空白のモジュールに貼り付けます。

VBAコード：ファイル名に現在の日付を含むWord文書を保存します

Public Sub FileSave1()
    Dim xDlg As Dialog
    Dim xTitle As String
    On Error Resume Next
    xTitle = ActiveDocument.BuiltInDocumentProperties("Title").Value
    xTitle = xTitle & " " & Format((Year(Now() + 1) Mod 100), "20##") & "-" & _
        Format((Month(Now() + 1) Mod 100), "0#") & "-" & _
        Format((Day(Now()) Mod 100), "0#")
    Set xDlg = Dialogs(wdDialogFileSaveAs)
    xDlg.Name = xTitle
    xDlg.Show
End Sub

3。 モジュールにコードを貼り付けた後、を押します F5 このコードを実行するためのキー、および 名前を付けて保存 ウィンドウが自動的に現在の日付で表示されます ファイル名 テキストボックス、スクリーンショットを参照：

4。 次に、必要に応じて独自のファイル名を入力する必要があります。スクリーンショットを参照してください。