Excel VBAを使用してWordからPDFに変換する方法

この記事では、Excel VBAを用いてWord文書をPDFに変換する具体的な手法を詳しく解説します。初心者から中級者向けに、基本的なコードから応用例までを網羅しています。Excel VBAを使用することで、手動での操作を減らし効率的な作業を実現する方法を学びましょう。

目次

Excel VBAの基本

Excel VBA(Visual Basic for Applications)は、Microsoft Excelに組み込まれたプログラミング言語です。これを用いると、単純作業の自動化だけでなく、高度なデータ分析やレポート作成も可能になります。

そもそも、どこにVBAコードを書いて、どう実行すれば良いのか分からない場合は、以下の記事をご参照ください。

Excel VBAを使用したWordからPDFへの変換の基本

Excel VBAを使用して、Word文書をPDFに変換する際の基本的なステップは以下のとおりです。

1. WordオブジェクトをVBAから操作できるようにする。
2. 対象のWord文書を開く。
3. PDFとして保存する。
4. Word文書を閉じる。

これをコードで実現すると以下のようになります。


Sub ConvertWordToPDF()
    Dim WordApp As Object
    Dim WordDoc As Object
    Dim WordPath As String, PDFPath As String
    
    ' Wordアプリケーションオブジェクトを作成
    Set WordApp = CreateObject("Word.Application")
    
    ' Word文書のパス
    WordPath = "C:\path\to\your\wordfile.docx"
    
    ' PDF保存先のパス
    PDFPath = "C:\path\to\save\pdf\output.pdf"
    
    ' Word文書を開く
    Set WordDoc = WordApp.Documents.Open(WordPath)
    
    ' PDFとして保存
    WordDoc.ExportAsFixedFormat PDFPath, 17 '17はPDF形式を示す
    
    ' Word文書を閉じる
    WordDoc.Close
    WordApp.Quit

    Set WordDoc = Nothing
    Set WordApp = Nothing
End Sub

上記のコードでは、指定したWord文書をPDFとして保存する処理を行っています。17はWordの`wdExportFormatPDF`定数を示しており、PDF形式として出力する際に使用されます。

応用例

応用1: フォルダ内の全てのWord文書をPDFに変換

指定したフォルダ内の全てのWord文書をPDFに変換する方法です。


Sub ConvertAllWordToPDF()
    Dim WordApp As Object
    Dim WordDoc As Object
    Dim folderPath As String, file As String
    
    ' Wordアプリケーションオブジェクトを作成
    Set WordApp = CreateObject("Word.Application")
    
    ' Word文書が保存されているフォルダのパス
    folderPath = "C:\path\to\word\folder\"
    
    file = Dir(folderPath & "*.docx")
    
    Do While file <> ""
        ' Word文書を開く
        Set WordDoc = WordApp.Documents.Open(folderPath & file)
        
        ' PDFとして保存
        WordDoc.ExportAsFixedFormat folderPath & Replace(file, ".docx", ".pdf"), 17
        
        ' Word文書を閉じる
        WordDoc.Close
        
        file = Dir
    Loop
    
    WordApp.Quit
    Set WordDoc = Nothing
    Set WordApp = Nothing
End Sub

応用2: 特定の書式を持つWord文書のみをPDFに変換

例として、”report”という名前を含むWord文書のみを対象にする方法です。


Sub ConvertSpecificWordToPDF()
    ' ... (前のコードと同様)
    
    file = Dir(folderPath & "*report*.docx")
    
    ' ... (後のコードは前の例と同様)
End Sub

応用3: 変換後のPDFにパスワードを設定

WordからPDFへの変換後、生成されたPDFファイルにパスワードを設定する方法です。この例では、外部ツールやライブラリを使用する可能性が高いため、具体的な実装は省略しますが、実現のためのアイディアとしてご紹介します。

まとめ

Excel VBAを用いてWord文書をPDFに自動変換する方法を学びました。これにより、日常の業務での手動操作を減少させ、効率的な文書管理を実現することが可能となります。さらに、応用例を通じて、より具体的なニーズに合わせた変換処理の実装方法も学ぶことができました。

VBAも良いけどパワークエリも良い

VBAの解説をしてきましたが、VBAは正直煩雑でメンテナンス性が悪いです。最近はモダンExcelと呼ばれるパワークエリやパワーピボットへのシフトが進んできています。本サイトでもパワークエリの特集をしており、サンプルデータを含む全11回の学習コンテンツでパワークエリを習得することができます。

クリックするとパワークエリの全11講座が表示されます。

パワーピボットの記事はありません。興味がある場合は、書籍で学んでみてください

コメント

コメントする

目次