Количество уникальных слов в word

Помимо VBA, такое приложение можно разработать с использованием API OpenOffice для чтения содержимого документа Word; обработайте его и экспортируйте результаты в виде файла CSV, чтобы открыть в приложении электронной таблицы.

Однако на самом деле это всего лишь несколько строк кода, если вы знакомы с любым языком программирования.
Например, в Python вы можете легко сделать это так:

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

def countWords(a_list):
    words = {}
    for i in range(len(a_list)):
        item = a_list[i]
        count = a_list.count(item)
        words[item] = count
    return sorted(words.items(), key = lambda item: item[1], reverse=True)

Остальное — манипулировать содержимым документа.Сначала вставьте это:

content = """This is the content of the word document. Just copy paste it. 
It can be very very very very long and it can contain punctuation 
(they will be ignored) and numbers like 123 and 4567 (they will be counted)."""

Здесь мы удаляем пунктуацию, EOL, скобки и т.д., А затем генерируем список слов для нашей функции:

import re

cleanContent = re.sub('[^a-zA-Z0-9]',' ', content)

wordList = cleanContent.lower().split()

Затем мы запускаем нашу функцию и сохраняем ее результат (пары подсчета слов) в другом списке и печатаем результаты:

result = countWords(wordList)

for words in result:
    print(words)

Итак, результат:

('very', 4)
('and', 3)
('it', 3)
('be', 3)
('they', 2)
('will', 2)
('can', 2)
('the', 2)
('ignored', 1)
('just', 1)
('is', 1)
('numbers', 1)
('punctuation', 1)
('long', 1)
('content', 1)
('document', 1)
('123', 1)
('4567', 1)
('copy', 1)
('paste', 1)
('word', 1)
('like', 1)
('this', 1)
('of', 1)
('contain', 1)
('counted', 1)

Вы можете удалить скобки и запятую, используя поиск / замену, если хотите.

Все, что вам нужно сделать, это загрузить Python 3, установить его, открыть IDLE (поставляется с Python), заменить содержимое вашего текстового документа и запускать команды по одной в указанном порядке.

Статьи из блога

Если вам нужно определить количество вхождений в документ некоторого слова, то здесь может помочь следующий макрос (навеяно заметкой Грега Макси «Count Selected WordPhrase» ).

Вы выделяете некое слово и запускаете макрос, который после подсчета выдает сообщение о количестве найденных слов:

Если вы не знаете, как подключить к документу и применить этот макрос, изучите следующие заметки с сайта:

Вы можете помочь в развитии сайта, сделав пожертвование:

—> Или помочь сайту популярной криптовалютой:

BTC Адрес: 1Pi3a4c6sJPbfF2sSYR2noy61DMBkncSTQ

ETH Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

LTC Адрес: LUyT9HtGjtDyLDyEbLJZ8WZWGYUr537qbZ

USDT (ERC-20) Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

Яндекс Деньги: 410013576807538

Источник

Фоновый подсчет количества слов в документе с помощью полей

Приложение Word может вставлять количество слов в документ и обновлять эти данные так часто, как вам нужно.

Выберите место в документе, где нужно отобразить счетчик слов.

На вкладке Вставка нажмите кнопку Экспресс-блоки и выберите пункт Поле.

В списке Поля выберите пункт NumWords и нажмите кнопку ОК.

Чтобы обновить информацию, щелкните в том месте, куда добавлено поле, правой кнопкой мыши и выберите команду Обновить поле.

Если вы хотите, чтобы информация автоматически обновлялась при печати, выберите Файл > Параметры > Отображение, а затем в разделе Параметры печати установите флажок Обновлять поля перед печатью.

Выберите место в документе, где нужно отобразить счетчик слов.

На вкладке Вставка в группе Текст нажмите кнопку Экспресс-блоки.

Выберите пункт Поле.

В списке Поля выберите пункт NumWords и нажмите кнопку ОК.

Источник

Просмотр статистики

Word подсчитывают количество слов в документе во время введите текст. Word также подсчитываются страницы, абзацы, строки и символы.

