WordファイルをワンクリックでPDF保存する

WordファイルをワンクリックでPDF保存するマクロを作りました。
PDFファイルは開いたWordファイルと同じ場所に保存されます。

ソース

Option Explicit

Sub SavePDF()
    Dim FilePath As String
    FilePath = ActiveDocument.Path + "\"
    
    Dim Buf As Variant
    Dim FileName As String
    Buf = Split(ActiveDocument.Name, ".")
    FileName = Buf(0) + ".pdf"

    ActiveDocument.ExportAsFixedFormat _
        OutputFileName:=FilePath + FileName, _
        ExportFormat:=wdExportFormatPDF, _
        OpenAfterExport:=False, _
        OptimizeFor:=wdExportOptimizeForPrint, _
        Range:=wdExportAllDocument, _
        From:=1, _
        IncludeDocProps:=True, _
        BitmapMissingFonts:=True
End Sub

設定方法

1. Microsoft Wordを起動し、何かしらの文章を開く（空白の文章でもOK)

2. Alt + F11キーを押し、Visual Basic Editorを開く

3. Normalの標準モジュール(赤枠部）で右クリック → 挿入 → 標準モジュール

4. 追加したモジュールにソースをコピペ

5. ファイル → オプションからWordのオプションを開く
クイックアクセスツールバーのカスタマイズ画面を開き、
① コマンドの選択をマクロにする
② 今回作成したマクロを選択する
③ 追加を押す
④ 追加されたものを選択し、変更ボタンを押す。アイコンと名前を変更する
⑤ アイコンと名前が変更されたものになったことを確認する
⑥ Word上部にPDF保存ボタンが追加される