Selection.StoryLength (Word)

Retorna o número de caracteres do texto que contém a seleção especificada. Long somente leitura.

Dim lngStoryLength As Long
lngStoryLength = Selection.StoryLength