Если нужно узнать, сколько слов, страниц, знаков, абзацев или строк содержит документ, проверьте строку состояния.

Чтобы узнать количество слов во фрагменте документа, выделите нужный текст. В строке состояния будет отображено количество слов в выделенном тексте и во всем документе.

Совет: Чтобы узнать количество символов, строк и абзацев в документе, щелкните счетчик слов в строке состояния.

Подсчет количества символов, строк и абзацев

Чтобы открыть диалоговое окно «Статистика» и узнать число знаков, строк, абзацев и другие сведения, щелкните поле статистики в строке состояния в Word для Mac. Если текст не выделен, Word подсчитывает число слов и знаков во всем документе и отображает его в диалоговом окне «Статистика».

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

Чтобы подсчитать количество слов в определенной части документа, выделите нужный текст. Затем в меню Сервис выберите пункт Статистика.

Как и в Word для настольных систем, Word в Интернете количество слов при их введите.

Если статистика не отображается в нижней части окна, убедитесь, что выбран режим правки (выберите Редактировать документ > Изменить в Word в Интернете).

Щелкните кнопку статистики, чтобы включить или выключить ее.

Возможно, вы заметили, Word в Интернете дает приблизительное количество слов. Это значит, что он не учитывает слова в таких областях, как текстовые поля, headers, footers и Графические элементы SmartArt. Если вам нужно точное количество слов, нажмите кнопку Открыть в Wordи посмотрите число слов в нижней части Word документа.

Источник

Как подсчитать слова в Word (Ворде)

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

Классический метод подсчета предполагает использования вкладки «Рецензирование» на панели инструментов.

Чтобы продолжить работу с текстом, окно «Статистики» нужно закрыть. Иконка «АВС/123» может быть вынесена отдельным блоком на панель. Поэтому элемента «Правописания» может не быть. Классический метод дает развернутую статистику объектов по файлу. Если она пользователю не нужна, можно использовать данные нижней панели.

Пункт со статистическими данными находится снизу слева страницы. Называется «Число слов». В этом блоке их подсчет ведется автоматически. Цифра изменяется автоматически по мере набора данных.

Если в ходе работы с документом потребуется определить объем напечатанных букв (без пробелов или с пробелами), нажмите по «Число слов» в левом нижнем углу страницы. Появится окно «Статистика», где будет представлена развернутая информация об объектах файла.

Подсчет количества слов во фрагменте текста

Вкладку «Рецензирование» можно обойти, используя на нижней панели страницы блок «Число слов». При выделенном фрагменте текста информация в блоке будет подаваться иначе, чем для всего документа. Статистические данные будут представлены через дробь. Первое число (числитель) указывает, какое число слов было напечатано в выделенном фрагменте текста, второе (знаменатель) — во всем документе.

Выбор способа получения статистической информации по файлу не влияет на редактирование текста, поэтому можно использовать тот, который удобней в работе. Главное, после открытия окна «Статистика» не забывать его закрывать, иначе работать с объектами документа не получится.

Источник

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

Способ 1: Строка состояния

Майкрософт Ворд считает количество слов во всем текстовом документе в фоновом режиме, по мере их ввода. Эта информация отображается в строке состояния, доступной к просмотру из любой вкладки программы, и имеет следующий вид: «Число слов: N», где N – текущее значение.

Нажатие на данную надпись открывает окно «Статистика», в котором указывается количество следующих элементов:

Дополнительно можно определить, будет ли Word «Учитывать надписи и сноски». Если в текстовом файле, с которым вы работаете, есть такие элементы и их нужно или, наоборот, не нужно учитывать при подсчете общего количества слов/символов, установите или, наоборот, снимите галочку напротив этого пункта.

Читайте также: Как добавить / удалить сноски в Ворде

После ознакомления с информацией окно «Статистика» можно закрыть.

Важно! Если «Число слов» не отображается, то есть такой надписи в принципе нет в строке состояния, кликните по ней правой кнопкой мышки и отметьте галочкой соответствующий пункт в контекстном меню.

Способ 2: Средства рецензирования

