loop through tables in word and change color of cells

[macropod]

Try:

Sub Colora()
Application.ScreenUpdating = False
Dim MyTable As Table, MyCell As Cell, BkGrnd As Long
For Each MyTable In ActiveDocument.Tables
  For Each MyCell In MyTable.Range.Cells
    Select Case Split(MyCell.Range.Text, vbCr)(0)
      Case "I":  BkGrnd = wdColorBlue
      Case "V":  BkGrnd = wdColorRed
      Case Else: BkGrnd = wdColorAutomatic
    End Select
    MyCell.Shading.BackgroundPatternColor = BkGrnd
  Next MyCell
Next MyTable
Set MyCell = Nothing: Set MyTable = Nothing
Application.ScreenUpdating = True
End Sub