Como esconder todos os estilos de tabelas

Eu tenho um arquivo DOCX do Word 2010 e gostaria de esconder todos os estilos de tabela que não se encaixam em nosso CI / CD. Não parece ser possível com os meios da interface do usuário, então eu preciso de uma macro.

Eu tentei o seguinte

Sub Macro1()
    Dim s As Style

    For Each s In ActiveDocument.Styles
        If s.Type = wdStyleTypeTable Then
            If s.NameLocal <> "Table Grid" Then
                Debug.Print (s.NameLocal)
                s.Visibility = False
                s.UnhideWhenUsed = False
                Call s.Delete
            End If
        End If
    Next
End Sub

que deve ocultar e excluir todos os estilos de tabela, exceto "Table Grid", mas ainda há muitos estilos disponíveis.

É isso que você está tentando fazer?

Ocultar o estilo de tabela, mas torná-lo visível quando usado

Sub Hide_Table_Style()

    With ActiveDocument.Styles(Word.wdStyleTableLightShading)
        .Visibility = True ' Yes, True.
        .UnhideWhenUsed = True
    End With

End Sub

Ou simplesmente ocultar o estilo de tabela

Sub Hide_Table_Style()

    With ActiveDocument.Styles(Word.wdStyleTableLightShading)
        .Visibility = True ' Yes, True.
        .UnhideWhenUsed = False
    End With

End Sub