Как найти сколько раз встречается слово в ворде
Argument ‘Topic id’ is null or empty
Сейчас на форуме
© Николай Павлов, Planetaexcel, 2006-2023
info@planetaexcel.ru
Использование любых материалов сайта допускается строго с указанием прямой ссылки на источник, упоминанием названия сайта, имени автора и неизменности исходного текста и иллюстраций.
| ООО «Планета Эксел» ИНН 7735603520 ОГРН 1147746834949 |
ИП Павлов Николай Владимирович ИНН 633015842586 ОГРНИП 310633031600071 |
Сколько раз в тексте встречается заданное слово
Очень просто. Открываете документ с текстом в Word-е, устанавливаете курсор в начало документа, затем нажимаете «Заменить». В поле «Найти» вводите искомое слово с пробелом в начале и в конце, в поле «Заменить на» вводите это же слово. Далее остается только нажать «Заменить все». Выскочит окошко, где будет указано число выполненных замен. Это и будет количеством повторов этого слова в тексте.
Остальные ответы
Посчитай. Матеиматику мимо проходила?
Берём указанный текст и считаем, сколько раз в нём встречается заданное слово.
Считать можно на пальцах, на спичках, на калькуляторе, а можно даже вслух!
Источник: заданный вами вопрос очень хорошо Вас характеризует!)))))))))
какие все умные, а если текст 100 страниц? тоже на пальцах считать?
Подсчет количества некоторых слов в документе
Если вам нужно определить количество вхождений в документ некоторого слова, то здесь может помочь следующий макрос (навеяно заметкой Грега Макси «Count Selected Word\Phrase» ).
Вы выделяете некое слово и запускаете макрос, который после подсчета выдает сообщение о количестве найденных слов:
Sub CountWords() 'макрос подсчета количества определенных слов в документе 'для подсчета количества вхождений конкретного слова, это слово должно быть выделено Dim rng As Range Dim sWord As String Dim i As Long Set rng = ActiveDocument.Range Application.ScreenUpdating = False If Selection.Type = wdSelectionIP Then MsgBox "Слово не выделено", vbExclamation Else 'удаляем знак абзаца справа от слова If Right(Selection.Text, 1) = Chr(13) Then Selection.MoveLeft wdCharacter, 1, wdExtend End If sWord = Trim(Selection.Text) 'Убираем прообелы вокруг слова и запоминаем Selection.Collapse wdCollapseStart With rng.Find .ClearFormatting .Replacement.ClearFormatting .Text = sWord .Forward = True .MatchWholeWord = True .MatchWildcards = False .Wrap = wdFindStop Do While .Execute i = i + 1 Loop End With Select Case i Case 2 To 4 MsgBox "Слово " & Chr(171) & sWord & Chr(187) & " встречается в документе " & i & " раза", _ vbInformation, "Подсчет слов" Case 1 MsgBox "Слово " & Chr(171) & sWord & Chr(187) & " встречается в документе " & i & " раз", _ vbInformation, "Подсчет слов" Case Else MsgBox "Слово " & Chr(171) & sWord & Chr(187) & " встречается в документе " & i & " раз", _ vbInformation, "Подсчет слов" End Select rng.Find.Text = "" End If Application.ScreenUpdating = True End Sub
Если вы не знаете, как подключить к документу и применить этот макрос, изучите следующие заметки с сайта:
Еще записи по вопросам использования Microsoft Word:
- 3 способа очистки списка недавно открытых документов
- Абзац с цветным фоном
- Автоматическая запись макроса
- Автоматическая расстановка переносов
- Автоматическое обновление полей при открытии документа
- Автоматическое сохранение документа при его закрытии
- Быстрая смена ориентации страниц документа
- Быстрое перемещение между открытыми документами Word
- Быстрое создание нового документа на основе шаблона
- Быстрый ввод текста с помощью команды =rand()
- Ввод часто повторяющихся фрагментов текста
- Вставка будущей даты
- Вставка документа с книжной ориентацией в документ с альбомной ориентацией
- Вставка завтрашней даты
- Вставка изображений из указанной папки для Word 2007
- Вставка неформатированного текста
- Вставка скопированного текста в предопределенном формате
- Вставка текста с полями в нижний колонтитул
- Вставка текста с помощью кнопки
- Выделение видимой части экрана
- Двойная нумерация страниц в документе
- Задать обтекание текстом для всех рисунков в документе
- Замена жаргонных слов в тексте
- Замена знаков абзаца на пробелы в выделенном тексте
- Замена текста в скобках на пробел
Как посчитать сколько встречается каждое слово в таблице (или ячейке)?
https://docs.google.com/spreadsheets/d/1RrMOuBr-Eq.
Есть набор отзывов, хочу определить сколько каких слов встречается.
Т.е. не определенных слов, а все слова посчитать — сколько каждое из них встречается.
Есть такая универсальная формула?
- Вопрос задан более двух лет назад
- 237 просмотров
Комментировать
Решения вопроса 1
Григорий Боев @ProgrammerForever Куратор тега Google Sheets
Учитель, автоэлектрик, программист, музыкант
Виктор Л всё правильно подсказал.
Если немного изменить его код, можно получить не по одной ячейке, а по диапазону.
function COUNTUNIQWORDS(range) < let wordsCount = <>; range.forEach(row=>< row.forEach(cell=>< let text = String(cell) .toLowerCase() .replace(/[^а-яА-ЯёЁa-zA-Z ]+/gi, ' ') .replace(/\s+/gi, ' '); let words = text .split(' ') .filter(word=>word!==''); words.forEach(word=>< if (wordsCount[word])< wordsCount[word]+=1; >else< wordsCount[word]=1; >; >); >); >); let result = Object.keys(wordsCount) .sort() .map(word=>[word, wordsCount[word]]); return result; >;Ответ написан более двух лет назад
Нравится 2 5 комментариев
Alina Shah @Shah_Alina Автор вопроса
Благодарю Вас! вот то, что нужно 🙂
Есть вопрос — почему у меня отображается результат не как у Вас?
Т.е. я написала в ячейку D1: =COUNTUNIQWORDS(A1:A)
а количество в цифрах как у Вас не выводит.
И куда мне нужно прописать тот длинный код?
Извиняюсь, может глупые вопросы задаю, но не доходит до меня)))
Alina Shah @Shah_Alina Автор вопроса
сделала проще — скопировала Вашу таблицу, вставила в колонку А свой текст, получила, что хотела.
Благодарю Вас от всего сердца!
Alina Shah @Shah_Alina Автор вопроса
Григорий Боев @ProgrammerForever Куратор тега Google Sheets
Alina Shah, видел этот вопрос, но не понял о чём там. Дополните вопрос, приведите примеры того что должно быть на входе и на выходе.
Alina Shah @Shah_Alina Автор вопроса
Ответы на вопрос 1
Вечный студент
Можно через создание своей формулы например
function COUNTUNIQWORDS(cell) < var result = [] var words = String(cell).split(" "); var wordsCount = words.reduce(function (acc, w) < if(acc[w]) < acc[w] += 1 >else < acc[w] = 1; >return acc; >, <>); for (var w in wordsCount) result.push('Cлово "'+ w +'" встречается '+ wordsCount[w] + ' раз'); return result > 
Ответ написан более двух лет назад
Нравится 3 1 комментарий
Alina Shah @Shah_Alina Автор вопроса
Благодарю за отклик!
Честно сказать, так и не поняла, как на моем примере это действует.
Важно не заданное слово сколько раз встречается, а сколько раз встречается каждое слово из всей таблицы.
Например, в данной таблице 2710 слов (в ворде так показало).
И также, например, если я через поиск в таблице ввожу «алина», мне показывает, что встречается 38 раз.
Моя задача не находить определенные слова, а посчитать все слова и вывести каждое сколько раз встречается.
Т.е. некая статистика.
Извиняюсь, если не верно поставила изначально задачу.