こんにちは！Word VBAの世界へようこそ。
マクロの記録ボタンを押して、生成された呪文のようなコードを眺めては「これ、どうやって書き直せばいいんだろう…」と途方に暮れていませんか？
大丈夫、安心してください。今日ここでお話しする「段落枠の自動描画」をマスターすれば、あなたのWord VBAスキルは間違いなく「初学者」の領域を抜け出し、実務でバリバリ使える中級エンジニアの扉を開くことになります。
今回は、文書の中でひときわ目立たせたい「注意書き」や「重要項目」の段落を、VBAの力で美しく枠線で囲む方法を、現場の知見をたっぷり詰め込んで優しく解説していきますね。ここをクリアすれば、Wordの書式設定の基本はバッチリですよ！
—
1. なぜ「段落枠」の自動化でつまずくのか？
Wordの画面で段落に枠線をつけようとすると、「段落」ダイアログを開いて、「罫線」タブを選んで、線種や色を選んで……と、マウス操作が地味に多いですよね。これをVBAでやろうとすると、多くの人がまず「マクロの記録」に頼ります。
しかし、記録されたコードを見てみると、何やら長ったらしいプロパティや、見慣れないオブジェクトがずらり。
「あれ？ 指定した段落だけに枠をつけたいのに、文書全体が変わっちゃった！」
「エラー 438：オブジェクトは、このプロパティまたはメソッドをサポートしていません」
こんなエラーに直面して、そっとVBAエディタを閉じたくなる気持ち、痛いほどよく分かります。
Word VBAにおいて、文字や段落を装飾する仕組みの核心は「どこ（RangeやParagraph）に対して、どのプロパティ（Borders）を操作するか」の階層構造を正確に理解することにあります。ここさえ押さえれば、もう怖くありません。
—
2. Word VBAの心臓部：「Paragraphs」と「Borders」の関係
Wordの文書は、大きなキャンバス（Document）の中に、段落（Paragraph）が上から順番に並んでいる構造をしています。
一つの段落（Paragraph）は、実は「枠線（Borders）」という強力なプロパティを持っています。枠線は、上・下・左・右の4つの辺（Border）の集合体です。つまり、VBAで段落を囲むということは、「特定の段落のBordersコレクションにアクセスし、それぞれの辺の太さや色、線種を設定する」という作業に他なりません。
百聞は一見にしかず。まずは、特定のキーワードが含まれる段落を自動で探し出し、スタイリッシュな枠線で囲む実用的なコードを見てみましょう。
—
3. 【実践コード】重要段落を自動で枠線囲みするマクロ
以下のコードをWordのVBAエディタ（Alt + F11で起動）に貼り付けて実行してみてください。
文書内の「【注意】」という文字から始まる段落を探し出し、左側に太いアクセントライン、上下に細い罫線を引いて、背景色をうっすらとグレーにするプロ仕様の装飾を施します。
Sub DrawParagraphBorderExample()
Dim doc As Document
Dim para As Paragraph
Dim targetText As String
‘ 処理対象の文書を指定（アクティブな文書）
Set doc = ActiveDocument
‘ 検索キーワードの定義
targetText = “【注意】”
‘ 文書内のすべての段落を上から順に走査する（ループ処理）
For Each para In doc.Paragraphs
‘ 段落の先頭に指定のキーワードが含まれているか判定
If InStr(para.Range.Text, targetText) > 0 Then
‘ 【重要】余白やパディングを設定して見栄えを良くする
para.LeftIndent = CentimetersToPoints(0.5)
para.RightIndent = CentimetersToPoints(0.5)
‘ 枠線の設定（Bordersコレクションを一括操作）
With para.Borders
‘ 1. まずすべての枠線を一旦リセット（既存の線をクリア）
.Enable = False
‘ 2. 上下の枠線を設定
.Item(wdBorderTop).LineStyle = wdLineStyleSingle
.Item(wdBorderTop).LineWidth = wdLineWidth050 ‘ 0.5ptの細線
.Item(wdBorderTop).Color = wdColorGrayText
.Item(wdBorderBottom).LineStyle = wdLineStyleSingle
.Item(wdBorderBottom).LineWidth = wdLineWidth050
.Item(wdBorderBottom).Color = wdColorGrayText
‘ 3. 左側に強調用の太い線を設定
.Item(wdBorderLeft).LineStyle = wdLineStyleSingle
.Item(wdBorderLeft).LineWidth = wdLineWidth300 ‘ 3.0ptの太線
.Item(wdBorderLeft).Color = wdColorDarkRed ‘ 深い赤色
‘ 4. 右側の枠線は不要なのでオフにする
.Item(wdBorderRight).LineStyle = wdLineStyleNone
‘ 5. 枠線と文字の間の余白（シャドウ・距離）を設定
.DistanceFromTop = 4 ‘ pt
.DistanceFromBottom = 4
.DistanceFromLeft = 6
.DistanceFromRight = 6
End With
‘ 6. 背景色を薄いグレーに設定（Shadingプロパティを活用）
para.Shading.BackgroundPatternColor = RGB(245, 245, 245)
End If
Next para
‘ 完了メッセージ
MsgBox “重要段落の枠線装飾が完了しました！”, vbInformation, “処理成功”
End Sub
—
4. コードの深掘り解説：ここがエンジニアのこだわりポイント
ただ動くだけのコードなら誰でも書けます。ここからは、プロの視点でこのコードの「美味しいポイント」を解説します。
① `For Each para In doc.Paragraphs` の圧倒的安定感
文字を検索してRangeをこねくり回す方法もありますが、文書全体の構造（レイアウト）にアプローチする場合、`Paragraphs` コレクションをループさせるのが最もバグが少なく、直感的です。上から順に確実に段落をキャッチしてくれます。
② `Borders.Item` を使った精密射撃
Word VBAでは、`para.Borders(wdBorderLeft)` のようにも書けますが、明確に `.Item(wdBorderLeft)` と記述することで、コードの意図が明確になり、後から保守（メンテナンス）する際にも読みやすくなります。
今回は「左側だけ太い赤線、上下は細いグレー、右はなし」という、いわゆるモダンな「左アクセント枠」を構築しています。これにより、Word臭さが抜けた洗練されたドキュメントが自動生成されます。
③ `Shading` による背景色の演出
枠線だけでも十分綺麗ですが、プロは一歩進んで背景色（`Shading.BackgroundPatternColor`）を薄く敷きます。これによって、段落全体が一つの「カードUI」のようなブロックとして認識され、可読性が劇的に向上します。RGB関数で自由な色を指定できるのもVBAならではの強みです。
—
5. 陥りやすい罠とエラー回避の知見
最後に、現場で開発しているときによくハマる「落とし穴」を先回りして共有しておきますね。
- 罠1：空の段落（改行のみ）がヒットしてしまう
- 対策：Word文書には、意図しない空行（改行だけの段落）が無数に含まれていることがあります。`If para.Range.Text = vbCr Then Exit Sub` のように、文字数が極端に少ない段落をスキップする条件を入れると、無駄な処理を防げます。
- 罠2：すでに枠線がついている段落を再処理すると線が二重になる
- 対策：今回のコードでも入れていますが、処理の最初に `.Enable = False` （または各線の `.LineStyle = wdLineStyleNone`）を挟んで、状態を一度リセット（初期化）するのが、バグを防ぐ黄金律です。
—
おわりに
いかがでしたでしょうか？
「段落枠の描画」という一見マニアックなテーマですが、これを自在に操れるようになると、自動で美しく整形された議事録、マニュアル、報告書をワンクリックで生成できるようになります。
「マクロの記録」の向こう側にある、オブジェクトを意のままに操る快感。
ぜひ今回のコードをご自身の環境で試して、カスタマイズしてみてください。あなたの業務自動化の旅が、ここからさらに加速することを応援しています！