Еще один вариант просмотра информации о количестве слов в текстовом файле Word заключается в использовании средств рецензирования, посредством которых тоже можно вызвать рассмотренное выше окно «Статистика».

Добавление информации о количестве слов в документ

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

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

Причиной более крупных расхождений является то, что в фоновом режиме эти сведения не обновляются, то есть по мере ввода и/или редактирования текста они не будут изменяться. Для того чтобы актуализировать информацию, нажмите правой кнопкой мышки на этот блок и выберите пункт «Обновить поле». Также имеется возможность «Изменить поле» — это действие вызывает окно, через которое мы его добавляли.

Можно сделать и так, чтобы Word автоматически обновлял сведения в данном блоке перед печатью. Для этого через меню «Файл» программы перейдите в ее «Параметры», откройте вкладку «Отображение» и в блоке «Параметры печати» установите отметку напротив пункта «Обновлять поля перед печатью». Для подтверждения и закрытия окна нажмите «ОК».

Помимо этой статьи, на сайте еще 12553 инструкций.
Добавьте сайт Lumpics.ru в закладки (CTRL+D) и мы точно еще пригодимся вам.

Отблагодарите автора, поделитесь статьей в социальных сетях.

Источник

Анализируя свои документы, вы можете задаться вопросом, есть ли способ подсчитать количество слов в документе. К сожалению, в Word нет такой функции, но есть несколько вещей, которые вы можете сделать.

Во-первых, если вы хотите узнать, сколько раз используется определенное слово или фраза, вы можете выполнить следующие действия:

1. Нажмите Ctrl + H , чтобы отобразить вкладку “Заменить” диалогового окна “Найти и заменить”. (См. Рис. 1.)



Рис. 1. Вкладка «Заменить» диалогового окна «Найти и заменить».

2. В поле «Найти» введите слово или фразу, которую вы хотите посчитать.
3. В поле “Заменить на” введите ^ & . Эта последовательность символов сообщает Word, что вы хотите заменить то, что вы нашли, тем, что вы поместили в поле «Найти». (Другими словами, вы заменяете слово или фразу самим собой.)
4. Если вы ищете отдельные слова, убедитесь, что вы установили флажок «Искать только слова целиком».
5. Щелкните “Заменить все”. Word выполнит замену и покажет, сколько экземпляров он заменил. Это то число, которое вам нужно.

Этот подход отлично работает, если у вас есть только одно или два слова или фразы, о которых вы хотите знать. Вы можете немного автоматизировать процесс, используя макрос для поиска в документе и подсчета за вас. Следующий макрос запрашивает у пользователя слово, а затем подсчитывает, сколько раз это слово появляется в документе. Он будет продолжать запрашивать другое слово, пока пользователь не нажмет кнопку «Отмена».

 Sub FindWords () Dim sResponse As String Dim iCount As Integer 'Вводите разные слова, пока пользователь не нажмет кнопку «Отменить».  слово для подсчета sResponse = InputBox (_ Prompt: = "Какое слово вы хотите посчитать?", _ Title: = "Count Words", по умолчанию: = "") Если sResponse> "" Then 'Установите счетчик на ноль  для каждого цикла iCount = 0 Application.ScreenUpdating = False With Selection .HomeKey Unit: = wdStory With .Find .ClearFormatting .Text = sResponse 'Цикл до тех пор, пока Word не сможет' найти строку поиска и 'подсчитать каждый экземпляр Do While. Execute iCount  = iCount + 1 Selection.MoveRight Loop End With 'показывает количество вхождений MsgBox sResponse & «появляется» & iCount & «раз» End With Application.ScreenUpdating = True End If Loop While sResponse  "" End Sub 

