Word: ContarCaracteres

Sub ContarCaracteres() ' Selection.WholeStory ' ' ContarCaracteres Macro 'Sub CharCount() Dim Title As String Dim CharCount As Integer Dim Message As String Selection.WholeStory Title = "ContarCaracteres" CharCount = Len(Selection) Message = LTrim(Str(CharCount)) + " character" If CharCount <> 1 Then Message = Message + "s" MsgBox Message, vbOKOnly, Title End Sub