Selection.StoryLength (Word)

Renvoie le nombre de caractères dans l'article qui contient la sélection spécifiée.

Dim lngStoryLength As Long
lngStoryLength = Selection.StoryLength