Если вы хотите определить все уникальные слова в документе, а также то, сколько раз каждое из них встречается в документ, то нужен другой подход. Следующий макрос VBA сделает именно это.

 Sub WordFrequency () Const maxwords = 9000 'Максимально допустимое количество уникальных слов Dim SingleWord As String' Необработанное слово, извлеченное из документа Dim Words (maxwords) As String 'Массив для хранения уникальных слов Dim Freq (maxwords)  As Integer 'Счетчик частоты для уникальных слов Dim WordNum As Integer' Количество уникальных слов Dim ByFreq As Boolean 'Флаг для порядка сортировки Dim ttlwds As Long' Общее количество слов в документе Dim Excludes As String 'Слова для исключения Dim Found As Boolean'  Временный флаг Dim j, k, l, Temp As Integer 'Временные переменные Dim ans As String' Как пользователь хочет отсортировать результаты Dim tword As String '' Установить исключенные слова Excludes = "[the] [a] [of] [is  ] [в] [для] [по] [быть] [и] [являются] "'Узнайте, как сортировать ByFreq = True ans = InputBox (" Сортировать по СЛОВУ или по FREQ? "," Порядок сортировки "," СЛОВО  ") If ans =" ​​"Then End If UCase (ans) =" WORD "Then ByFreq = False End If Selection.HomeKey Unit: = wdStory System.Cursor = wdCursorWait WordNum = 0 ttlwds = ActiveDocument.Words.Count 'Контроль повтора  Для каждого awor  d В ActiveDocument.Words SingleWord = Trim (LCase (aword)) 'Вне диапазона?  If SingleWord  "z" Then SingleWord = "" End If 'В списке исключений?  If InStr (Excludes, "[" & SingleWord & "]") Then SingleWord = "" End If Len (SingleWord)> 0 Then Found = False For j = 1 To WordNum If Words (j) = SingleWord Then Freq (j  ) = Freq (j) + 1 Found = True Exit For End If Next j If Not Found Then WordNum = WordNum + 1 Words (WordNum) = SingleWord Freq (WordNum) = 1 End If If WordNum> maxwords - 1 Then j = MsgBox  ("Too many words.", VbOKOnly) Exit For End If End If ttlwds = ttlwds - 1 StatusBar = "Remaining:" & ttlwds & ", Unique:" & WordNum Next aword 'Теперь отсортируйте его по порядку слов Для j = 1  To WordNum - 1 k = j For l = j + 1 To WordNum If (Not ByFreq And Words (l)  Freq (k)) Then k = l Next  l Если k  j Тогда tword = Слова (j) Слова (j) = Слова (k) Слова (k) = tword Temp = Freq (j) Freq (j) = Freq (k) Freq (k) = Temp End  Если StatusBar = "Sorting:" & WordNum - j Next j 'Теперь выпишите результаты tmpName = ActiveDocument.AttachedTemplate.FullName Documents.Add Template: =  tmpName, NewTemplate: = False Selection.ParagraphFormat.TabStops.ClearAll With Selection For j = 1 To WordNum .TypeText Text: = Trim (Str (Freq (j))) _ & vbTab & Words (j) & vbCrLf Next j End With  System.Cursor = wdCursorNormal j = MsgBox ("Были" & Trim (Str (WordNum)) & _ "разные слова", vbOKOnly, "Завершено") End Sub 

Когда вы открываете документ и запустите этот макрос, вас спросят, хотите ли вы создать список, отсортированный по словам или по частоте. Если вы выберете слово, то полученный список будет показан в алфавитном порядке.. Если вы выберете частоту, то результирующий список будет в порядке убывания в зависимости от того, сколько раз слово появлялось в документе.

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

Обратите внимание, что в макросе есть строка, которая устанавливает значение в строке Excludes. . Эта строка содержит слова, которые макрос игнорирует при составлении списка слов. Если вы хотите добавить слова в список исключений, просто добавьте их в строку между [квадратными скобками]. Кроме того, убедитесь, что слова исключения указаны в нижнем регистре.

Если вы по какой-то причине не хотите использовать макросы, вы можете использовать другие программы для подсчета слов. Например, текстовый редактор NoteTab («облегченную» версию можно бесплатно скачать с http://www.notetab.com) включает функцию подсчета слов. Все, что вам нужно сделать, это скопировать весь документ и вставить его в NoteTab. Затем в NoteTab выберите Инструменты | Текстовая статистика | Более. Он представляет собой анализ частоты встречаемости слов, в том числе в процентах.