Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/18: Рейтинг темы: голосов - 18, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 20.02.2013
Сообщений: 28
1

Подсчет количества знаков в документе Word

07.11.2014, 13:07. Показов 3411. Ответов 4
Метки нет (Все метки)

Стоит задача: предоставить постраничную статистику знаков(без пробелов) и знаков(с пробелами) для произвольного документа word.

Как правило, страницы содержат, таблицы, форматирование, гиперссылки и прочую лабуду. Это все не мешает ворду выдавать итоговую информацию по всему документу, мне же нужно выдавать эту информацию постранично.

В лоб задача не решается, потому что ворд сам отбрасывает кучу нечитаемых символов выдает статистику без них, у меня же, они все считаются( Фильтровал, фильтровал их вручную,например chr(от 1 до 31), но все равно данные не совпадают.

Как быть? Может программно как-то разбить один документ на кучу по одной странице и у каждого запросить статданные ворда?
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.11.2014, 13:07
Ответы с готовыми решениями:

Подсчет символов в режиме правки в указанном документе Word
Написал вот такой код в аксе для подсчета количества символов в режиме правки в указанном документе...

Подсчет количества слов в документе
Народ нужно написать макрос, который бы подсчитывал количество слов в документе. Помогите!!! Очень...

Подсчет слов в документе word
Здраствуйте, мне нужно написать програму на языке Pascal которая считывает количество символов,...

Подсчет количества знаков в числовой ячейке
Добрый день, подскажите пож-та, существует ли в excel'e функция, подсчитывающая количество...

4
5543 / 1348 / 148
Регистрация: 08.02.2009
Сообщений: 4,086
Записей в блоге: 30
07.11.2014, 13:41 2
А что, идея верная!

Добавлено через 9 минут
Форум (внизу этой темы) предлагает ещё 10, похожих на вашу — но очень отдалённо!

Добавлено через 2 минуты
Из более близких тем я выбрал три, в которых есть нужные вам приёмы: Но сдаётся мне, что устойчивый код вы получите, провозившись ещё недели три...
1
6070 / 1314 / 195
Регистрация: 12.12.2012
Сообщений: 1,024
07.11.2014, 16:47 3
Здравствуйте, sinlop,
Предложу в дополнение к приведенному выше материалу свой вариант решения поставленной задачи:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub StatsPerPage()
    Dim p As Page, i As Long
    With Application.Documents.Add 'Создаем новый (временный) документ.
        For Each p In ThisDocument.ActiveWindow.Panes(1).Pages 'Для каждой страницы исходного документа...
            p.Rectangles(1).Range.Copy  'Копируем содержимое страницы
            .Range.Paste                'во временный документ.
            i = i + 1                   'Увеличиваем счетчик номера страницы.
            With .BuiltInDocumentProperties 'Выводим статистику по количеству знаков на странице исходного документа с номером i.
                MsgBox "Страница №" & i & vbCr & vbCr & _
                    "Знаков (без пробелов): " & .Item("Number of characters") & vbCr & _
                    "Знаков (с пробелами): " & .Item("Number of characters (with spaces)")
            End With
        Next p
        .Close False 'Закрываем временный документ без сохранения.
    End With
End Sub
С уважением,

Аксима
2
Модератор
Эксперт MS Access
10050 / 4063 / 655
Регистрация: 07.08.2010
Сообщений: 11,414
Записей в блоге: 3
07.11.2014, 18:07 4
судя по результату
разрыв страниц=символу
перевод строки=пробелу
неразрывный пробел=пробелу
==
1
Миниатюры
Подсчет количества знаков в документе Word  
5543 / 1348 / 148
Регистрация: 08.02.2009
Сообщений: 4,086
Записей в блоге: 30
08.11.2014, 07:35 5
Цитата Сообщение от shanemac51 Посмотреть сообщение
неразрывный пробел=пробелу
Уж это само собой разумеется!

Вообще интересна специфика производства, где требуется такая (постраничная) статистика.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.11.2014, 07:35

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Подсчёт количества знаков препинания в строке
Здравствуйте. Помогите пожалуйста написать простейший алгоритм подсчёта количества знаков...

Подсчет количества смен знаков последовательности
из промежутка чисел 5, 5, 6, -3 подсчитать смены знаков (с + на -, с - на +) вот некоторые мысли:...

Подсчет знаков в файле word
Друзья, поставлена такая задача: Из формы в аксе по кнопке в диалоговом окне указывается путь к...

Ограничение количества страниц в документе word
Добрый день. Есть документ word с текстовыми полями. Редактирование ограничено так, чтобы...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.