【ワードマクロ】表の列に色を付ける：コピペで使えるマクロコード

ワードマクロで、表の列に色付けする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