Welcome toWord.Tips.Net
Ask a Word Question
Make a Comment
Learn Access Now
Free Printable Forms
Beauty Tips
Car Tips
Cleaning Tips
College Tips
Cooking Tips
Excel2007 Tips
ExcelTips
Family Tips
Gardening Tips
Health Tips
Home Tips
Legal Tips
Money Tips
Organizing Tips
Pest Tips
Pet Tips
Wedding Tips
Word2007 Tips
WordTips
Collapsing and Expanding Subdocuments
When you are developing macros, it is often helpful to know how many characters are in a text selection. The following WordBasic macro, CharCount, will display the number of characters in a selection.
Sub MAIN
Title$ = "CharCount"
On Error Goto HugeString
InSelection = SelType()
If InSelection = 2 Or InSelection = 6 Then
CharCount = Len(Selection$())
CharCount$ = Mid$(Str$(CharCount), 2) + " character"
If CharCount <> 1 Then CharCount$ = CharCount$ + "s"
MsgBox CharCount$, Title$
Else
Beep
MsgBox "No text selected", Title$, 16
End If
Goto Done
HugeString:
MsgBox "Selection too large", Title$, 48
Done:
End Sub
Tip #745 applies to Microsoft Word versions: 6 95
Step Up and Take Control! Subscribers to WordTips know just how valuable a resource it is. WordTips Premium provides twice the number of exceptional, easy-to-understand tips every week in an ad-free newsletter, as well as substantial discounts on WordTips archives and e-books.