Поиск ВСЕХ повторяющихся слов в тексте.
Есть документ Word 2010, в данном документе есть СЛОВА которые повторяются ТРИ и более раз, можно ли сделать так чтобы в этом документе, слова которые повторяются ТРИ и более раз АВТОМАТОМ выделились? Одинаковыми являются слова у которых ЧЕТЫРЕ первых буквы повторяются, регистр не учитывается.
Сообщений [ 1 ]
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Похожие темы
- Поиск повторяющихся фрагментов
- Выделение в тексте цветом одинаковых повторяющихся одна за другой фраз
- Удаление повторяющихся слов в начале каждой строки Word
- Автозамена по всему документу часто повторяющихся слов одним нажатием
- Выделение в тексте цветом одинаковых слов
- Существует ли макрос для нахождения одинаковых слов в тексте
- Поиск в тексте включая таблицы — проблемы и !решение
- Поиск выделенных цветом слов
Поиск ВСЕХ повторяющихся слов в тексте.
Студентам, преподавателям, офисным работникам, бухгалтерам и очень многим другим категориям пользователей приходится часто сталкиваться с набором, оформлением и редактированием текстов в редакторе текстов Ворд. Наш сайт о Microsoft Office Word даст ответ про: размеры штампа на титульный лист.
Поэтому это мощное приложение необходимо изучить досконально, для максимальной оптимизации своей работы. Наш сайт о Microsoft Office Word даст ответ про: лецензионый ключ для microsoft word 2007. Такую возможность дает сайт Ворд Эксперт. На форуме сайта вы к тому же можете обсудить различные нюансы с другими пользователями. На портале о Microsoft Office Word вы узнаете про: не работает ворд идет загрузка необходимого компонента.
Здесь предлагается множество вариантов решения по настройкам программы, оформлению вашего текста, автоматизации редактирования и так далее. Наш сайт о Microsoft Office Word даст ответ про: как в ворде сделать чтобы фото было на уровне текста\. Можно, как научиться самому создавать шаблоны и макросы для работы в Ворде, так и найти на форуме готовые решения. Наш сайт о Microsoft Office Word даст ответ про: при выделение не удаляет backspace. Существует также возможность оставить заявку с описанием проблемы. Она будет решена другими участниками. Наш сайт о Microsoft Office Word даст ответ про: как перевести из ворд 2010 в 2003.
страницы
- полезности word
- книги и программы
- о проекте
- стать автором
- реклама на сайте
- правовая информация
авторство
© 2006 — 2016, Word Expert
Авторские права на все материалы, опубликованные на сайте WordExpert.ru (включая текст, иллюстрации, фотографии, подборку, расположение и т.п.), принадлежат администрации Word Expert, если не указано иное.
Как найти повторяющиеся слова в word
Хочу попросить у вас совета или даже помощи.
Мы создаем таблицы и в ячейках тексты. В этих текстах бывают повторяющиеся предложения или словосочетания. Нам надо найти и выделить (. Не удалять. ) эти предложения или словосочетания. Ну и потом их мануально изменить.
Я не могу составить макрос или правило (кажется макрос будет правильней) для поиска и выделения предложения или скорее лучше будет минимум 3х слов.
P.S. я нашла вот это решение https://www.extendoffice.com/documents/word/5450-word-find-duplicate-sentences.html через этот сайт https://otvet.mail.ru/question/217550511 , но этот код выделяет только абзацы, а не предложения в текстах.
Помогите, пожалуйста
Спасибо заранее
Сообщений: 60949 Регистрация: 14.09.2012
Контакты см. в профиле
26.03.2021 00:01:51
Вы бы небольшой пример показали: что есть, как должен выглядеть результат. И ведь есть жн разница — искать предложения или словосочетание?
И не помешает узнать бюджет.
Как найти и выделить в Word все одинаковые слова в тексте.
Тоесть, сразу выделить абсолютно все повторяющиеся слова в тексте. Это возможно?
Голосование за лучший ответ
Ctrl+H, в графе «Найти:» вбиваешь искомое слово, нажимаешь кнопку «Больше», встаёшь курсором в графу «Заменить на:», внизу жмёшь кнопку «Формат» и задаёшь нужное оформление текста.
1 1Ученик (112) 4 года назад
Спасибо, но это не подходит. Мне нужно очень много одинаковых слов найти в очень большом тексте. По одному слову вставлять это . лет займет наверное.
Похожие вопросы
покупка
Как найти и выделить повторяющиеся абзацы в документе Word?
Предположим, у вас есть большой документ Word, который может содержать сотни страниц, теперь вы хотите проверить, есть ли повторяющиеся абзацы, а затем выделить их, чтобы сделать их выдающимися, чтобы вы могли иметь дело с повторяющимися предложениями. Как быстро и легко найти и выделить повторяющиеся абзацы в документе Word?
Найдите и выделите повторяющиеся абзацы в документе Word с кодом VBA
Чтобы найти и выделить повторяющиеся абзацы в документе Word, следующий код VBA может оказать вам услугу, сделайте следующее:
1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. А затем нажмите Вставить > Модули, скопируйте и вставьте приведенный ниже код в открытый пустой модуль:
Код VBA: найдите и выделите повторяющиеся абзацы в документе Word:
Sub highlightdup() Dim I, J As Long Dim xRngFind, xRng As Range Dim xStrFind, xStr As String Options.DefaultHighlightColorIndex = wdYellow Application.ScreenUpdating = False With ActiveDocument For I = 1 To .Paragraphs.Count - 1 Set xRngFind = .Paragraphs(I).Range If xRngFind.HighlightColorIndex <> wdYellow Then For J = I + 1 To .Paragraphs.Count Set xRng = .Paragraphs(J).Range If xRngFind.Text = xRng.Text Then xRngFind.HighlightColorIndex = wdBrightGreen xRng.HighlightColorIndex = wdYellow End If Next End If Next End With End Sub 3, Затем нажмите F5 нажмите клавишу для запуска этого кода, все повторяющиеся предложения выделяются сразу, первые отображенные повторяющиеся абзацы выделяются зеленым цветом, а другие дубликаты выделяются желтым цветом, см. снимок экрана:
Лучшие инструменты для офисной работы
Kutools for Word — Повысьте свой опыт работы со словом с помощью Over 100 Замечательные особенности!
Преобразуйте свои задачи Word с помощью Kutools. �� Загрузите 30-дневную пробную версию прямо сейчас ��.
Узнать больше Бесплатная загрузка покупка
Newest First
Sort comments by
Comments ( 15 )
Rated 4.5 out of 5 · 1 ratings
about 1 year ago
This comment was minimized by the moderator on the site
about 1 year ago
This comment was minimized by the moderator on the site
Hi, mình chạy đoạn code trên nhưng không thấy ra kết quả giống bài viết, mình dùng word 2019, Ad support giúp mình nhé
about 2 years ago
This comment was minimized by the moderator on the site
Hi, can anyone please suggest me to prepare a macro in ms word for finding error in paragraph.
Like:- «and or» «that that» «of the of the» «Sentence end without dot (.)» «New Sentence start with initial caps without ending the sending».
about 2 years ago
This comment was minimized by the moderator on the site
Thanks so much.A very valuable article, helped me with my duplicate copies and paste paragraphs!You are awesome.
about 3 years ago
This comment was minimized by the moderator on the site
Tried this for my book in MS Word. First, it would not work because I had bullet points. I removed them and then it only found 2 instances «blank page» and «table of contents». I purposely have several sentences repeated, and this macro did not find them. Thank you for trying, but I would say this doesn’t work.
about 3 years ago
This comment was minimized by the moderator on the site
I had a very long document to process, the code above would take at least 100 days to finish and blocked everything while working at it. The main culprit is the «Set xRng = .Paragraphs(J).Range» which is very slow. I did an alternative version which ran in just 4 hours and presents a continuous report on the processing status and time to end. (To see the report in real time you have to open the «immediate window» by pressing Ctrl+G in the Microsoft Visual Basic for Applications window.) The code works well, except that it predicts a longer time to end than is actually the case (depends on the document). The code is as follows:
Sub highlightdup()
Dim StartTime, SecondsElapsed As Date
Dim secondsPerComparison As Double
Dim I, J, PC, totalComparisons, comparisonsDone, C, secondsToFinish As Long
Dim xRngFind, xRng As Range
Dim xStrg, minutesToFinish As String
Dim currentParag, nextParag As Paragraph
‘Options.DefaultHighlightColorIndex = wdYellow
Application.ScreenUpdating = False
With ActiveDocument
StartTime = Now()
C = 0
PC = .Paragraphs.Count
totalComparisons = CLng((PC * (PC + 1)) / 2)
Set currentParag = .Paragraphs(1)
For I = 1 To PC — 1
‘Debug.Print «processing paragraph » & I & » of a total of » & PC & » » & currentParag.Range.Text
‘Debug.Print Len(currentParag) & currentParag
If currentParag.Range.HighlightColorIndex <> wdYellow Then
If currentParag.Range.HighlightColorIndex <> wdBrightGreen Then
Set nextParag = currentParag
For J = I + 1 To PC
Set nextParag = nextParag.Next
If currentParag.Range.Text = nextParag.Range.Text Then
currentParag.Range.HighlightColorIndex = wdBrightGreen
nextParag.Range.HighlightColorIndex = wdYellow
Debug.Print «found one!! » & » I = » & I & » J s», StartTime, Now())
secondsPerComparison = CLng(SecondsElapsed) / comparisonsDone
secondsToFinish = CLng(secondsPerComparison * (totalComparisons — comparisonsDone))
minutesToFinish = Format(secondsToFinish / 86400, «hh:mm:ss»)
elapsedTime = Format(SecondsElapsed / 86400, «hh:mm:ss»)
Debug.Print «Finished procesing paragraph » & I & » of » & PC & «. Elapsed time = » & elapsedTime & «. Time to finish kt-editor-attachments» data-kt-attachment-wrapper=»»>