Excel VBAでWordのトラック変更を含むドキュメントをPDF保存する方法

この記事では、Excel VBAを使用して、Wordのトラック変更を含むドキュメントをPDFとして保存する方法を詳しく説明します。具体的なコード例とその解説、さらには応用例を含めて解説します。特に、日本市場向けの情報に焦点を当てて提供します。

Excel VBAを用いたWordのトラック変更を含むドキュメントのPDF保存

Wordのトラック変更機能は、文書の変更点を明確に示すために頻繁に使用されます。この変更内容を確定せずにPDFとして保存することで、校閲や検討を求める際に役立ちます。

以下は、Excel VBAを使用してWordのドキュメントをPDFとして保存する基本的なコードです。

Sub SaveWordDocAsPDF()
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim filePath As String

    ' Wordアプリケーションの起動
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = False

    ' Wordドキュメントのオープン
    filePath = "C:\path\to\your\word\document.docx" ' こちらのパスを適切に変更してください
    Set wdDoc = wdApp.Documents.Open(filePath)

    ' PDFとして保存
    wdDoc.ExportAsFixedFormat OutputFileName:=Replace(filePath, ".docx", ".pdf"), ExportFormat:=0

    ' Wordドキュメントのクローズ
    wdDoc.Close

    ' Wordアプリケーションの終了
    wdApp.Quit

    ' オブジェクトの解放
    Set wdDoc = Nothing
    Set wdApp = Nothing

End Sub

コードの詳細解説

– `CreateObject(“Word.Application”)`: WordアプリケーションをVBAから操作するためのオブジェクトを生成します。
– `wdApp.Documents.Open(filePath)`: 指定したファイルパスのWordドキュメントを開きます。
– `wdDoc.ExportAsFixedFormat`: WordドキュメントをPDFとして保存するメソッドです。`OutputFileName`で保存先のファイルパス、`ExportFormat:=0`でPDFとしての保存を指定しています。

応用例

1. 複数のWordドキュメントを一括でPDFに変換する

特定のフォルダ内にあるすべてのWordドキュメントをPDFに変換することができます。

Sub ConvertMultipleWordDocsToPDF()
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim folderPath As String
    Dim fileName As String
    ' Wordアプリケーションの起動
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = False
    folderPath = "C:\path\to\your\folder" ' こちらのパスを適切に変更してください
    fileName = Dir(folderPath & "\*.docx")
    Do While fileName <> ""
        Set wdDoc = wdApp.Documents.Open(folderPath & "\" & fileName)
        wdDoc.ExportAsFixedFormat OutputFileName:=folderPath & "\" & Replace(fileName, ".docx", ".pdf"), ExportFormat:=0
        wdDoc.Close
        fileName = Dir
    Loop
    ' Wordアプリケーションの終了
    wdApp.Quit
    ' オブジェクトの解放
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub

2. トラック変更の表示/非表示を選択してPDF保存する

トラック変更を表示した状態、または非表示の状態でPDFを保存することができます。

Sub SaveWithOrWithoutTrackChanges(showTrackChanges As Boolean)
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim filePath As String

    ' Wordアプリケーションの起動
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = False

    ' Wordドキュメントのオープン
    filePath = "C:\path\to\your\word\document.docx" ' こちらのパスを適切に変更してください
    Set wdDoc = wdApp.Documents.Open(filePath)

    ' トラック変更の表示/非表示を設定
    wdDoc.ShowRevisions = showTrackChanges

    ' PDFとして保存
    wdDoc.ExportAsFixedFormat OutputFileName:=Replace(filePath, ".docx", ".pdf"), ExportFormat:=0

    ' Wordドキュメントのクローズ
    wdDoc.Close

    ' Wordアプリケーションの終了
    wdApp.Quit

    ' オブジェクトの解放
    Set wdDoc = Nothing
    Set wdApp = Nothing

End Sub

3. パスワード付きのPDFを作成する

Wordのドキュメントをパスワードで保護されたPDFとして保存します。

Sub SaveWordDocAsPasswordProtectedPDF()
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim filePath As String

    ' Wordアプリケーションの起動
    Set wdApp = CreateObject("Word.Application")
   

 wdApp.Visible = False

    ' Wordドキュメントのオープン
    filePath = "C:\path\to\your\word\document.docx" ' こちらのパスを適切に変更してください
    Set wdDoc = wdApp.Documents.Open(filePath)

    ' PDFとして保存
    wdDoc.ExportAsFixedFormat OutputFileName:=Replace(filePath, ".docx", ".pdf"), ExportFormat:=0, _
        OpenAfterExport:=False, Password:="YourPassword"

    ' Wordドキュメントのクローズ
    wdDoc.Close

    ' Wordアプリケーションの終了
    wdApp.Quit

    ' オブジェクトの解放
    Set wdDoc = Nothing
    Set wdApp = Nothing

End Sub

まとめ

この記事では、Excel VBAを使用して、Wordのトラック変更を含むドキュメントをPDFとして保存する方法について学びました。基本的な保存方法から応用的な利用方法まで、さまざまなシチュエーションでの活用法を網羅しました。この知識を活かして、日々の業務の効率化を図ってください。