Sub HIDE()
Dim t As Table
Dim c As Cell
' Loop through each table in the document
For Each t In ActiveDocument.Tables
' Loop through each cell in the table
For Each c In t.Range.Cells
' Check if shading matches light gray (RGB 191, 191, 191)
If c.Shading.BackgroundPatternColor = RGB(191, 191, 191) Then
' Hide the text inside the cell
c.Range.Font.Hidden = True
End If
Next c
Next t
End Sub