WordVBA 表の行・列・セルに色付け：自動化で時短

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

Sub 表の行に色を付ける()

    'カーソルがある表の行を選択
    Selection.SelectRow

    '行に色付け（黄色）
    Selection.Shading.BackgroundPatternColor = wdColorYellow

End Sub

Sub 表の行に色を付ける()

  Dim i As Long
  Dim j As Long
  Dim TblCnt As Long
  Dim TblRowCnt As Long
  Dim CellCnt As Long

  'ファイル内にある表をカウント
  TblCnt = ActiveDocument.Tables.Count

  '全ての表をループ
  For i = 1 To TblCnt

     With ActiveDocument.Tables(i)

        TblRowCnt = .Rows.Count
        CellCnt = .Range.Cells.Count

        For j = 1 To CellCnt

           '1行目の背景色を青に変更
           If .Range.Cells.Item(j).RowIndex = 1 Then
              .Range.Cells.Item(j).Range.Cells. _
               Shading.BackgroundPatternColorIndex = wdBlue
           End If

　         '最終行の背景色をピンクに変更
           If .Range.Cells.Item(j).RowIndex = TblRowCnt Then
              .Range.Cells.Item(j).Range.Cells. _
  　　          Shading.BackgroundPatternColorIndex = wdPink
           End If

        Next j

   End With

 Next i

End Sub

Sub 特定文字を含むセルを着色()

  Dim i As Long
  Dim j As Long
  Dim Q As Long
  Dim TblCnt As Long
  Dim CellCnt As Long
  Dim Target(3) As String

  'ファイル内にある表をカウント
  TblCnt = ActiveDocument.Tables.Count

  '対象文字列を配列に格納
  Target(1) = "一般"
  Target(2) = "ゴールド"
  Target(3) = "種別"

  '全ての表をループ
  For i = 1 To TblCnt

     With ActiveDocument.Tables(i)

        CellCnt = .Range.Cells.Count

        '表の全てのセルをループ
         For j = 1 To CellCnt

           '配列をループ
            For Q = 1 To 3

               '対象文字を含むセルの背景色を着色
               If InStr(.Range.Cells.Item(j).Range.Cells. _
                  Item(1).Range.Text, Target(Q)) >= 1 Then

                  .Range.Cells.Item(j).Range.Cells.Item(1).Range.Cells. _
                  Shading.BackgroundPatternColorIndex = wdBrightGreen
               End If

            Next Q
        Next j
    End With
  Next i

End Sub