WordのPDF化、マクロで一発変換できた！

表示タブから

マクロをクリック

作成

コードを貼り付け

保存

ファイルタブから

その他　オプション　

クイックアクセスツールバー

コマンドの選択をマクロ

選んで追加　OK

一回ワードを閉じる

開いてボタンを押す

SubPDF形式で保存()

　DimmyFileName AsString'ファイル名

　DimmyFilePath AsString'保存先のフォルダパス

　DimmyDoc AsDocument

　DimintPos AsInteger　'ピリオドの位置

　

　SetmyDoc = ActiveDocument

　

　'拡張子のない名称を取得

　myFileName = myDoc.Name

　intPos = InStrRev(myFileName, ".")

　myFileName = Left(myFileName, intPos - 1)

　

　'PDFファイルで保存

　myFilePath = myDoc.Path　'Wordファイルと同じフォルダ

　myDoc.ExportAsFixedFormat _

　　OutputFileName:=myFilePath & "\" & myFileName & ".pdf", _

　　ExportFormat:=wdExportFormatPDF

　

　SetmyDoc = Nothing

　

EndSub

引用元：みんなのワードマクロhttps://www.wordvbalab.com/code/3838/