Sub ColorIt()
Dim i As Long, R As Long, G As Long, B As Long, Rng As Range
With ActiveDocument.Tables(1)
  For i = 2 To .Rows.Count
    Set Rng = .Cell(i, 1).Range
    Rng.End = Rng.End - 1
    R = CLng(Rng.Text)
    Set Rng = .Cell(i, 2).Range
    Rng.End = Rng.End - 1
    G = CLng(Rng.Text)
    Set Rng = .Cell(i, 3).Range
    Rng.End = Rng.End - 1
    B = CLng(Rng.Text)
    .Cell(i, 4).Shading.BackgroundPatternColor = RGB(R, G, B)
    .Cell(i, 5).Shading.BackgroundPatternColor = RGB(R, G, B)
  Next i
End With
End Sub