ワード文書をMicrosoft print to pdfでPDF化する

ワード文書をMicrosoft print to pdfでPDF化する。

印刷設定は白黒。

言語はVBAを使用する。

このVBAコードを実行すると、指定したフォルダにワード文書がPDF形式で保存されます。ワード文書とPDFのファイル名はそれぞれfileNameとPDFFileNameで指定します。また、ワード文書があるフォルダのパスはfilePathに指定します。

Sub ExportToPDF()

Dim filePath As String

Dim fileName As String

Dim PDFFileName As String

‘ ファイルのパスを設定

filePath = “C:\path\to\your\word\document\”

fileName = “your_document_name.docx” ‘ ワード文書のファイル名を指定

PDFFileName = “output_pdf_name.pdf” ‘ 出力されるPDFのファイル名を指定

‘ PDFに変換

With Application

.DisplayAlerts = wdAlertsNone ‘ 確認メッセージを非表示にする

.ScreenUpdating = False ‘ 画面の更新を停止する

‘ ワード文書を開く

Documents.Open filePath & fileName

‘ 印刷設定を変更（白黒に設定）

ActiveDocument.PageSetup.BlackAndWhite = True

‘ PDF形式で保存

ActiveDocument.ExportAsFixedFormat OutputFileName:= _

filePath & PDFFileName, ExportFormat:=wdExportFormatPDF, _

OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, _

Range:=wdExportAllDocument, From:=1, To:=1, _

Item:=wdExportDocumentContent, IncludeDocProps:=True, _

KeepIRM:=True, CreateBookmarks:=wdExportCreateNoBookmarks, _

DocStructureTags:=True, BitmapMissingFonts:=True, _

UseISO19005_1:=False

‘ ワード文書を閉じる

ActiveDocument.Close False

.DisplayAlerts = wdAlertsAll ‘ 確認メッセージを再度表示する

.ScreenUpdating = True ‘ 画面の更新を再開する

End With

MsgBox “PDFが作成されました：” & filePath & PDFFileName

End Sub