Как скрыть все стили таблицы

Question

У меня есть файл Word 2010 DOCX, и я хотел бы скрыть все необычные стили таблиц, которые не соответствуют нашему CI/CD. Это кажется невозможным с помощью пользовательского интерфейса, поэтому мне нужен макрос.

Я попробовал следующее

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

который должен скрывать и удалять все стили таблицы, кроме "Таблица таблиц", но все еще слишком много доступных стилей.

Answer 1

Это то, что вы пытаетесь сделать?

---

Чтобы скрыть стиль таблицы, но сделать его видимым при использовании

Sub Hide_Table_Style()

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

End Sub

---

Или просто скрыть стиль таблицы

Sub Hide_Table_Style()

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

End Sub