ワードからPDFに名前を付けて保存するマクロ

開いているワードファイルを、PDFにして保存して、その際に新しく名前をつけて保存するマクロを組みたいのですが、上手くできません。ワードのファイル名でPDFに変換するものはネットにも出てくるのですが、保存ボタンを押したら名前を入力するダイアログが出るようにしたいです。

どなたか教えてください。

No.1 ベストアンサー 回答者： yokomaya 回答日時： 2017/03/12 15:52

Sub a()

Dialogs(wdDialogExportAsFixedFormat).Show
End Sub
これでしょうか？

この回答へのお礼

こんなに簡単だったとは！ありがとうございます

お礼日時：2017/03/17 22:52

No.2 回答者： enunokokoro 回答日時： 2017/03/12 16:33

InputBoxを利用すれば、ファイル名を指定できますよ。

以下のマクロは開いているファイルのパス先に保存します。
[ Document.ExportAsFixedFormat メソッド]では、保存先のパスとファイル
の名前を指定する必要がありますが、省略でも保存してくれるようです。
https://msdn.microsoft.com/ja-jp/library/office/ …

Sub PDFにエクスポート()
'
' ファイル名を指定してPDFにするマクロ
'
Dim OFN As String
OFN = InputBox("ファイル名を入力", "PDFのファイル名", "")
ActiveDocument.ExportAsFixedFormat _
OutputFileName:=OFN & ".pdf", _
ExportFormat:=wdExportFormatPDF
End Sub