Selection.Words (Word)
Devuelve una colección Words que representa todas las palabras de una selección.
Las marcas de párrafo y puntuación de un documento se incluyen en la colección Words.
MsgBox "There are " & Selection.Words.Count & " words."