Range.CharacterStyle (Word)

Retorna um valor que representa o estilo usado para formatar um ou mais caracteres. Somente leitura.

Dim strCharacterStyle As String
strCharacterStyle = ActiveDocument.Range.CharacterStyle