こんにちは！Word VBAの世界へようこそ。
マクロの記録ボタンを押して「動かしてみたけれど、中身のコードがなんだか呪文のようで手直しできない……」そんなもどかしさを感じていませんか？
大丈夫、今日でその悩みとはお別れです。
今回は、Word VBAを自由自在に操るための最強の鍵、`Range`オブジェクトの `Start` と `End` プロパティについて、徹底的に噛み砕いて解説していきます。
ここをクリアすれば、Word VBAの基本はバッチリですよ。さあ、一緒に本質をマスターしていきましょう！
—
1. なぜ「マクロの記録」だけでは限界が来るのか？
Word VBAの初心者泣かせなところは、Excel VBAのように「セル（A1など）」という明確な座標が存在しない点にあります。Wordはどこまでいっても「連続したテキストの流し込み」だからです。
マクロの記録を使うと、以下のようなコードが生成されます。
‘ マクロの記録が吐き出す典型例
Selection.TypeText Text:=”こんにちは”
Selection.Find.ClearFormatting
‘ （中略：選択操作のオンパレード）
ここで多用される `Selection`（選択範囲）は、人間が画面上でマウスやカーソルを動かしている状態をそのままコードにしたものです。
- 画面がチラつく
- 処理スピードが極端に落ちる
- 意図しない場所をクリックしているとバグる
実務で大量のドキュメントを自動処理するなら、画面の選択に頼らない「舞台裏でこっそり作業を完結させる技術」が必要です。それが、今回主役となる `Range` オブジェクトなのです。
—
2. Rangeオブジェクトの本質と「文字の座標軸」
`Range` と聞くと、Excelのセル範囲を思い浮かべるかもしれませんが、Wordの `Range` は「文書内の『ある地点から、別の地点まで』の切り抜き」を指します。
そして、その切り抜きの境界線を数字（文字数カウントのインデックス）で完全に支配するのが `Start` プロパティ と `End` プロパティ です。
図解してみましょう。文書の先頭から数えて、何文字目にあるかという「文字の座標軸」が文書全体に走っています。
文書のイメージ: [文][書][の][開][始][改行]
文字のインデックス: 0 1 2 3 4 5 6
↑ ↑
Start End
- `Start`: 範囲の「はじまり」の文字位置
- `End`: 範囲の「おわり」の文字位置
この数値をコードで自在に書き換えることで、「ここから、ここまでを料理する！」という動的な範囲指定が爆誕します。
—
3. 実践！動的な範囲指定を自動化するロジック
では、現場で本当によくある「特定のキーワードから、その行の終わり（改行）まで」を自動で取得し、太字にするコードを書いてみましょう。
このコードには、Word VBAの基本と「実務で使える知見」がギュッと詰まっています。
Sub HighlightFromKeywordToEndOfLine()
Dim doc As Document
Set doc = ActiveDocument
Dim rngTarget As Range
Set rngTarget = doc.Content ‘ 文書全体を一旦Rangeとして取得
‘ 1. キーワードを探す
With rngTarget.Find
.Text = “【重要】”
.Forward = True
.Wrap = wdFindStop
If .Execute Then
‘ 2. キーワードが見つかった瞬間、rngTargetの範囲は「キーワードのヒットした場所」に縮小する
‘ 【超重要テクニック】
‘ キーワードの末尾から、段落の終わり（改行コードの手前）までをEndに再設定する！
rngTarget.End = rngTarget.Paragraphs(1).Range.End – 1
‘ 3. 範囲に対して装飾を加える（画面を選択しないので一瞬で終わります）
rngTarget.Bold = True
rngTarget.Font.Color = wdColorRed
MsgBox “【重要】から行末までの範囲指定と太字化に成功しました！”, vbInformation
Else
MsgBox “キーワードが見つかりませんでした。”, vbExclamation
End If
End With
End Sub
コードのここがポイント！
1. `doc.Content` で文書全体をキャプチャ
画面を選択せず、メモリ上でドキュメント全体を `Range` として扱っています。
2. `Find` がヒットすると `Range` 自体が縮む
Wordの `Find` メソッドが成功すると、`rngTarget` はキーワードそのものの範囲に自動的に姿を変えます。
3. `Paragraphs(1).Range.End` で行末をハックする
「キーワードから次の改行まで」という動的な指定を、段落の終端座標を利用して `rngTarget.End` に再代入することで実現しています。これがプロの技です。
—
4. 陥りやすい罠：「ドキュメントの末尾」の罠
ここで、初学者が9割がちどる「恐ろしい罠」を一つシェアしておきます。
`Range` の `Start` や `End` をいじっていると、うっかり文書の全体の文字数を超えた数値を指定してしまい、次のようなエラーに直面することがあります。
> 実行エラー ‘5825’: 指定された範囲不正です。
または、予期せぬセクションの破壊が起きることがあります。これを防ぐためには、「文書の最大長（`doc.Content.End`）」を常に意識することです。
範囲を拡張・移動させる時は、必ず以下のようなガードを入れましょう。
Dim maxLen As Long
maxLen = doc.Content.End ‘ 文書全体の最後の文字位置
‘ 例：もしEndが文書の長さを超えそうになったら丸める
If myRange.End > maxLen Then
myRange.End = maxLen
End If
この防衛意識を持つだけで、あなたの書くマクロの安定性はプロレベルに跳ね上がります。
—
まとめ
今回は、`Range` オブジェクトの `Start` と `End` プロパティを使った動的な範囲指定の自動化について解説しました。
- `Selection`（画面の選択）ではなく、`Range`（メモリ上の範囲）を使う。
- `Start` と `End` の数値を意図通りに操ることで、どんな複雑なテキスト抽出も可能になる。
- 文書の末尾（`Content.End`）という境界線に気をつける。
この基本原則さえ押さえば、長大な仕様書の一括置換、特定の表セル内だけのデータ加工、自動レポート生成など、Wordを使った業務自動化で怖いものはなくなります。
ぜひ、手元のVBAエディタ（`Alt + F11`）を開いて、今日のコードを試してみてくださいね。あなたの自動化ライフが素晴らしいものになるよう、応援しています！
