【VBA】ワードファイルのページ数を取得する

エクセルVBAでよく使うコードの備忘録。VBAでワードファイルを操作し、ワードファイルのページ数を取得するコード。

事前準備

VBAでワードファイルを操作するには、参照設定が必要です。VBAのコードエディタから「ツール > 参照設定」と進み、「Microsoft Word XX.X Object Library」にチェックを入れておきます。

ワードファイルのページ数を取得

ワードファイルのページ数を取得するサンプルです。ワードドキュメントオブジェクトに含まれる「Content」の「Information」メソッドに「wbNumberOfPagesInDocument」という引数を渡せば取得できます。

サンプルコード

Public Sub MoveToPage()
    
    '--- Wordのアプリケーションオブジェクト ---'
    Dim objWord As Word.Application
    Set objWord = CreateObject("Word.Application")
    objWord.Visible = True
    
    '--- ドキュメントオブジェクト ---'
    Dim objDoc As Word.Document
    Set objDoc = objWord.Documents.Open("[ワードファイルのパス]")
    
    '--- ワードファイルのページ数を取得 ---'
    Dim totPageN As Long
    totPageN = objDoc.Content.Information(wdNumberOfPagesInDocument)

End Sub