こんにちは。Word VBAの世界へようこそ。
「マクロの記録」ボタンを押して生成された、冗長で不安定なコードに溜息をついたことはありませんか？今日からそのステージを卒業しましょう。
Word VBAを操るということは、「文書という名の広大なキャンバスの上で、カーソルという名の筆を自在に走らせる」ということです。今回は、段落の先頭文字だけを大きく強調する――いわゆる「ドロップキャップ（もどき）」のテクニックを通じて、Word VBAにおける「Range（範囲）」の概念をマスターしていただきます。
ここをクリアすれば、あなたはもうVBAの初心者ではありません。
—
1. なぜ「Range」を理解することが重要なのか
Word VBAで最も重要なのは「Selection」ではなく「Range」です。
- Selection（選択範囲）： 画面上でカーソルが動く場所。描画コストが高く、動作が遅い。
- Range（範囲）： 文書内の見えないメモリ上の領域。高速で、画面に影響を与えずに操作可能。
「プロ」は、画面をチラつかせずに裏側で高速処理を行うために、常にRangeを定義します。まずは以下のコードを見てください。
—
2. 実装コード：先頭文字を劇的に強調する
このコードは、現在カーソルがある段落の先頭1文字を特定し、フォントサイズを20ポイントに拡大します。
Sub HighlightFirstCharacter()
‘ 1. オブジェクト変数を定義（メモリを適切に管理する）
Dim rng As Range
‘ 2. 現在のカーソル位置の「段落」をRangeとして取得
Set rng = Selection.Paragraphs(1).Range
‘ 3. Rangeの範囲を「先頭の1文字」だけに縮小する
‘ MoveEndUntilなどで調整も可能だが、まずは基本の「Start, End」指定
rng.End = rng.Start + 1
‘ 4. フォントプロパティにアクセスし、書式を適用
With rng.Font
.Size = 20
.Bold = True
.Color = wdColorDarkBlue
End With
‘ プロの助言：オブジェクト変数は最後にNothingで解放する癖を
Set rng = Nothing
End Sub
—
3. コードの「魂」を読み解く
このわずか数行の中に、VBAの真髄が詰まっています。
① `Selection.Paragraphs(1).Range`
これは「今カーソルがある段落全体」を指すRangeオブジェクトを切り出しています。Wordにおいて「段落」は、段落記号（改行マーク）を含んだ一つの塊です。この塊を操作の起点にします。
② `rng.End = rng.Start + 1`
ここが一番のポイントです。Rangeオブジェクトには「Start（開始位置）」と「End（終了位置）」という座標データがあります。
- `Start`を基準に、`+1`することで「最初の1文字」だけを射抜く範囲指定ができます。
- このテクニックを覚えると、行末や段落全体など、自由自在に範囲を切り出せるようになります。
③ `With` ステートメントの活用
`rng.Font.Size`, `rng.Font.Bold`…と何度も書くのは、コードの可読性を下げ、バグの温床になります。`With rng.Font` で括ることで、「このRangeのフォント設定をまとめて変更する」という宣言を明確にしています。
—
4. 陥りやすい「罠」と回避策
初心者がよくやる失敗パターンを挙げておきます。
- 罠：段落が空の場合
- もし段落が空（改行のみ）の状態でこのマクロを実行すると、エラーになるか、変な挙動をします。
- 対策： `If Len(rng.Text) > 1 Then` といった条件文を入れ、文字が入っているか確認するガード節を設けましょう。
- 罠：全選択で実行してしまう
- ドキュメント全体を選択した状態で実行すると、全段落の先頭が書き換わります。意図しない挙動を防ぐために、処理前に `Selection.Collapse`（選択を解除してカーソルを1点にする）を行うのが安全です。
—
5. 次のステップへ
今回のコードは「現在地」を操作しましたが、次は「文書内の全段落に対してループ処理を行う」ことに挑戦してみてください。
Dim para As Paragraph
For Each para In ActiveDocument.Paragraphs
‘ ここに先ほどのロジックを応用
Next para
これができれば、数千ページのドキュメントの書式を一瞬で整える「自動化の魔法」が手に入ります。
VBAは、あなたの労働時間を削り取り、その分だけクリエイティブな時間をあなたに与えてくれる強力な武器です。まずはこのコードをコピーして、ご自身のWordで走らせてみてください。
動いた瞬間の「おぉ！」という感動が、あなたのエンジニアとしての第一歩です。また次のステップでお会いしましょう！
