Selection.StoryLength (Word)

Devuelve el número de caracteres del artículo que contiene la selección especificada.

Dim lngStoryLength As Long
lngStoryLength = Selection.StoryLength