Найти / заменить выделение без цвета в документе Word с таблицами

Question

У меня есть код, который находит и заменяет зеленую подсветку без цвета (без фона), но он не работает в документах Word с таблицами. Я знаю, что должен преобразовать свой код в диапазон, но все попытки не увенчались успехом.

Вот код, который работает часть времени:

Sub FindGreenReplaceBlank ()
Application.ScreenUpdating = False
Options.DefaultHighlightColorIndex = wdNoHighlight
ActiveDocument.TrackRevisions = False
Selection.WholeStory
     With Selection.Find
          .ClearFormatting
          .Highlight = .True
          Do While (.Execute(Forward:=True) = True) = True
               If Selection.range.HighlightColorIndex = wdBrightGreen Then
                    Selection.range.HighlightColorIndex = wdNoHighlight
                    Selection.Collapse direction:=wdCollapseEnd
               End If
          Loop
     End With
Application.Screenupdating = True
End Sub

Изменения:

• Он не работает, поскольку зеленая подсветка не всегда удаляется.
• Я не могу очистить все выделения, только зеленый.