Как удалить повторяющиеся значения в ворде
Перейти к содержимому

Как удалить повторяющиеся значения в ворде

  • автор:

Как удалить одинаковые слова?

Есть два документа с текстом (многостраничные документы, или большие текстовые файлы). Надо сделать так, чтобы в первом
файле остались только те слова, которых нет во втором, а во втором файле остались только те слова, которых нет в первом.
.
Например, в первом файле: мама папа бабушка дедушка
Во втором файле: мама брат сестра бабушка дедушка
.
Нужно сделать, чтобы файлы стали иметь такое содержание:
Первый файл: папа
Второй файл: брат сестра
.
То есть, из обоих файлов удаляются одинаковые слова, принадлежащие обоим файлам, оставляя лишь неповторяющиеся,
а удаляемые слова (одинаковые) нужно записать в третий файл.
Тогда, третий файл, согласно примеру выше, будет таким:
мама бабушка дедушка
.
Может быть есть макрос (программа или скрипт), которые бы работали подобным образом (без ввода искомых слов вручную)?
.
Чтобы работало под Windows.
.
Спасибо всем, кто пытается помочь.

2 Ответ от ЮВ 01.06.2011 18:49:38

Re: Как удалить одинаковые слова?

vadim19 пишет:

Может быть есть макрос (программа или скрипт), которые бы работали подобным образом (без ввода искомых слов вручную)?
.

Может, я ошибаюсь (тогда компетентные товарищи поправят), но программы для решения вашей специфической проблемы нет.

Все существующие программы сравнения файлов предназначены, как правило, для визуального сравнения
(текстов программ, версий документов и т. п.). Несовпадения (различия) выделяются цветом.
К тому же ваша проблема не сводится к сравнению файлов.
Вам надо писать собственную программу.
Алгоритм примерно следующий:
1 Составляете отсортированный список (без дубликатов) всех слов первого документа.
2 Аналогично для второго документа.
3 Далее в цикле:
— берете очередное слово из первого списка и проверяете, есть ли оно во втором списке.
Если да, удаляете из обоих списков и помещаете его в выходной файл совпадающих слов.
Если нет, ничего не делаете, переходите к следующему слову.

3 Ответ от vadim19 01.06.2011 19:45:43

Re: Как удалить одинаковые слова?

1 Составляете отсортированный список (без дубликатов) всех слов первого документа.
2 Аналогично для второго документа.
3 Далее в цикле:
— берете очередное слово из первого списка и проверяете, есть ли оно во втором списке.
Если да, удаляете из обоих списков и помещаете его в выходной файл совпадающих слов.
Если нет, ничего не делаете, переходите к следующему слову.

Спабисо, ЮВ.
1 и 2 пункты я умею делать. У меня даже есть для этих целей рабочие и макросы и скрипты, я ими постоянно пользуюсь. Здесь проблем не будет. А вот с третьим пунктом, если можно подробнее расскажите, как сделать.

4 Ответ от ЮВ 02.06.2011 13:40:45

Re: Как удалить одинаковые слова?

vadim19 пишет:

1 и 2 пункты я умею делать. У меня даже есть для этих целей рабочие и макросы и скрипты, я ими постоянно пользуюсь. Здесь проблем не будет. А вот с третьим пунктом, если можно подробнее расскажите, как сделать.

Имхо, третий пункт проще всего реализуется с помощью какой-нибудь СУБД.
В БД надо будет создать две таблицы и загрузить в них списки слов из пункта 1 и 2.
Потом с помощью простых SQL-запросов можно будет выбирать интересующую информацию, например,
список одинаковых слов
select tab1.слово from tab1, tab2 where tab1.слово=tab2.слово;
Подобными запросами можно получить список слов, присутствующих в первом документе и отсутствующих во втором,
и наоборот, иcключить совпадающие слова и т. п.

5 Ответ от Вождь 02.06.2011 19:38:42

Re: Как удалить одинаковые слова?

Есть идея склеить все в один документ разделив, например, разрывом страницы/раздела. Где-то так:
текст документа 1
— разрыв —
текст документа 2
— разрыв —
здесь будут удаленные (одинаковые) слова
Тогда можно обойтись поиском и заменой. Например, чтобы вырезать одинаковые слова из первых двух частей и поместить в третью, надо в цикле гонять такой поиск:
найти: ()(*^m*)<\1>(*^m)
заменить: \2\3\1^13
подстановочные знаки: да
Но надо учесть что одинаковых слов может быть не 1+1, а и 1+2, 3+2 и т.д. Сначала надо удалить лишние.

