Microsoft Word: как посчитать количество знаков, количество слов в тексте
Чтобы быстро посчитать количество знаков и количество слов в тексте, нужно выделить этот текст в Microsoft Word (весь текст можно быстро выделить, нажав «горячую клавишу» Ctrl+A), перейти во вкладку «Рецензирование» и нажать на кнопку «Статистика».
В открывшемся окне появится необходимая Вам информация (на картинке приведен пример для Microsoft Word 2010, Вы можете просмотреть такие же инструкции для Word 2007 и Word 2013).
Альтернативный вариант: щелкнуть по расположенной внизу надписи «Число слов».
- Word 2007
- Word 2010
- Word 2013
- количество знаков
- интересные возможности
- Графическая инструкция, как узнать количество знаков, для Microsoft Word 2007
- Графическая инструкция, как узнать количество знаков, для Microsoft Word 2013
Количество рисунков в документе: макрос
Как указать кол-во используемых в тексте рисунков? Рисунки пронумерованы как Caption (SEQ Рисунок).
Я могу вам предложить следующий макрос для вставки в документ текста с указанием количества рисунков в текущем документе.
Установите курсор ввода в том месте документа, где вы хотите вставить текст с количеством рисунков и запустите макрос:
Sub picCount() 'Подсчет количества рисунков в документе (тип InlineShape) If ActiveDocument.InlineShapes.Count < 0 Then MsgBox "Рисунков типа InlineShape в документе не обнаружено", vbInformation Else Selection.TypeText Text:="Количество рисунков: " & ActiveDocument.InlineShapes.Count End If End Sub
Если вы не знаете, как подключить к документу и применить эти макросы, изучите следующие заметки с сайта:
Еще записи по вопросам использования Microsoft Word:
- 10 вопросов и ответов по редактору Word (1 часть)
- 3 способа очистки списка недавно открытых документов
- Word 2007: добавляем свою вкладку и свои команды
- Word 2007: полотно, рисунки, линии
- Word 2007: смена формата сохранения файла
- Word 97 - решение проблемы с отображением символов на линейке
- Абзац с цветным фоном
- Автоматизация текстового набора в Word
- Автоматическая запись макроса
- Автоматическая нумерация билетов
- Автоматическая расстановка переносов
- Автоматическое обновление полей при открытии документа
- Автоматическое сохранение документа при его закрытии
- Автотекст с последовательной нумерацией
- Белый текст на синем фоне в Word 2007
- Быстрая смена ориентации страниц документа
- Быстрое перемещение между открытыми документами Word
- Быстрое создание нового документа на основе шаблона
- Быстрый ввод текста с помощью команды =rand()
- Ввод повторяющихся фрагментов текста в Word 2007
- Ввод часто повторяющихся фрагментов текста
- Вертикальное выравнивание текста
- Возможно ли запретить копирование текста из документа Word?
- Вопрос о работе с графиками (диаграммами) в Word
- Вопросы и ответы о гиперссылках в редакторе Word
Комментариев: 3
12.02.2010 в 22:07 | #1
Как оказалось можно обойтись и без макроса. Поместите в самый конец документа такое поле, которое создаст закладку с именем "КоличествоРисунков" и запишет в неё… количество нумерованных рисунков: < SET КоличествоРисунков < = < SEQ Рисунок >-1 > > После этого в любое место документа вы сможете добавить ссылку на эту закладку полем . Таким образом, вы получите только количество рисунков с подписями. Как нетрудно догадаться, подобный фокус можно проделать и с любыми другими идентификаторами поля SEQ
Джим Ренуар
30.05.2013 в 10:44 | #2
Все работает! Спасибо за макрос, еще вопрос - как научиться самому писать макросы, есть книга, учебник? на будущее, может ссылки кто даст
Как узнать сколько рисунков в документе word
Здравствуйте, подскажите пожалуйста каким образом можно посчитать количество
таблиц и рисунков в документе word 2007, а также можно ли менять оформление
ссылок на литературные источники?
2007-05-09 06:13:00 UTC
В предыдущих версиях Word можно вызвать автоматическую нумерацию - нужные
элементы будут нумероваться по мере их создания, или принудительную нумерацию
для уже созданных таблиц(рисунков) - смотри в меню Insert; Caption.
С Word 2007 встречаться не приходилось :(
Post by adminfx
Здравствуйте, подскажите пожалуйста каким образом можно посчитать количество
таблиц и рисунков в документе word 2007, а также можно ли менять оформление
ссылок на литературные источники?
2007-05-10 09:23:00 UTC
Спасибо за помощь, но вопрос все еще остается открытым. Про автоматическую
нумерацию - это все понятно. В 2007 word есть все из 2003 и много новых
возможностей.
Вот мои вопросы:
1. Каким образом можно посчитать количество таблиц и рисунков в документе
word 2007 ? (в дипломном проекте, в аннотации необходимо указать кол-во
иллюстраций, таблиц разделов)
Вроде как можно использовать VB, макросы. Может кто уже такое делал?
2. Как можно изменять оформление ссылок на элементы списка литературы.
Обычно они выглядят так: (5) или так (5, автор ), а нужны кваджратные
скобки,к примеру. Вот так: [5] (по ГОСТ)
Post by skolotajs
В предыдущих версиях Word можно вызвать автоматическую нумерацию - нужные
элементы будут нумероваться по мере их создания, или принудительную нумерацию
для уже созданных таблиц(рисунков) - смотри в меню Insert; Caption.
С Word 2007 встречаться не приходилось :(
Post by adminfx
Здравствуйте, подскажите пожалуйста каким образом можно посчитать количество
таблиц и рисунков в документе word 2007, а также можно ли менять оформление
ссылок на литературные источники?
Как узнать сколько рисунков в документе word
Мне задали вопрос:
Есть ли Word-2007 поле которое будет показывать количество рисунков в файле и поле показывающее количество таблиц.
Как это делает поле показывая количество страниц.
Я задумался. Действительно, если человек нумерует рисунки, то почему нельзя узнать количество таких рисунков без использования макросов? Я нашёл решение с использованием полей. Приведенное поле нужно вставить в самый конец документа, чтобы оно правильно вело подсчёт:
Это поле формирует закладку с именем ImagesCount и записывает в неё последнее значение последовательности с идентификатором «Рисунок». Имя для закладки можно выбирать любое. Главное, чтобы оно было осмысленными.
Теперь, чтобы вставить в нужное место документа количество рисунков, нужно просто добавить перёкрёстную ссылку на эту закладку. Это можно сделать или через меню, или введя поле вручную:
Этот метод имеет один недостаток: если в документе не сквозная нумерация рисунков и зависит от заголовков первого уровня, то в закладку будет записано только количество рисунков в последнем разделе. Думаю, что эту задачу, тоже можно решить.
Количество таблиц и формул вставляется аналогично: идентификаторы «Таблица» и «Формула» соответственно.
Подсчёт количества гласных в строке
Поэт Геннадий Вершинин задал вопрос:
Подскажите можно ли придумать макрос для Word 2007. Мне нужно чтобы в таблице при написании стихов автоматически считались гласные буквы в строке для стиха. Я пишу стихи в вордовских таблицах. Так удобнее считать гласные чтобы выдержать ритм.
Что ж, это можно сделать и очень несложно:
1 Sub VowelsSum () 2 Const Vowels = "аеёиоуыэюя" 3 Dim nVowelsSum As Integer 4 Dim sTemp As String 5 Dim i As Integer 6 For i = 1 To Len ( Vowels ) 7 sTemp = Replace ( Selection . Text , Mid ( Vowels , i , 1 ), "" , , , vbTextCompare ) 8 nVowelsSum = nVowelsSum + Len ( Selection . Text ) - Len ( sTemp ) 9 Next 10 Application . StatusBar = nVowelsSum & " гласных" 11 End Sub
Количество гласных букв будет показано в статусной строке.
Удаление дефисов из слов с ошибками
Денис интересуется:
Здравствуйте! Посоветуйте, можно ли наладить поиск и замену в такой ситуации: большой текст, порядка 2 тыс. страниц, где много слов, разделенных дефисом. Естественно есть слова, которые в принципе пишутся через дефис. Можно ли к поиску дефисов в словах подключить проверку грамматики. Другими словами, искать дефис в слове, проверять, не отмечен ли как ошибка, и если отмечен, дефис удалять.
Такой простой макрос решает эту задачу, удаляя дефис из слова с ошибкой:
1 Sub DeleteErrorDashes () 2 With ActiveDocument . Range . Find 3 'Ищем слово, разделённое дефисом 4 . Text = "" 5 . MatchWildcards = True 6 While . Execute 7 'Если в слове есть ошибка 8 If . Parent . SpellingErrors . Count > 0 Then 9 'Удаляем из него дефис 10 . Parent . Text = Replace (. Parent . Text , "-" , "" ) 11 End If 12 Wend 13 End With 14 End Sub