ワードマクロで、表の列に色付けするVBAコードをご紹介します。
以下のような作業でお困りはありませんか?
・表の任意の列に色をつけたい
このページのマクロコードは、コピペで使えます。
ぜひ、お試しください!
表の特定の列に色を付ける
以下のWordVBAを実行すると、
ワードファイル内にあるすべての表の1列目と最終列に色を塗ります。
Sub 表の特定の列に色を付ける()
Dim i As Long
Dim j As Long
Dim TblCnt As Long
Dim TblColumnCnt As Long
Dim CellCnt As Long
'ファイル内にある表をカウント
TblCnt = ActiveDocument.Tables.Count
'全ての表をループ
For i = 1 To TblCnt
With ActiveDocument.Tables(i)
TblColumnCnt = .Columns.Count
CellCnt = .Range.Cells.Count
For j = 1 To CellCnt
'表の1列目の背景色をグレーに変更
If .Range.Cells.Item(j).ColumnIndex = 1 Then
.Range.Cells.Item(j).Range.Cells. _
Shading.BackgroundPatternColorIndex = wdGray25
End If
'表の最終列の背景色を黄色に変更
If .Range.Cells.Item(j).ColumnIndex = TblColumnCnt Then
.Range.Cells.Item(j).Range.Cells. _
Shading.BackgroundPatternColorIndex = wdYellow
End If
Next j
End With
Next i
End Sub
マクロ実行前
マクロ実行後
表の1列目をグレーにして、最終列を黄色にしました。
この記事がお役に立ちますと幸いです。

【ワードマクロ】表の処理を自動化:超便利13選
...