Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Как подсчитать буквы?  (Прочитано 11047 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Simbad
Гость
« : 07-01-2010 08:59 » 

Здравствуйте, уважаемые эксперты!
Подскажите, пожалуйста, как подсчитать общее количество букв в документе с помощью VBA.
« Последнее редактирование: 07-01-2010 14:29 от Sel » Записан
HandKot
Молодой специалист

ru
Offline Offline

« Ответ #1 : 08-01-2010 21:51 » 

как-то так
Код:
ThisDocument.Range.ComputeStatistics

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

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

I Have Nine Lives You Have One Only
THINK!
Ципихович Эндрю
Помогающий

ru
Offline Offline

« Ответ #2 : 30-07-2010 15:06 » 


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

ru
Offline Offline

« Ответ #3 : 02-08-2010 04:24 » 

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

Код:
ThisDocument.Range.ComputeStatistics( wdStatisticWords)

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

I Have Nine Lives You Have One Only
THINK!
Ципихович Эндрю
Помогающий

ru
Offline Offline

« Ответ #4 : 04-08-2010 12:38 » 

Как же Вы умеете доходчиво объяснять! Зачем форумы то нужны Эф 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
Команда клуба

ua
Offline Offline
Пол: Мужской

WWW
« Ответ #5 : 04-08-2010 12:40 » 

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

Мы все учились понемногу... Чему-нибудь и как-нибудь.
HandKot
Молодой специалист

ru
Offline Offline

« Ответ #6 : 05-08-2010 04:08 » 

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

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

I Have Nine Lives You Have One Only
THINK!
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines