Word VBAで「名前を付けて保存」ダイアログを表示する方法

Wordで文書を保存する際、毎回「名前を付けて保存」ダイアログを表示するのは面倒に感じることがありますよね。特に、特定のファイル名を自動で設定したい場合、VBA（Visual Basic for Applications）を活用すると便利です。今回は、初心者の方でもわかりやすく、実際の操作例を交えて解説します。

VBAとは？
「名前を付けて保存」ダイアログを表示する基本コード
文書内の選択文字列をファイル名に設定する方法
日付をファイル名に組み込む方法
保存先を特定のフォルダに設定する方法
よくある質問
今すぐ解決したい！どうしたらいい？
まとめ

VBAとは？

Wordのイメージ

VBAとは、Microsoft Office製品（WordやExcelなど）に組み込まれているプログラミング言語です。これを使うことで、日常的な作業を自動化したり、カスタマイズしたりすることができます。

「名前を付けて保存」ダイアログを表示する基本コード

まずは、最も基本的なコードをご紹介します。このコードを実行すると、Wordの「名前を付けて保存」ダイアログが表示され、ユーザーが保存先やファイル名を指定できます。

Sub ShowSaveAsDialog()
    With Application.FileDialog(msoFileDialogSaveAs)
        .Title = "保存先を選んでください"
        If .Show = -1 Then
            ' 保存処理を追加する場合はここに記述
        End If
    End With
End Sub

このコードを実行することで、ユーザーが保存先を指定できるダイアログが表示されます。保存処理を追加することで、指定した場所にファイルを保存することができます。

文書内の選択文字列をファイル名に設定する方法

文書内で特定の文字列を選択し、その文字列をファイル名として「名前を付けて保存」ダイアログに自動で反映させることも可能です。以下のコードを使用します。

Sub SaveWithSelectedTextAsFileName()
    Dim selectedText As String
    selectedText = Selection.Text
    With Application.FileDialog(msoFileDialogSaveAs)
        .Title = "保存先を選んでください"
        .InitialFileName = selectedText
        If .Show = -1 Then
            ' 保存処理を追加する場合はここに記述
        End If
    End With
End Sub

このコードを実行すると、文書内で選択した文字列がファイル名として初期設定され、ユーザーが保存先を指定できるダイアログが表示されます。

日付をファイル名に組み込む方法

ファイル名に日付を自動で組み込みたい場合、以下のコードを使用します。

Sub SaveWithDateInFileName()
    Dim dateStr As String
    dateStr = Format(Date, "yyyy-mm-dd")
    With Application.FileDialog(msoFileDialogSaveAs)
        .Title = "保存先を選んでください"
        .InitialFileName = dateStr
        If .Show = -1 Then
            ' 保存処理を追加する場合はここに記述
        End If
    End With
End Sub

このコードを実行すると、ファイル名に本日の日付が自動で設定され、ユーザーが保存先を指定できるダイアログが表示されます。

保存先を特定のフォルダに設定する方法

特定のフォルダにファイルを保存したい場合、以下のコードを使用します。

Sub SaveToSpecificFolder()
    Dim folderPath As String
    folderPath = "C:\Users\YourUsername\Documents\"
    With Application.FileDialog(msoFileDialogSaveAs)
        .Title = "保存先を選んでください"
        .InitialFileName = folderPath
        If .Show = -1 Then
            ' 保存処理を追加する場合はここに記述
        End If
    End With
End Sub

このコードを実行すると、指定したフォルダが初期表示され、ユーザーが保存先を選択できるダイアログが表示されます。