Range.CharacterStyle (Word)

Devuelve una Variant que representa el estilo utilizado para dar formato a uno o más caracteres.

Dim strCharacterStyle As String
strCharacterStyle = ActiveDocument.Range.CharacterStyle