Word VBAマクロ事例 次のファイルを保存してPDF出力

　Wordの差し込み文章で用意されたものを、PDF化する際に、Wordのマクロにてパパっと自動化できるようになりました。

　今までは、差し込み文章の個別編集、ファイル名変更、印刷ボタンを押し、出力先をPDFに選択して、コメントを消して、保存して、ファイル名を変更してといったことをやっていました。

　下記をWordマクロを、クイックツールバーに登録するとワンクリックでできるようになりました。 

以下コード

Sub 次ファイルを保存PDF出力() Dim fn1 As String With ActiveDocument.MailMerge .DataSource.ActiveRecord = wdNextRecord '次のレコード .Destination = wdSendToNewDocument '差し込み文章を新しくつくる .SuppressBlankLines = True '空白のデータは無視 With .DataSource fn1 = .DataFields("○○○○").Value 'ファイル名用　○○は差し込み文章のフィールドの項目 .FirstRecord = .ActiveRecord '最初のレコードはアクティブドキュメントのもの .LastRecord = .ActiveRecord '最後のレコードはアクティブドキュメントのもの End With .Execute Pause:=False '印刷エラーの時　Trueだと一時停止 End With ActiveDocument.SaveAs2 FileName:="C:\△△\□□\" & Format(Now, "yyyyMMddHHmmss") & fn1 & ".docx" ActiveDocument.SaveAs2 FileName:="●●●書（" & fn1 & "）.docx" 'ファイル名 'コメントは印刷しない ActivePrinter = "Adobe PDF" Application.PrintOut FileName:="", _ Range:=wdPrintAllDocument, _ Item:=wdPrintDocumentContent, _ PageType:=wdPrintAllPages, _ Collate:=True, Background:=True Documents("●●●書（" & fn1 & "）.docx").Close End Sub

テスト投稿です。

 こっちで投稿してみた。