こんにちは！ Word VBAの世界へようこそ。
マクロの記録ボタンを押して「なんだかよく分からないけれど動いた！」と喜んでいた時期を通り越し、「そろそろ自分の手で自由自在に文書をコントロールしたい」と感じている頃ではないでしょうか。
今回は、業務文書やレポートの表紙、あるいは物語の冒頭などでパッと目を引く「ドロップキャップ（段落の先頭文字を大きくする装飾）」を、VBAを使って一瞬で設定・解除する方法を解説します。
ここをクリアすれば、Wordの「段落」というオブジェクトがどう動いているのか、その手応えがグッと掴めるようになりますよ。さあ、一緒に扉を開けていきましょう！
—
1. ドロップキャップって、そもそもVBAでどう動いているの？
手作業でドロップキャップを設定する場合、「挿入」タブを開いて、文字を選択して……と、意外とマウス操作のステップが多いですよね。
これをVBAで自動化するとき、Wordの内部では何が起きているでしょうか？
ここで、私たちチーフアーキテクトがいつも意識している「オブジェクトの階層構造」を思い出してください。
Word VBAにおいて、ドロップキャップは「段落（Paragraph）」そのものが持っている機能（プロパティ）として制御されます。具体的には、対象となる段落の `DropCapستي`（※Wordの内部構造では `DropCap` オブジェクト）に対して、「フォントの種類は何にするか」「何行分の高さにするか」といった命令を出します。
つまり、「どの段落の？」「どんな風に？」「ドロップキャップを適用する！」という順番をコードで指定してあげればいいのです。
—
2. 【実践】ドロップキャップを自動設定するマクロ
まずは、現在カーソルがある段落、あるいは文書の最初の段落に対して、スタイリッシュなドロップキャップを一撃で設定するコードを見てみましょう。
以下のコードを、WordのVBAエディタ（Alt + F11で開けます）の標準モジュールに貼り付けてみてください。
Sub ApplyDropCapToCurrentParagraph()
‘ —————————————————————–
‘ 処理概要: 選択している（またはカーソルがある）段落の先頭文字に
‘ ドロップキャップを設定するプロシージャ
‘ —————————————————————–
Dim targetPara As Paragraph
‘ 1. エラー対策：現在カーソルがある段落を取得する
Set targetPara = Selection.Paragraphs(1)
‘ 2. 選択された段落に対してドロップキャップを設定
With targetPara
.DropCap.Position = wdDropNormal ‘ 通常のドロップ配置（行内に沈める）
.DropCap.FontName = “Times New Roman” ‘ フォントを指定
.DropCap.Lines = 3 ‘ 大きさを「3行分」にする
.DropCap.Distance = InchesToPoints(0.1) ‘ 本文との距離（約0.1インチ）
End With
MsgBox “ドロップキャップを設定しました！”, vbInformation, “完了”
End Sub
コードのここがポイント！
- `Selection.Paragraphs(1)`: ユーザーが今マウスやカーソルで選んでいる「最初の段落」をピンポイントで掴みに行っています。
- `With targetPara.DropCap`: 何度も `targetPara.DropCap` と書かなくて済むようにまとめる、VBAの基本にして最強のテクニックです。コードがスッキリして読みやすくなりますよね。
- `wdDropNormal`: Wordが標準で用意してくれている定数（お約束の名前）です。「普通に段落の左側に沈めるスタイルですよ」とWordに教えてあげています。
—
3. 【実践】ドロップキャップを綺麗に解除するマクロ
設定したら、当然「元に戻したくなったとき」の解除方法も知っておく必要があります。
実務の現場では、「一括で全解除したい」というニーズもよくありますよね。今回は、カーソルがある段落のドロップキャップをスパッと消し去るコードをご紹介します。
Sub RemoveDropCapFromCurrentParagraph()
‘ —————————————————————–
‘ 処理概要: カーソルがある段落のドロップキャップを解除する
‘ —————————————————————–
Dim targetPara As Paragraph
‘ 現在の段落を取得
Set targetPara = Selection.Paragraphs(1)
‘ ドロップキャップの位置を「なし」に設定することで解除する
targetPara.DropCap.Position = wdDropNone
MsgBox “ドロップキャップを解除しました。”, vbInformation, “完了”
End Sub
解除のカラクリ
実は、Word VBAにおいてドロップキャップを「削除する専用の命令（Deleteメソッドなど）」はありません。その代わり、位置を示すプロパティに `wdDropNone`（なし） を代入してあげることで、結果的にドロップキャップが消える仕様になっています。
初学者が「あれ？消し方が分からないぞ」とハマりがちなポイントなので、ぜひ覚えておいてくださいね！
—
4. 初学者が陥りやすい「罠」とエラー対策
現場でコードを書き始めると、必ずと言っていいほど次のような壁にぶつかります。先輩として、あらかじめその回避方法を伝授しておきますね。
罠1: 表（テーブル）の中で実行してエラーになる
Wordの表の中にあるセルは、通常の段落とは少し違う特殊な構造をしています。表のセル内でドロップキャップを実行しようとすると、予期せぬエラーでマクロが止まってしまうことがあります。
【対策】
本番の業務ツールとして運用する場合は、以下のように「今カーソルがある場所は本当に大丈夫？」とチェック（条件分岐）を入れるのがプロの技です。
If Selection.Information(wdInTable) = True Then
MsgBox “表の中ではドロップキャップを設定できません。”, vbCritical, “エラー”
Exit Sub
End If
この一文を入れておくだけで、マクロの堅牢性（壊れにくさ）が段違いに跳ね上がります。
罠2: 段落の先頭が「スペース」や「改行のみ」になっている
ドロップキャップは、文字通り「先頭の文字」を大きくする機能です。もし段落の先頭に意図せず半角スペースや全角スペースが入っていると、スペース自体が大きく変形してしまい、レイアウトが崩れてしまいます。
【対策】
VBAを実行する前に、文書の「トリム（前後の不要な空白を削る処理）」を行っておくか、手動であらかじめ整えておく心構えを持ちましょう。
—
おわりに
いかがでしょうか？
今回は、段落の装飾という一見マニアックなテーマを扱いましたが、ここで学んだ「オブジェクトの取得 ➔ With句によるプロパティの操作 ➔ 定数を使った状態の変更」という流れは、Word VBAにおけるすべての基本であり、極意そのものです。
ここをクリアできれば、フォントの色変更、行間の一括調整、段落番号の制御など、あらゆる書式設定をあなたの思い通りに操れるようになります。
「たった数行のコードで、手作業のストレスから解放される」。
その感動を味わえたなら、あなたはもう立派なWord VBAエンジニアの仲間入りです。
日々のドキュメント作成作業を、もっとスマートに、もっとエレガントに。
あなたのVBAライフを、これからも応援しています！
