Sub Demo()
Application.ScreenUpdating = False
Dim Tbl As Table, Rng As Range, Gray80 As Long
Gray80 = RGB(80, 84, 77)
With ActiveDocument
  Set Rng = .Range(0, 0)
  For Each Tbl In Tables
    With Rng
      .End = Tbl.Range.Start
      .Font.Color = Gray80
      .Start = Tbl.Range.End
    End With
  Next
  Rng.End = .Range.End
  Rng.Font.Color = Gray80
End With
Application.ScreenUpdating = True
End Sub