Если ячейка пуста, то залить.....

[БуреВестник]

Нет, нужен другой код.
Я имею ввиду вставить пробел в пустые ячейки тех таблиц, в которых не надо закрашивать ячейки. Если такая возможность есть, то можно применять предыдущий код.
Данная ситуация осложняется тем, что таблицы вложены в другие таблицы и их Word не видит как таблицы: он видит только одну таблицу в твоём случает.
Поэтому здесь сложная ситуация и нужны знания, просто так не получится.
Есть ещё один вариант - ручной, т.е. тебе надо будет выделять эти таблицы, в которых надо закрашивать ячейки и применять макрос.
Вот сам макрос:

Sub ColorOfEmptyCells()
Dim oCell As Cell
For Each oCell In Selection.Tables(1).Range.Cells
    If oCell.Range.Characters.Count = 1 Then
         oCell.Shading.BackgroundPatternColor = wdColorGray50
    End If
Next
End Sub

Действия этих кодов основано вот на этой строчке:

If oCell.Range.Characters.Count = 1 Then

в ней говорится, если количество символов в ячейке = 1, то применить к ней закрашивание.
Если ячейка полностью пустая, то там всё-равно есть 1 знак "Конец ячейки" (его видно, если включен режим отображения непечатаемых символов). Если ты добавишь в пустую ячейку Пробел, то в ячейке будет 2 знака и окрашивание не будет происходить.

[Verbludov]

я напутал...там не пустота, а как раз пробел....т.е. надо закрвшивать ячейки где только пробел( могу вставлять не пробел, а какую-нибудь комбинацию)...хоть во всём файле

[БуреВестник]

Если в пустой ячейке будет пробел, то она не будет закрашиваться.
Чтобы ячейка закрашивалась в ней ничего не должно быть.