Как подсчитать буквы?

[Simbad]

Здравствуйте, уважаемые эксперты!
Подскажите, пожалуйста, как подсчитать общее количество букв в документе с помощью VBA.

[HandKot]

как-то так

Код:

ThisDocument.Range.ComputeStatistics

и там выберите, что надо посчитать

Символьное обозначение	Смысл
wdStatisticWords	Количество слов
wdStatisticLines	Количество строк
wdStatisticPages	Количество страниц
wdStatisticCharacters	Знаки без пробелов
wdStatisticParagraphs	Количество разделов
wdStatisticCharactersWithSpaces	Знаки с пробелами

[Ципихович Эндрю]

Как же всё таки правильно
Количество_слов = ActiveDocument.Range.wdStatisticWords
Так не катит!

[HandKot]

Ципихович Эндрю
правильно читать то, что написано и не придумывать непонятные операторы

Код:

ThisDocument.Range.ComputeStatistics( wdStatisticWords)

а также пользоваться F1 и MSDN

[Ципихович Эндрю]

Как же Вы умеете доходчиво объяснять! Зачем форумы то нужны Эф 1 и всё. Спасибо
Количество_слов = ActiveDocument.Range.ComputeStatistics(wdStatisticWords)
Количество_строк = ActiveDocument.Range.ComputeStatistics(wdStatisticLines)
Количество_страниц = ActiveDocument.Range.ComputeStatistics(wdStatisticPages)
Количество_знаков_без_пробелов = ActiveDocument.Range.ComputeStatistics(wdStatisticCharacters)
Количество_знаков_с_пробелами = ActiveDocument.Range.ComputeStatistics(wdStatisticCharactersWithSpaces)
Количество_разделов = ActiveDocument.Range.ComputeStatistics(wdStatisticParagraphs)

[Sla]

Ципихович Эндрю, дАрогой.
чтение документации и напряг мозга - 90%  успеха.

[HandKot]

ИМХО, когда за тебя все делают другие и ты пользуешься только копи-пасте, то НИКОГДА НИЧЕМУ не научишься
так как в голове отложится только копи-пасте

ЗЫЖ с моего первого ответа в этот топике, я помню данный функционал, т.к потратил много времени на решение данного вопроса