Макросы под заказ и готовый пакет — mtdmacro.ru

6 Ответ от vadim19 03.06.2011 19:11:57

Re: Как удалить одинаковые слова?

Спасибо, ребят, буду пробовать. Вот только я не знаю ни поисковых запросов, ни языков программирования, в том виде, в каком их надо бы знать. Я типа методом тыка делал. Но у меня получилось. Просто осталось малость, которую я не могу понять. Ну ладно, спасибо.
С уважением.

7 Ответ от Ципихович Эндрю 05.06.2011 07:05:11

  • Ципихович Эндрю
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 04.02.2010
  • Сообщений: 506
  • Поблагодарили: 23
Re: Как удалить одинаковые слова?

Потом с помощью простых SQL-запросов можно будет выбирать интересующую информацию, например,
список одинаковых слов
select tab1.слово from tab1, tab2 where tab1.слово=tab2.слово;

Я так понял это Ворд??
если да то пожалуйста приведите пример Ваших слов, я думал, что такого в Ворде нет

8 Ответ от Ципихович Эндрю 05.06.2011 12:10:51

  • Ципихович Эндрю
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 04.02.2010
  • Сообщений: 506
  • Поблагодарили: 23
Re: Как удалить одинаковые слова?

Вождь пишет:

Вы об этом скрипте говорите:

Sub Macro1() 'специальные символы и подстановочные знаки 'в операциях поиска и замены MS Word 97/2000/XP 'http://artefact.lib.ru/design/text_khozyainov.shtml 'регулярное выражение - это образец текста 'который состоит из обычных символов и/или специальных метасимволов, описание: 'http://www.script-coding.com/WSH/RegExp.html#4 'http://www.script-coding.info/WSH/RegExp.html 'поиск и замена во всём документе With ActiveDocument.Content.Find 'найти: .Text = "()(*^m*)<\1>(*^m)" 'заменить: .Replacement.Text = "\2\3\1^13" 'эта опция отвечает за поиск с использованием подстановочных знаков 'не работает когда установлено в положение False, или её нет вообще 'если установлена в положение True, тогда работает .MatchWildcards = True 'заменить все .Execute Replace:=wdReplaceAll End With End Sub

Я спорить не буду просто на 2010 вроде не работает.
Но я в нём особо не освоился

9 Ответ от ЮВ 05.06.2011 15:58:42

Re: Как удалить одинаковые слова?

Ципихович Эндрю пишет:

Нет, вы не так поняли.
Это конструкция не WORD, а любой реляционной СУБД, в БД которой предлагалось загрузить списки слов из документов.

10 Ответ от Ципихович Эндрю 05.06.2011 16:30:58

  • Ципихович Эндрю
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 04.02.2010
  • Сообщений: 506
  • Поблагодарили: 23
Re: Как удалить одинаковые слова?

я говорю судя из ТС автора

Есть два документа с текстом (многостраничные документы, или большие текстовые файлы). Надо сделать так, чтобы в первом
файле остались только те слова, которых нет во втором, а во втором файле остались только те слова, которых нет в первом.
.
Например, в первом файле: мама папа бабушка дедушка
Во втором файле: мама брат сестра бабушка дедушка
.
Нужно сделать, чтобы файлы стали иметь такое содержание:
Первый файл: папа
Второй файл: брат сестра

ДА ЭТО Ж ВОРД.
нет?? как Ваше детише прикручивать

Сообщений [ 10 ]

Страницы 1

Чтобы отправить ответ, вы должны войти или зарегистрироваться

Похожие темы

  • Одинаковые поля в нескольких документах
  • Одинаковые заголовки после обновления оглавления
  • Word как удалить текст в файле, закрыть и удалить макросом файл?
  • перемещение слова
  • Номер слова
  • Поиск слова
  • Word Как сравнить слова?
  • Автозамена слова во всем тексте

Как удалить одинаковые слова?

