Excel VBAを使用してWordの目次付きドキュメントをPDFで保存する方法

この記事では、Excel VBAを使用して、Wordの目次付きドキュメントをPDFで保存する方法について詳しく説明します。初心者でも理解しやすいように具体的なコード例とその解説、応用例を含めています。

基本的な保存処理

Excel VBAからWordアプリケーションを操作して、目次付きドキュメントをPDFとして保存する基本的な手順について解説します。

Sub SaveWordDocAsPDF()
    Dim WordApp As Object
    Dim WordDoc As Object
    Dim strFilePath As String

    ' Wordアプリケーションを開始
    Set WordApp = CreateObject("Word.Application")

    ' ドキュメントを開く
    strFilePath = "C:\path\to\your\document.docx" ' 保存先のパスを指定
    Set WordDoc = WordApp.Documents.Open(strFilePath)

    ' PDFとして保存
    WordDoc.SaveAs2 FileName:=Replace(strFilePath, ".docx", ".pdf"), FileFormat:=17

    ' Wordを閉じる
    WordDoc.Close
    WordApp.Quit
End Sub

このコードは、Word文書をPDFとして保存する最も基本的な手法を示しています。`SaveAs2`メソッドでFileFormatパラメータを17に設定することでPDFとして保存できます。

補足事項

– Wordアプリケーションを操作する際には、Wordオブジェクトモデルの参照設定をVBAエディタで有効にする必要があります。
– FileFormatの値「17」は、Word文書をPDFとして保存するためのものです。他にも様々な保存フォーマットがありますので、必要に応じて調べて使用してください。

応用例

応用例1：複数のWord文書を一括でPDFに変換

Sub BatchConvertToPDF()
    Dim WordApp As Object
    Dim WordDoc As Object
    Dim FolderPath As String
    Dim strFile As String
    FolderPath = "C:\path\to\documents\folder\" ' フォルダのパスを指定
    ' Wordアプリケーションを開始
    Set WordApp = CreateObject("Word.Application")
    strFile = Dir(FolderPath & "*.docx")
    Do While strFile <> ""
        Set WordDoc = WordApp.Documents.Open(FolderPath & strFile)
        WordDoc.SaveAs2 FileName:=Replace(FolderPath & strFile, ".docx", ".pdf"), FileFormat:=17
        WordDoc.Close
        strFile = Dir
    Loop
    ' Wordを閉じる
    WordApp.Quit
End Sub

応用例2：特定のセクションだけをPDFとして保存

Sub SaveSpecificSectionAsPDF()
    Dim WordApp As Object
    Dim WordDoc As Object
    Dim strFilePath As String
    Dim rngSection As Object

    ' Wordアプリケーションを開始
    Set WordApp = CreateObject("Word.Application")

    ' ドキュメントを開く
    strFilePath = "C:\path\to\your\document.docx" ' 保存先のパスを指定
    Set WordDoc = WordApp.Documents.Open(strFilePath)
    
    ' 第3セクションの範囲を取得
    Set rngSection = WordDoc.Sections(3).Range

    ' 範囲をPDFとして保存
    rngSection.ExportAsFixedFormat OutputFileName:=Replace(strFilePath, ".docx", "_section3.pdf"), ExportFormat:=0

    ' Wordを閉じる
    WordDoc.Close
    WordApp.Quit
End Sub

応用例3：目次を含んだPDFとして保存

Sub SaveWithTableOfContentsAsPDF()
    Dim WordApp As Object
    Dim WordDoc As Object
    Dim strFilePath As String

    ' Wordアプリケーションを開始
    Set WordApp = CreateObject("Word.Application")

    ' ドキュメントを開く
    strFilePath = "C:\path\to\your\document.docx" ' 保存先のパスを指定
    Set WordDoc = WordApp.Documents.Open(strFilePath)

    ' 目次を更新
    WordDoc.TablesOfContents(1).Update

    ' PDFとして保存
    WordDoc.SaveAs2 FileName:=Replace(strFilePath, ".docx", ".pdf"), FileFormat:=17

    ' Wordを閉じる
    WordDoc.Close
    WordApp.Quit
End Sub

まとめ

Excel VBAを利用して、Wordの目次付きドキュメントをPDFとして保存する方法は多岐にわたります。基本的な保存方法から、さまざまな応用例を通じて、より効率的な文書処理を行うためのノウハウを習得しましょう。