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

Question

Я определил стили от заголовка 1 до заголовка 9, чтобы заголовок N основывался на заголовке N-1 с некоторыми дополнительными изменениями стиля. Это позволяет мне обновлять стили Heading последовательно на всех уровнях.

Однако в определенный момент времени я установил цвет шрифта в стиле « Заголовок 8» и не могу отменить это изменение. Конечным результатом является то, что всякий раз, когда я редактирую цвет шрифта заголовка 1, все стили заголовков от заголовка 1 до заголовка 7 показывают обновленный цвет шрифта, но это останавливается на заголовке 8.

Как это можно исправить? Даже исправление VBA приветствуется.

Answer 1

Я нашел исправление 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" .