Selection.StoryLength (Word)

Returns the number of characters in the story that contains the specified selection.

Dim lngStoryLength As Long
lngStoryLength = Selection.StoryLength