Если у вас установлен редактор Microsoft Word, обязательно посетите форум Ворд Эксперт. Это русскоязычный портал, на котором пользователи делятся друг с другом и гостями сайта особенностями работы с данной программой. На портале о Microsoft Office Word вы узнаете про: как в 2007 убрать номер страницы с титульного листа. Регистрация не займет много времени, для сомневающихся даже имеется иллюстрированная инструкция. В главном разделе приведены наиболее часто встречающиеся вопросы по редактору и ответы на них. На портале о Microsoft Office Word вы узнаете про: как перевести документ из word 3 в pdf.

Главной задачей портала является разработка разнообразных макросов, позволяющих доводить работу редактора до автоматизма, с легкостью производить запрашиваемые действия. На портале о Microsoft Office Word вы узнаете про: программа нахождения одинаковых слов в тексте. На форуме вы можете найти как готовые макросы, так и инструкции по их созданию, если захотите разработать сами. Наш сайт о Microsoft Office Word даст ответ про: как с содержании зделать чтобы текст не выходил за номер страницы. Если же вас не устраивает ничего из предложенного и нет возможности/желания написать макрос самостоятельно, на форуме можно оставить заявку на его создание. Наш сайт о Microsoft Office Word даст ответ про: как в ворде 2007 расположить список по алфавиту.

На портале ведется активное обсуждение работы с программой, ее настройки, особенности работы с текстами, возможности при создании и редактировании текстов. На портале о Microsoft Office Word вы узнаете про: не могу найти ворд. Вы можете обратиться к пользователям с любым интересующим вас вопросом. Не забудьте только пояснять, какая у вас версия редактора. На портале о Microsoft Office Word вы узнаете про: создать оглавление в книге, состоящей из трех заголовков первого уровня и трех заголовков второго уровня.. Можете прописать эти данные в подписи для того, чтобы на ваш вопрос отвечающим легче было откликнуться. На портале о Microsoft Office Word вы узнаете про: убрать переносы строк в тексте.

Помимо этого на сайте вы найдете самую литературу и копилочку полезных ссылок. На портале размещена вся самая важная и нужная информация о работе с Microsoft Word. Наш сайт о Microsoft Office Word даст ответ про: как повернуть таблицу в word 10.

Как удалить повторяющиеся значения в ворде

Регистрация: 22.11.2019

Сообщений: 1

Удаление повторяющихся строк в Word таблице

Очень нужна помощь!
Есть экселевский файл с таблицами и формой и вордовский шаблон (Office 2010).
Форма нужна для заполнения еще одной таблицы на листе, а также создания на основе шаблона вордовского документа с данными из формы и таблиц.
В этом документе к таблице 2 добавляются строки, которые в большинстве случаев будут содержать повторяющиеся значения. Необходимо оставить только уникальные записи.
В Интернете нашел пару работающих рецептов, которые не заработали в составе моего макроса.
Например:

 Dim oTable As Table Dim oRow As Range Dim oNextRow As Range Dim i As Long ' Specify which table you want to work on. Set oTable = wdDoc.Tables(2) ' Set an object variable to the first row. Set oRow = oTable.Rows(2).Range For i = 2 To oTable.Rows.Count - 1 ' Set an object variable to the next row. Set oNextRow = oRow.Next(wdRow) ' Compare the text in the first column of the two rows. If oRow.Cells(2).Range = oNextRow.Cells(2).Range Then ' If text is identical, delete the second row oNextRow.Rows(1).Delete Else ' If not identical, move to the next row. Set oRow = oNextRow End If Next i

Я поменял только имя документа на wdDoc и номер колонки с 1й на 2ю.
При этом, если сохранить этот код как отдельный макрос и запустить в получившемся документе, то все срабатывает.
Еще одни момент: в составе моего макроса содержимое переменной oRow оказывается равным Nothing, а если код запускать как самостоятельный макрос, то происходит ее заполнение.
Извините за сумбурное объяснение и корявый код и форму — я в этом деле чайник.
Чтобы в таблице 2 появились повторяющиеся значения нужно на форме выбрать в «Типе продукции», например, «показатели безопасности» и потом в списке «Показатели» кадмий, мышьяк, свинец.

rem_dup.zip (181.5 Кб, 11 просмотров)

покупка

Как убрать повторяющиеся значения (убрать дубликаты) в Excel?

Для списка данных с повторяющимися значениями вам может потребоваться удалить повторяющиеся и оставить в списке только уникальные значения. В этой статье показаны два метода удаления повторяющихся значений (дубликатов) из списка в Excel.

Устранение повторяющихся значений с помощью функции удаления дубликатов

