Range.CharacterStyle (Word)

Returns a Variant that represents the style used to format one or more characters.

Dim strCharacterStyle As String
strCharacterStyle = ActiveDocument.Range.CharacterStyle