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

VBAコード

ここでは例として、
　・デスクトップ配下のファイル「サンプルword.docx」の
　・ページ数を取得
します。

Option Explicit

Sub sample()
    
    Dim wordFilePath As String
    Dim objWord As Object
    Dim objDoc As Object
    Dim pageCount As Long
    
    'Wordファイルのパスを指定
    wordFilePath = "C:\Users\user\Desktop\サンプルword.docx"
    
    'Wordを起動
    Set objWord = CreateObject("Word.Application")
    'Wordを表示
    objWord.Visible = True
    
    'Wordファイルを開く(読み取り専用)
    Set objDoc = objWord.Documents.Open(ReadOnly:=True, Filename:=wordFilePath)
    
    'Wordファイルのページ数を取得
    pageCount = objDoc.Content.Information(4)
    
    'Wordファイルを閉じる
    objDoc.Close
    
    'Wordを終了
    objWord.Quit
    
    MsgBox ("Wordファイルのページ数は『" & pageCount & "』です！")
    
    '後片づけ
    Set objDoc = Nothing
    Set objWord = Nothing

End Sub

実行結果

Wordファイルのページ数を取得できました。

参考①

PDFファイルのページ数も取得できます。

詳細は以下の記事をご確認ください。

参考②

上記のVBAコードで使用した以下の詳細は、公式サイトをご確認ください。

●「Word.Application」オブジェクトの「Visible」プロパティ

●「Word.Application」オブジェクトの「Documents」プロパティ
※「Documents」オブジェクトを返します。

●「Documents」オブジェクトの「Open」メソッド
※「Document」オブジェクトを返します。

●「Document」オブジェクトの「Content」プロパティ

●「Word.Range」オブジェクトの「Information」プロパティ

●上記の「Information」プロパティに設定できる値(=取得できる情報)
※ページ数以外にも取得できます。

●「Document」オブジェクトの「Close」

●「Word.Applicationオブジェクト」の「Quit」メソッド