Как сбросить цвет в связанном стиле Microsoft Word

я нашел исправление VBA для сброса любого заданного стиля, и это делает трюк. Вот код VBA:

    Private Sub ClearStyle(sStyleName As String)
        Dim oStyle As Variant
        Set oStyle = ActiveDocument.Styles(sStyleName)

        With ActiveDocument.Styles(oStyle)
            If .BaseStyle <> "" Then
                .Font = .BaseStyle.Font
                .ParagraphFormat = .BaseStyle.ParagraphFormat
            End If
        End With
    End Sub

    Public Sub clearDirtyStyles()
        ClearStyle "Heading 8"
    End Sub

вызывая макрос ClearDirtyStyles VBA из поврежденного шаблона, стиль сбрасывается.

я проверял на MS Word для Mac 2016, и это работает. Попробуйте сами, играя с цветами шрифтов в Heading 1,Heading 2 и Heading 3, а затем запустить ClearStyle "Heading 3".