Word "строка состояния" кол-во знаков. Вопрос

[VasilyGor]

Вижу внизу на строке состояния кнопку "число слов", но при нажатии имеем в статистике и число знаков с пробелами ... (spacecount)
при этом ворд четко в режиме реального времени фиксирует каждый знак.

знает ли кто как сделать, чтобы отражалось и это значение на строке состояния (кол-во знаков с пробелами)?

а еще луче бы сказать как-нибудь Ворду через VBA и дать задание, чтобы он сообщал что лимит (допустим 2000 знаков) исчерпан. Пусть выдаст сообщение об этом MsgBoxом.

PS если это важно, то смотрю сейчас на 2007-ой ворд

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

Выбирайте, что душе угодно

Количество_слов = ActiveDocument.Range.ComputeStatistics(wdStatisticWords)
Количество_строк = ActiveDocument.Range.ComputeStatistics(wdStatisticLines)
Количество_страниц = ActiveDocument.Range.ComputeStatistics(wdStatisticPages)
Количество_знаков_без_пробелов = ActiveDocument.Range.ComputeStatistics(wdStatisticCharacters)
Количество_знаков_с_пробелами = ActiveDocument.Range.ComputeStatistics(wdStatisticCharactersWithSpaces)
Количество_разделов = ActiveDocument.Range.ComputeStatistics(wdStatisticParagraphs)
Количество_предложений = ActiveDocument.Range.Sentences.Count
For I = 1 To Количество_предложений
Set Предложение = ActiveDocument.Sentences(I)
Количество_слов_в_предложении = ActiveDocument.Sentences(I).Words.Count
Next I

Количество_слов_в_абзаце = ActiveDocument.Paragraphs(5).Range.Words.Count
Количество_предложений_в_абзаце = ActiveDocument.Paragraphs(5).Range.Sentences.Count

[VasilyGor]

Сообщение от Ципихович Эндрю

Выбирайте, что душе угодно

хм. и как мне этим пользоваться?

это мне поможет сменить в статус баре на кнопке инфу, где станет вместо количества слов отображаться количество знаков?

или я мог бы в вашу конструкцию вбить цифру с №-ым значением, что гарантировало бы мне например через 2000 знаков получить MsgBox="Лимит исчерпан"?

я ж не программист и сами функции приведенные вами как бы знакомы.
я их примерял в конструкции

Sub количество_знаков(control As IRibbonControl)
MsgBox ActiveDocument.ComputeStatistics(wd StatisticCharactersWithSpaces)
End Sub

/а с этим Range хоть и встречал так и не понял как воспользоваться./

но я смог прикрутить выше приведенную конструкцию опять таки тока к батону, на который опять же нужно давить. что делать совершенно не хочется.

как называется эта кнопка Word Count dialog box ... которую я могу включить/отключить и все. и по прежнему вижу только количество слов.... а не знаков. Пока не нажму...?

не сочтите за труд как бы в ваш код добавить еще что-то, дабы не программистам можно было это применить копипастом ((( извиняюсь

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

через 2000 знаков получить MsgBox="Лимит исчерпан"?
это как понимать?? Во всём документе интерисует??

[VasilyGor]

Сообщение от Ципихович Эндрю

Во всём документе интерисует??

я знаю, что я плохо объясняю. но... что сделаешь.
Пример.
Открываю новый документ. Начинаю печатать. Как только подошло к 2000 знакам ворд кричит "Всё. алес! Лимит исчерпан"

и хочу видеть внизу на кнопке не количество слов, а количество знаков.
что легче реализовать не знаю.

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

понял, значит во всём документе интерисует
>хочу видеть внизу на кнопке не количество слов, а количество знаков
не понимаю точно что за кнопка, Статистика??
Как представляете проверять таймером, через, например каждые 5 секунд??
После появления каждого символа?? пробел, абзац считать за символ??

[VasilyGor]

у меня, к сожалению, рус ворд. И да. там написано - "Щелкните, чтобы открыть диалоговое окно "Статистика".

Пробел за символ считать. Абзац? ...хм. Не знаю ... ворд не считает. Вообще эта «^p» хитрая для меня пока штука )

Вы мне объясните вот что. Как называется этот элемент на "строке состояния"(статистик баре) на котором мы видим количество слов .... Это кнопка? которая вызывает диалоговое окно (форму) или это не совсем кнопка, а что-то иное? ведь надпись на ней постоянно меняется (кол-во слов).

Сам ворд отслеживает и подсчитывает каждое нажатие клавиш (я же вижу как он ...этой кнопкой перемигивается) и разве мы просто не можем взять эти значения у него и передать другому элементу? текстовому окну или там ...
Я бы погуглил…но даже не могу сориентироваться как правильно сформулировать запрос.

вот типа такого http://www.permadi.com/tutorial/jsIn...DOM/index.html но языком VBA

[VasilyGor]

Сообщение от Ципихович Эндрю

понял, значит во всём документе интерисует

да. в ActiveDocument

не понимаю точно что за кнопка, Статистика??

Word Count (число слов) в статус баре (строка состояния)

Как представляете проверять таймером, через, например каждые 5 секунд?? После появления каждого символа??

все равно.
если после каждого символа - вообще круто было бы.

пробел, абзац считать за символ??

пробел да, абзац нет.

просто хотя бы на словах....есть мысли как это сделать? ибо мой не обогащенный знаниями программирования делает нечто ужасное.

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

мысли есть, кода нет, у меня есть класс
'выделение определённого текста в документе Private Sub App_WindowSelectionChange(ByVal Sel As Selection)
'нажатие правой кнопки мыши Private Sub App_WindowBeforeRightClick(ByVal Sel As Selection, Cancel As Boolean)
'после двойного щелчка левой клавиши мыши Private Sub App_WindowBeforeDoubleClick(ByVal Sel As Selection, Cancel As Boolean)

может кто подскажет как создать на событие ввод знака

[Sasha_Smirnov]

В справке Word на запрос про статусбар 27 ответов.

Я потом попробую, а пока просто посмотрел: