Macros de Word VBA - Contar palabras en la selección

Contar palabras en la selección

Esta macro de Word VBA contará el número de palabras en la selección. Si no se realiza ninguna selección, contará el número de palabras en todo el documento.

Sub WordCount () 'cuenta el documento completo, luego el recuento de palabras para la selección (si se selecciona algo) Dim nWordsCount As Long Dim nCharCount As Long nWordsCount = ActiveDocument.Range.ComputeStatistics (wdStatisticWords) nCharCount = ActiveDocument.Range.ComputeStatistics (wdStatisticCharacters ") El documento completo contiene: "& vbCrLf & nWordsCount &" palabras y "& vbCrLf & _ nCharCount &" caracteres sin espacios "," Word Count "'ahora muestra el recuento de palabras para el texto seleccionado If Selection.Words.Count> = 1 Y Selection.Type wdSelectionIP Entonces nWordsCount = Selection.Range.ComputeStatistics (wdStatisticWords) nCharCount = Selection.Range.ComputeStatistics (wdStatisticCharacters) MsgBox "El texto seleccionado contiene:" & vbCrLf & nWordsCount & "palabras sin y" & vbCrLCount & "palabras sin y" & vbCrLCount espacios ",," Recuento de palabras (selección) "End If End Sub