Верен ли подсчет

[Fiesta200]

Если поискать на форуме, не одна тема была посвящена подсчету слов, букв, разделению анг. и русских букв и под.
Я, правда, не нашел, как можна провестити статистику документа на слова, если в нем присутствуют надписи. Мне часто приходится именно такие документы делать, а вот как потом калькулировать свою работу - не знаю.
Вернее, знаю. Надо все надписи преобразовать по одной в рамку, чтобы текст стал понятен Ворду.

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

В нете есть развеселенька програ FineCount 2.6, но понять правидивость ее подсчета я не могу.
На малых докуметах все гуд (например, количество слов в предложении "Мама мыла раму"). Когда же открыть большой док, то не совпадает ворд и файнкаунт. Даже если там нет ни одной надписи. Как это так? Другие алгоритмы подсчета?

Можна ли провести статистику полностью всего, что есть в доке, на предмет слов с помощью VB?

[viter.alex]

Я не знаю, как считает FineCount, но сделать можно, считая слова везде: в колонтитулах, сносках, надписях, где бы они не находились.

[Fiesta200]

Да, я о колонтитулах не подумал. Они ведь также текст

А что считать тогда словом? Любой знак размером в одну букву, после которого («я ») стоит пробел. Или перед котороым (« я.»). По идее, и одно, и другое. Также после слова может стоять абзац, разрыв, картинка, формула, а спереди вообще не быть пробела.
Словами могут быть и цифры, хотя это звучит кощунственно.

[viter.alex]

Вот именно: что считать словом? Например, при просмотре статистики показывает 120 слов, а если искать слова с помощью подстановочных знаков <[А-яЁё]@>, то получается на четыре слова больше, т.к. части слов, написанных через дефис, воспринимаются как два слова: что-нибудь, экспресс-стиль и т.п. Поэтому при подсчёте нужно пользоваться не поиском или перебором коллекции Words, а методом ComputeStatistics объекта Range. И, по-моему, я такие программы уже видел

[Fiesta200]

Я подумал, что слова, которые пишуться через дефис, надо считать одним словом. Логика подсказывает так.
Хотя тут также нет общего знаменателя. Например, «смотри-ка» — одно слово, а «родина-мать» — уже два.
Слова, написаные через косой слеш, надо считать за два отдельных слова «ж/д»?

[Sasha_Smirnov]

Так а сами не вправе решить?

Сообщение от Fiesta200

Мне часто приходится именно такие документы делать, а вот как потом калькулировать свою работу - не знаю.

Сообщение от http://slovari.yandex.ru/dict/bse/article/00072/04200.htm?text=%D1%81%D0%BB%D0%BE%D 0%B2%D0%BE&stpar3=1.1

Трудности определения единых критериев выделения для слов всех языков побуждают лингвистов пересматривать взгляды на слово как на структурно-семантическую единицу языка. При этом одни учёные определяют слово в чисто формальном плане как отрезок речевой цепи между паузами или текста между пробелами...

Всё равно же работодатель считает по-своему!

[Fiesta200]

Сообщение от Sasha_Smirnov

Всё равно же работодатель считает по-своему!

Оно, конечно, да. Но хотелось бы и себя не обделить, внося в общую
статистику предложения или просто слова, которые покоятся в Надписях

[Skif-F]

Хочу предупредить, что выражение "мама, которая зачем-то мыла раму!" Word посчитает как 9 (девять!) слов - знаки препинания Word'ом воспринимаются как "слова" (объект типа Words)

[viter.alex]

Сообщение от Skif-F

Хочу предупредить…

Я об этом уже предупреждал между строк в 4-м сообщении . Нужно пользоваться ComputeStatistics, перебирая каждый элемент документа, где может находиться текст. Примерно таким образом:

Sub Stories()
  Dim oStRng As Range
  For Each oStRng In StoryRanges
    Select Case oStRng.StoryType
      Case wdCommentsStory 'Примечания
        '…
      Case wdEndnoteContinuationNoticeStory 'Продолжение концевых сносок
        '…
      Case wdEndnoteContinuationSeparatorStory 'Разделитель продолжения концевых сносок
        '…
      Case wdEndnoteSeparatorStory 'Разделитель концевых сносок
        '…
      Case wdEndnotesStory 'Концевые сноски
        '…
      Case wdEvenPagesFooterStory 'Нижний колонтитул чётных страниц
        '…
      Case wdEvenPagesHeaderStory 'Верхний колонтитул чётных страниц
        '…
      Case wdFirstPageFooterStory 'Нижний колонтитул первой страницы
        '…
      Case wdFirstPageHeaderStory 'Верхний колонтитул первой страницы
        '…
      Case wdFootnoteContinuationNoticeStory 'Продолжение сносок
        '…
      Case wdFootnoteContinuationSeparatorStory 'Разделитель продолжения сносок
        '…
      Case wdFootnoteSeparatorStoryк 'Разделитель сносок
        '…
      Case wdFootnotesStory 'Сноски
        '…
      Case wdMainTextStory 'Основной текст
        '…
      Case wdPrimaryFooterStory 'Нижний колонтитул
        '…
      Case wdPrimaryHeaderStory 'Верхний колонтитул
        '…
      Case wdTextFrameStory 'Текст в  рамках
    End Select
  Next
End Sub

ну и не забывать, что в каждом таком диапазоне могут быть фигуры с текстом, к тому же вложенные друг в друга. Ну и WordArt ещё никто не отменил

[Fiesta200]

Это пример макроса или полный? Если второй ответ, то - выдает ошибку '424'. Кажись, в рядке:
For Each oStRng In StoryRanges