Counting Characters in a Selection with VBA

Summary: Need to figure out the number of characters in a range of selected text? Here's how to do it in VBA. (This tip works with Microsoft Word 97, Word 2000, Word 2002, and Word 2003.)

When you are developing macros, it is often helpful to know how many characters are in a text selection. The following VBA macro, CharCount, will display the number of characters in a selection.

Sub CharCount()
    Dim Title As String
    Dim CharCount As Integer
    Dim Message As String

    Title = "CharCount"
    CharCount = Len(Selection)
    Message = LTrim(Str(CharCount)) + " character"
    If CharCount <> 1 Then Message = Message + "s"
    MsgBox Message, vbOKOnly, Title
End Sub

Tip #746 applies to Microsoft Word versions: 97 | 2000 | 2002 | 2003

Tremendous Table Tips! We often take tables for granted, but Word includes some very powerful ways you can present your tabular data. Discover how to make your tables better, easier to understand, and more effective.

Check out WordTips: Terrific Tables today!

Helpful Links

Newest Tips

Subscribe

RSS Feeds

Counting Characters in a Selection with VBA