VBA, чтобы проверить, какая таблица стилей загружена в Word

Question

У меня есть небольшой макрос для автоматического изменения стилей, но он не будет работать, если не выбрана правильная таблица стилей. На данный момент это выглядит так:

ActiveDocument.ApplyQuickStyleSet2 ("Anthology")

'change direct formatting to styles
Call DoReplaceStyle("Subtle Emphasis", True)
Call DoReplaceStyle("Bold", , True)

'etc

и это работает просто отлично. Но есть ли способ просто проверить, какой набор стилей загружен, вместо того, чтобы повторно применять его каждый раз?

'e.g.
If [current style set] <> "Anthology" Then
      ActiveDocument.ApplyQuickStyleSet2 ("Anthology")
End If

(Я что-то обдумываю? Да. Иногда Word делает странные и необъяснимые вещи со стилями? Тоже наверное да и инопланетяне в X-files theme)