Range.CharacterStyle (Word)

Renvoie une valeur de type Variant qui représente le style utilisé pour mettre en forme un ou plusieurs caractères.

Dim strCharacterStyle As String
strCharacterStyle = ActiveDocument.Range.CharacterStyle