VBA para verificar qual folha de estilo está carregada no Word

Question

Eu tenho uma pequena macro para alterar os estilos automaticamente, mas não funcionará a menos que a folha de estilo correta esteja selecionada. No momento, parece assim:

ActiveDocument.ApplyQuickStyleSet2 ("Anthology")

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

'etc

e funciona muito bem. Mas existe uma maneira de apenas verificar qual conjunto de estilos é carregado, em vez de reaplicá-lo toda vez?

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

(Eu estou pensando demais? Sim. O Word faz coisas estranhas e inexplicáveis com estilos, às vezes? Também provavelmente sim e aliens arquivo X-theme )