こんにちは！Word VBAの世界へようこそ。
マクロの記録ボタンを押すだけのステージから一歩進み、自分の手でドキュメントを意のままに操りたいあなたへ。今日は、実務で絶対に役立つ「表の条件付き書式」をテーマにお話しします。
Excelなら「条件付き書式」はお馴染みの機能ですが、実はWordの表には、Excelのようなワンクリックの条件付き書式はありません。だからこそ、VBAを使ってコードで動的に枠線を太くするというテクニックが、あなたの武器になります。
ここをクリアすれば、Word VBAのオブジェクト構造の本質がグッと見えてきますよ。さあ、一緒に極限の知見へと踏み込みましょう！
—
なぜWordの表操作はつまずきやすいのか？
まず、先輩エンジニアとして一つ重要なマインドセットをお伝えします。
Wordの表（`Table`オブジェクト）は、Excelのシート（`Worksheet`）とは構造の思想が全く異なります。Excelが「セル（Cell）の集合体」であるのに対し、Wordは「行（Row）の集合体であり、その中にあるセル（Cell）が複雑に重なり合う世界」です。
特に「枠線の変更」をVBAで行う際、初心者の多くが次のようなトラップにハマります。
- トラップ1: セル全体の枠線を変更しようとしてエラーになる（WordのBordersは方向指定がシビア）
- トラップ2: 画面の描画が追いつかずに処理が激重になる
- トラップ3: 結合セル（Merge）がある表でインデックスがズレて迷子になる
これらの壁を華麗にクリアし、データ内容に応じて動的に枠線を太くするスマートなコードを、これから一緒に組み立てていきましょう。
—
実践：データに応じて「特定の値以上」の行・セルの枠線を太くする
今回は、「売上金額が10万円以上の行、または特定の重要セルだけ、枠線を太く（あるいは二重線に）して強調する」というシナリオを想定します。
以下のコードを、あなたのWordVBAエディタ（`Alt + F11`）に貼り付けてみてください。現場でそのままコピペして使える、実用性と堅牢性を兼ね備えたコードです。
Sub HighlightImportantTableBorders()
Dim doc As Document
Set doc = ActiveDocument
‘ ドキュメントに表が存在するかチェック
If doc.Tables.Count = 0 Then
MsgBox “文書内に表が見つかりません。”, vbExclamation, “エラー”
Exit Sub
End If
‘ 処理の高速化（画面描画をストップ）
Application.ScreenUpdating = False
Dim tbl As Table
Set tbl = doc.Tables(1) ‘ 文書内の最初の表を対象とする
Dim rowIdx As Long, colIdx As Long
Dim targetCell As Cell
Dim cellText As String
Dim numericValue As Double
‘ 表の行を上から順に走査（ヘッダー行である1行目はスキップ）
For rowIdx = 2 To tbl.Rows.Count
‘ 例として「3列目（売上金額）」の数値判定を行うとする
colIdx = 3
If tbl.Columns.Count >= colIdx Then
Set targetCell = tbl.Cell(rowIdx, colIdx)
‘ セル内のテキストから余計な空白や改行を除去して数値化
cellText = Trim(targetCell.Range.Text)
‘ Wordのセル末尾には必ず制御文字(Chr(13) + Chr(7))が含まれるため除去
cellText = Replace(cellText, Chr(13), “”)
cellText = Replace(cellText, Chr(7), “”)
If IsNumeric(cellText) Then
numericValue = CDbl(cellText)
‘ 【条件分岐】もし売上が100,000円以上なら、そのセルの枠線を強調！
If numericValue >= 100000 Then
‘ セルの上下左右の枠線オブジェクトを操作
With targetCell.Borders
.Item(wdBorderTop).LineStyle = wdLineStyleSingle
.Item(wdBorderTop).LineWidth = wdLineWidth150 ‘ 太めに設定 (1.5pt)
.Item(wdBorderBottom).LineStyle = wdLineStyleSingle
.Item(wdBorderBottom).LineWidth = wdLineWidth150
.Item(wdBorderLeft).LineStyle = wdLineStyleSingle
.Item(wdBorderLeft).LineWidth = wdLineWidth150
.Item(wdBorderRight).LineStyle = wdLineStyleSingle
.Item(wdBorderRight).LineWidth = wdLineWidth150
End With
‘ 背景色を薄いグレーにするなど、視覚効果をさらに高める演出も可能
‘ targetCell.Shading.BackgroundPatternColor = wdColorLightGray
End If
End If
End If
Next rowIdx
‘ 画面描画を復元
Application.ScreenUpdating = True
MsgBox “条件付き書式の適用が完了しました！”, vbInformation, “完了”
End Sub
—
コードの核心を解説：ここがプロの技！
上記のコードには、Word VBAを極めるための重要なエッセンスが詰まっています。いくつかポイントを解説しますね。
1. セル文字列の「不可視文字」トラップを回避する
Wordのセルから `.Range.Text` で文字列を取得すると、末尾に必ず `Chr(13) + Chr(7)` というWord特有の制御文字（セル終了マーク）がくっついてきます。
これをそのまま `IsNumeric()` にかけると、数値であっても「偽（False）」と判定されてしまいます。コード内で `Replace` を使ってこれらを除去しているのは、実務で100%直面するバグを防ぐための知恵です。
2. `Borders` コレクションの方向指定
Excelでは `Borders.Weight` で一発変更できることが多いですが、Wordは少し違います。
`targetCell.Borders` に対して `.Item(wdBorderTop)` のように上下左右（Top, Bottom, Left, Right）の方向を明確に指定してあげることが、意図しない枠線の崩れを防ぐ最大のコツです。
3. `Application.ScreenUpdating = False` による爆速化
プログラミング初学者がやりがちなのが、ループの中で1つセルを塗り替えるたびにWordに画面を描画させてしまうミスです。これだと表が大きい時にフリーズしたような遅さになります。
処理の最初に `ScreenUpdating = False` を置き、最後に `True` に戻す。このワンクッションが、プロのエンジニアとしての作法です。
—
よくあるエラーとスマートな対処法
- エラー：「インデックスが有効範囲にありません（Error 9）」
- 原因: 指定した行番号や列番号が、実際の表のサイズを超えているか、セルが結合されているために存在しないインデックスを叩いています。
- 対策: 処理の前に `If tbl.Rows.Count >= …` のように必ず存在チェックを挟む癖をつけましょう。
—
まとめ：あなたのドキュメント自動化は次のステージへ
今回は、Word表の枠線をデータ内容に応じて動的に太くする条件付き書式の実装方法を解説しました。
静的な文書を作成するだけのWordから、「データを読み取り、自ら判断して美しくビジュアルを最適化するドキュメント」へ。今回のテクニックを取り入れるだけで、あなたの作るWordマクロのクオリティはプロフェッショナルな領域へと一気に飛躍します。
ここをクリアしたあなたなら、もうWord VBAの基本はバッチリです！自信を持って、日々の業務自動化に挑戦してくださいね。それでは、次回の記事でお会いしましょう！
