Word VBAでページをループ処理する方法【初心者向け解決ガイド】

Wordの文書をVBAで操作する際、「ページごとに処理を行いたい」と思ったことはありませんか？例えば、各ページの先頭に特定のテキストを挿入したり、ページごとに異なる書式を適用したりする場合です。今回は、Word VBAを使って文書内のページをループ処理する方法を、初心者の方にもわかりやすく解説します。

Word VBAでページをループ処理する基本の流れ
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

Word VBAでページをループ処理する基本の流れ

Wordのイメージ

Wordの文書は、ページごとに内容が分かれていますが、VBAでは直接「ページ」を指定して処理を行うことは難しいです。しかし、いくつかの方法でページごとの処理を実現できます。

方法1ページ番号を利用する

Word文書のページ数を取得し、各ページに対して処理を行う方法です。以下のコードは、文書のページ数を取得し、各ページに対して処理を行う例です。

Sub LoopThroughPages()

    Dim pageCount As Integer

    Dim i As Integer
    ' 文書のページ数を取得

    pageCount = ActiveDocument.ComputeStatistics(wdStatisticPages)

' 各ページに対して処理を実行 For i = 1 To pageCount ' ここに各ページに対する処理を記述 Debug.Print "ページ " & i & " を処理中" Next i End Sub

この方法では、ページ番号を基に処理を行いますが、ページの内容や構成によっては、期待通りに動作しない場合があります。

方法2セクションを利用する

Word文書は「セクション」で構成されており、各セクションはページ設定やヘッダー・フッターが異なる場合があります。セクションごとに処理を行うことで、より柔軟な操作が可能です。

Sub LoopThroughSections()

    Dim sec As Section

' 各セクションに対して処理を実行 For Each sec In ActiveDocument.Sections ' ここに各セクションに対する処理を記述 Debug.Print "セクションを処理中" Next sec End Sub

セクションを利用することで、ページ設定やヘッダー・フッターの違いを考慮した処理が可能になります。

方法3ページ区切りを利用する

ページ区切りを挿入することで、文書を手動でページ分けし、その区切りを基に処理を行う方法です。これにより、ページごとの処理が明確になります。

Sub LoopThroughPageBreaks()

    Dim rng As Range

    Dim pageBreak As Range

' 文書全体を対象にループ Set rng = ActiveDocument.Range For Each pageBreak In rng.GoTo(What:=wdGoToPage, Which:=wdGoToNext) ' ここにページ区切りごとの処理を記述 Debug.Print "ページ区切りを処理中" Next pageBreak End Sub

ページ区切りを利用することで、より正確にページごとの処理が可能になります。