こんにちは。長年、Excel VBAの講師として現場の自動化支援を行っている私ですが、実は実務において「Wordの自動化」を避けて通れない場面に何度も遭遇してきました。特に、見積書や報告書、あるいは大量の契約書を扱う際、Wordの文書操作をマクロで制御できるかどうかは、業務効率を劇的に左右する分かれ道となります。
今回は、Word VBAにおいて「文章をブロック範囲で選択する」という操作に焦点を当て、単なる「選択」の域を超えた、実務で本当に役立つプロフェッショナルな技術を解説します。
なぜWord VBAで「選択」が必要なのか
VBAで文書を操作する際、基本的には「Selectionオブジェクト」を使わずに「Rangeオブジェクト」を使うのが定石です。Rangeオブジェクトは画面上のカーソル移動を伴わないため、処理が高速で安定しています。しかし、実務では「特定のブロック（段落、表、あるいは特定のキーワード間）を選択状態にして、ユーザーに視覚的に確認させたい」「選択範囲に対して書式設定を一括適用したい」といったニーズが必ず発生します。
ここで重要になるのが、Selectionオブジェクトをいかに正確に制御するかという技術です。
基本的なブロックの選択方法
まずは、Word VBAにおける「範囲選択」の基礎を抑えましょう。Wordの文書は「Paragraph（段落）」や「Sentence（文）」といった単位で構成されています。
特定の段落を選択するコード例を見てください。
Sub SelectParagraphExample()
‘ 文書内の2番目の段落を選択する
ActiveDocument.Paragraphs(2).Range.Select
End Sub
これだけでは非常に単純ですが、実務では「ある見出しから次の見出しまでの間を全て選択したい」といった複雑な要件が求められます。
実務テクニック：特定キーワード間の範囲選択
例えば、「【開始】」という文字列から「【終了】」という文字列までの間を自動で選択し、そこに対してハイライトやフォント変更を行いたい場合、以下のようなロジックを組むのがプロのやり方です。
Sub SelectBetweenKeywords()
Dim rngStart As Range
Dim rngEnd As Range
Set rngStart = ActiveDocument.Content
With rngStart.Find
.Text = “【開始】”
.Execute
End With
Set rngEnd = ActiveDocument.Content
With rngEnd.Find
.Text = “【終了】”
.Execute
End With
‘ 範囲を決定して選択する
If rngStart.Found And rngEnd.Found Then
ActiveDocument.Range(rngStart.End, rngEnd.Start).Select
Else
MsgBox “キーワードが見つかりませんでした。”
End If
End Sub
このコードのポイントは、Rangeオブジェクトを使用してFindメソッドを実行し、見つかった位置（StartやEndプロパティ）を基準に「新しい範囲」を定義している点です。Selection.Findを直接使うと、処理過程でカーソルが飛び回り、画面が激しく動いてしまうことがありますが、この方法であればバックグラウンドで論理的な範囲を特定した上で、最後に1回だけ選択状態にするため、動作が非常にスムーズです。
表（テーブル）のブロック選択
実務でWordを使う際、避けて通れないのが「表」の操作です。表の一部を選択して書式を変える、あるいは表全体をコピーしてExcelに貼り付けるといった操作は、VBAの得意分野です。
Sub SelectSpecificTable()
‘ 文書内の1番目の表を選択する
If ActiveDocument.Tables.Count > 0 Then
ActiveDocument.Tables(1).Select
End If
End Sub
もし「表の中の2行目から4行目までを選択したい」という場合は、以下のようにRowオブジェクトを活用します。
Sub SelectTableRows()
Dim tbl As Table
Set tbl = ActiveDocument.Tables(1)
‘ 表の2行目から4行目までを選択して結合する
ActiveDocument.Range(tbl.Rows(2).Range.Start, tbl.Rows(4).Range.End).Select
End Sub
このように、Rangeをうまく使うことで、表という複雑な構造体であっても、自由自在にブロック単位で操作が可能になります。
プロが教える「範囲選択」の注意点
実務でWord VBAを書く際、多くの初心者が陥る罠があります。それは「Selectionオブジェクトに依存しすぎること」です。
1. 画面のちらつき
Selection.MoveRightやSelection.MoveDownを繰り返すと、画面が高速でスクロールし、ユーザーを不安にさせます。可能な限りRangeオブジェクトで処理を行い、ユーザーに見せる必要がある最終段階で一度だけ.Selectを呼び出すようにしてください。
2. 予期せぬ選択解除
Wordは、マクロの実行中にユーザーがマウスやキーボードに触れると、Selectionオブジェクトの状態が不安定になることがあります。重要な処理を行う際は、Application.ScreenUpdating = False を設定し、処理が終わるまで画面更新を停止させるのが鉄則です。
3. 文書の構造変化
範囲を選択して削除したり、新しい文字列を挿入したりすると、Rangeのインデックスがずれることがあります。複雑な処理をする場合は、処理のたびにRangeを再設定するか、ブックマークを活用して位置を固定するテクニックが有効です。
応用編：ブックマークを活用した確実な選択
もし文書のレイアウトが頻繁に変わる場合、キーワード検索だけでは位置が特定できないことがあります。そのような時は、Wordの「ブックマーク」機能を活用しましょう。
文書内にあらかじめ「TargetArea」というブックマークを設定しておけば、VBAからは以下のように一発で選択できます。
Sub SelectByBookmark()
If ActiveDocument.Bookmarks.Exists(“TargetArea”) Then
ActiveDocument.Bookmarks(“TargetArea”).Range.Select
End If
End Sub
これは非常に強力です。テンプレート化された文書であれば、この手法が最もエラーが少なく、メンテナンス性にも優れています。
まとめ：効率化の先にあるもの
Wordの操作をVBAで自動化することは、単なる「手作業の削減」以上の意味を持ちます。それは「文書の品質を一定に保つ」という、ビジネスにおける信頼性の担保につながるからです。
今回紹介した「ブロック範囲選択」のテクニックは、一見地味ですが、Word VBAをマスターするための最も重要な基礎体力です。まずは、ご自身の業務で「いつも手動で選択して色を変えている」「毎回同じ箇所をコピーしている」といった作業を、このコードで置き換えてみてください。
VBAを学ぶことは、自分自身の時間を買い戻す行為です。ぜひ、今日から実践して、ワンランク上の事務効率化を実現してください。もしコードの書き方やエラー処理で詰まったときは、またいつでもこのブログを読み返してください。皆さんのビジネスが、よりスマートで創造的になることを応援しています。
最後までお読みいただき、ありがとうございました。次回は「Word VBAを用いた差し込み印刷の高度な制御」について解説する予定です。お楽しみに。
