Microsoft Office Forums - View Single Post - Macro to shade empty cells in table with pattern

Italophile · 01-17-2024, 09:03 AM

An empty table cell isn't empty as it contains an end of cell mark which is a compound character with a text length of two characters. The routine below simply loops through the table checking the text length of each cell and applies the texture as necessary

Code:

Sub ApplyTableShading()
    Dim tbl As Table: Set tbl = ActiveDocument.Tables(2)
    Dim tRow As Row, tCell As Cell
    
    For Each tRow In tbl.Rows
        For Each tCell In tRow.Cells
            If Len(tCell.Range.Text) = 2 Then tCell.Shading.Texture = wdTextureDiagonalUp
        Next tCell
    Next tRow
End Sub