Предположим, у вас есть таблица фруктов, как показано на скриншоте ниже, теперь вы хотите удалить все повторяющиеся фрукты из столбца Fruit. Пожалуйста, сделайте следующее.

1. Выделите всю таблицу, затем щелкните Данные > Удалить дубликаты. Смотрите скриншот:

2. в Удалить дубликаты В диалоговом окне выберите только столбец, на основе которого вы хотите удалить дубликаты (здесь я выбираю столбец Fruit), затем нажмите OK .

3. Затем появится окно с подсказкой, в котором сообщается, сколько дубликатов было удалено. Щелкните значок OK .

Теперь все повторяющиеся значения удаляются из указанного списка столбцов, и остаются только уникальные.

Легко устраняйте повторяющиеся значения с помощью Kutools for Excel

Вышеупомянутый метод может удалять только дубликаты, кроме первого. Если вы хотите удалить все дубликаты, включая первый, или удалить уникальные значения из списка, вы можете попробоватьВыберите повторяющиеся и уникальные ячейки полезности Kutools for Excel.

Перед применением Kutools for Excel, Пожалуйста, сначала скачайте и установите.

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

2. в Выберите повторяющиеся и уникальные ячейки диалоговом окне, если вы хотите удалить только дубликаты, кроме первого, выберите Дубликаты (кроме 1-го) вариант в Правило раздел. Проверить Выбрать целые строки поле, а затем щелкните OK кнопка. Смотрите скриншот:

Заметки:

1. Если вы не хотите оставлять дубликаты в списке, проверьте Все дубликаты (включая 1-й) опцию.

2. Вы также можете удалить уникальные значения из выбранного списка с помощью этой утилиты по мере необходимости;

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

3. Затем появится диалоговое окно, в котором указано, сколько строк выбрано. Щелкните значок OK кнопка. А теперь щелкните правой кнопкой мыши любую выбранную строку, щелкните Удалить из контекстного меню, чтобы удалить строки с повторяющимися значениями.

Если вы хотите получить бесплатную (30-дневную) пробную версию этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.

Как удалить повторяющиеся слова в Custom.DIC

Author24 — интернет-сервис помощи студентам

Как удалить повторяющиеся слова в пользовательском словаре Custom.DIC? Может, конечно, они сами удаляются.
Спасибо.

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

Словари custom.DIC c более 5 000 слов
Просьба скинуть свои пользовательские словари custom.DIC, если в них более 5 000 слов. Слова.

Как удалить повторяющиеся слова и слова, которые меньше/больше 9 символов ?!
1) Надо удалить точно такие же повторяющиеся слова а их много! 2) Как из всего списка удалить.

Как удалить повторяющиеся слова из memo и занести их в listbox?
Знаю как удалить повторяющиеся строки, но слова 0 идей.

Удалить слова, содержащие все повторяющиеся буквы первого слова, из последовательности символов
Дана последовательность символов, состоящая из слов. Удалить слова, которые содержат все.

8938 / 4850 / 1886
Регистрация: 11.02.2013
Сообщений: 10,246

  1. Копируешь содержимое словаря в новый документ.
  2. Сортируешь по алфавиту
  3. удаляешь повторы
  4. вставляешь обратно в словарь.

Регистрация: 30.12.2015
Сообщений: 384

предполагалось без просмотра вручную n тысячи слов. Можно в Тотал Командере присвоить имена из списка custom, в самом тотале удалить и сохранить новый список в custom. Но может ворд аавтоматически умеет удалять дубликаты.

8938 / 4850 / 1886
Регистрация: 11.02.2013
Сообщений: 10,246

ЦитатаСообщение от durol Посмотреть сообщение

Но может ворд аавтоматически умеет удалять дубликаты.

  1. Вставить слова из словаря в новый документ
  2. Запустить макрос
  3. Вернуть слова в словарь
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
Sub RemoveDuplicates() ActiveDocument.Range.Sort Dim oPar As Paragraph, oNextPar As Paragraph Set oPar = ActiveDocument.Paragraphs.First Set oNextPar = oPar.Next While Not oNextPar Is Nothing If oPar.Range.Text = oNextPar.Range.Text Then oNextPar.Range.Delete Set oNextPar = oPar.Next Else Set oPar = oNextPar Set oNextPar = oPar.Next End If Wend End Sub

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *