loop through tables in word and change color of cells

[gmaxey]

Sub colora()
Dim MyTable As Table
Dim MyRow As Row
Dim MyCell As Cell
  For Each MyTable In ActiveDocument.Tables
    For Each MyCell In MyTable.Range.Cells
      If InStr(MyCell.Range.Text, "I") > 0 Then
        MyCell.Shading.BackgroundPatternColor = wdColorBlue
      ElseIf InStr(MyCell.Range.Text, "V") > 0 Then
        MyCell.Shading.BackgroundPatternColor = wdColorRed
      End If
    Next MyCell
  Next MyTable
  Set MyCell = Nothing: Set MyTable = Nothing
End Sub