Range.Words (Word)
Devuelve una colección Words que representa todas las palabras de un intervalo.
Las marcas de puntuación y de párrafo de un documento se incluyen en la colección de palabras. Para obtener información sobre cómo devolver un solo miembro de una colección, vea devolver un objeto de una colección.
MsgBox "There are " & Selection.Words.Count & " words."