Word VBA script

Question

Я ищу слово скрипт VBA, чтобы скрыть ячейку таблицы с серым фоном. У меня есть файлы с большим количеством таблиц, в которых есть несколько ячеек с цветом фона, мне нужно скрыть содержимое этих ячеек ... может ли кто-нибудь помочь мне?

Answer 1

selection.homekey wdstory 
    With Selection.find 
     .ClearFormatting 
     .Highlight = True 
     .Wrap = wdFindStop 
     Do While .Execute = True 
      If selection.range.HighlightColorIndex = wdgray25 and Selection.Information(wdWithInTable) = False Then 
       Selection.RANGE.font.Hidden = True 
       ''Selection.RANGE.font.ColorIndex = wdWhite ''to hide the text content 
       ''Selection.RANGE.HighlightColorIndex = wdAuto ''to remove the highlight 
      End If 
      selection.Collapse wdCollapseEnd 
     Loop 
    End With