При разработке макросов часто бывает полезно знать, сколько символов содержится в выделенном тексте. Следующий макрос VBA, CharCount, отобразит количество символов в выделенном фрагменте.

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

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (746) относится к Microsoft Word 97, 2000, 2002 и 2003.