Как убрать повторы в ворде

Как в MS Word удалить повторяющиеся строки?

Вождь
А почему не скопировать в Эксель? Особенно если строк много.

В Ворд руками это делается так:
1. Сортируем параграфы по алфавиту.
2. Поиск и замена:
найти — ([!^13]@^13)(\1)
заменить — \1
подстановочные знаки — вкл
3. Жмем «Заменить все» пока что-то находит…

Похожие статьи

Как макросом брать данные с word документов в excel?
Нумерация страниц в ворде 2007
Удаление страниц в середине документа
Удаление пустых строк в таблице (Microsoft Office Word)
Вставить текст в определенную строку ячейки таблицы в ворде
Извлечь фотографии из doc (docx) файла
Экспорт в Word из Memo
Скопировать данные из Edit в Word
Как из delphi вставить символ в word?
Книга — Excel 2007

Купить рекламу на сайте за 1000 руб

пишите сюда — alarforum@yandex.ru

Да и по любым другим вопросам пишите на почту

Форум Web программирование (веб)
- Форум Python (питон)
- Форум PHP (пхп)
- Форум Perl (перл)
- Форум Ruby (руби)
- Форум JavaScript (яваскрипт)
- Форум Ajax (аякс)
- Форум SQL (эскюэл)
- Форум HTML (хтмл)
- Форум CSS (сиэсэс)
- Форум XML (иксмл)
- Форум JSON (джсон)
- Форум Pascal (паскаль)
- Форум Delphi (делфи)
- Форум C++ (си плюс плюс)
- - Форум C++ Builder (си билдер)
  - Форум Visual C++ (визуал си)
  - Форум .NET (точка нет)
  - Форум ASP.NET (асп нет)
  - Форум Windows Forms (виндовс формс)
  - Форум базы данных ADO.NET (адо нет)
  - Форум .NET Framework WPF, UWP, WinRT, XAML ()
  - Форум Java Android (джава андроид)
  - Форум Java web (джава веб)
  - Форум Kotlin (котлин)
  - Форум Assembler (ассемблер)
  - Форум WinApi (вин апи)
  - Форум Excel (эксель)
  - Форум Word (ворд)
  - Форум Access (аксесс)
  - Форум по администрированию ОС
  - Форум по администрированию серверов и VDS
  - Форум Windows
  - Форум Ubuntu
  - Форум Android
  Как убрать повторы в ворде
  
  Argument ‘Topic id’ is null or empty
  
  Сейчас на форуме
  
  © Николай Павлов, Planetaexcel, 2006-2023
  info@planetaexcel.ru
  
  Использование любых материалов сайта допускается строго с указанием прямой ссылки на источник, упоминанием названия сайта, имени автора и неизменности исходного текста и иллюстраций.
  
  ООО «Планета Эксел»
  ИНН 7735603520
  ОГРН 1147746834949 ИП Павлов Николай Владимирович
  ИНН 633015842586
  ОГРНИП 310633031600071
  
  покупка
  
  Как удалить повторяющиеся строки из таблицы в документе Word?
  
  В документе Word могут быть таблицы с повторяющимися строками, которые вы хотите иногда удалить и сохранить первое появление. В этом случае вы можете удалить дубликаты по одному вручную или использовать код VBA.
  
  Удалить повторяющиеся строки из таблицы в Word
  
  1. Поместите курсор на таблицу, из которой вы хотите удалить повторяющиеся строки, нажмите Alt + F11 ключи для включения Microsoft Visual Basic для приложений окно.
  
  2. Нажмите Вставить > Модули для создания нового модуля.
  
  3. Скопируйте приведенные ниже коды и вставьте их в новый Модули скрипты.
  
  VBA: удалить повторяющиеся строки из таблицы в Word
```
Public Sub DeleteDuplicateRows2() 'UpdatebyExtendoffice20181011 Dim xTable As Table Dim xRow As Range Dim xStr As String Dim xDic As Object Dim I, J, KK, xNum As Long If ActiveDocument.Tables.Count = 0 Then MsgBox "This document does not have table(s).", vbInformation, "Kutools for Word" Exit Sub End If Application.ScreenUpdating = False Set xDic = CreateObject("Scripting.Dictionary") If Selection.Information(wdWithInTable) Then Set xTable = Selection.Tables(1) For I = xTable.Rows.Count To 1 Step -1 Set xRow = xTable.Rows(I).Range xStr = xRow.Text xNum = -1 If xDic.Exists(xStr) Then ' xTable.Rows(I).Delete For J = xTable.Rows.Count To 1 Step -1 If (xStr = xTable.Rows(J).Range.Text) And (J <> I) Then xNum = xNum + 1 xTable.Rows(J).Delete End If Next I = I - xNum Else xDic.Add xStr, I End If Next Else For I = 1 To ActiveDocument.Tables.Count Set xTable = ActiveDocument.Tables(I) xNum = -1 xDic.RemoveAll For J = xTable.Rows.Count To 1 Step -1 Set xRow = xTable.Rows(J).Range xStr = xRow.Text xNum = -1 If xDic.Exists(xStr) Then ' xTable.Rows(I).Delete For KK = xTable.Rows.Count To 1 Step -1 If (xStr = xTable.Rows(KK).Range.Text) And (KK <> J) Then xNum = xNum + 1 xTable.Rows(KK).Delete End If Next J = J - xNum Else xDic.Add xStr, J End If Next Next End If Application.ScreenUpdating = True End Sub
```
  4. Нажмите F5 ключ для запуска кода, то все повторяющиеся строки будут удалены.
  
  Внимание: Приведенный выше код чувствителен к регистру, если вы хотите удалить повторяющиеся строки без учета регистра, вы можете использовать следующий код:
```
Public Sub DeleteDuplicateRows2() 'UpdatebyExtendoffice20181011 Dim xTable As Table Dim xRow As Range Dim xStr As String Dim xDic As Object Dim I, J, KK, xNum As Long If ActiveDocument.Tables.Count = 0 Then MsgBox "This document does not have table(s).", vbInformation, "Kutools for Word" Exit Sub End If Application.ScreenUpdating = False Set xDic = CreateObject("Scripting.Dictionary") If Selection.Information(wdWithInTable) Then Set xTable = Selection.Tables(1) For I = xTable.Rows.Count To 1 Step -1 Set xRow = xTable.Rows(I).Range xStr = UCase(xRow.Text) xNum = -1 If xDic.Exists(xStr) Then ' xTable.Rows(I).Delete For J = xTable.Rows.Count To 1 Step -1 If (xStr = xTable.Rows(J).Range.Text) And (J <> I) Then xNum = xNum + 1 xTable.Rows(J).Delete End If Next I = I - xNum Else xDic.Add xStr, I End If Next Else For I = 1 To ActiveDocument.Tables.Count Set xTable = ActiveDocument.Tables(I) xNum = -1 xDic.RemoveAll For J = xTable.Rows.Count To 1 Step -1 Set xRow = xTable.Rows(J).Range xStr = UCase(xRow.Text) xNum = -1 If xDic.Exists(xStr) Then ' xTable.Rows(I).Delete For KK = xTable.Rows.Count To 1 Step -1 If (xStr = xTable.Rows(KK).Range.Text) And (KK <> J) Then xNum = xNum + 1 xTable.Rows(KK).Delete End If Next J = J - xNum Else xDic.Add xStr, J End If Next Next End If Application.ScreenUpdating = True End Sub
```
  Если вы хотите удалить повторяющиеся строки во всех таблицах документа, поместите курсор в любое место документа за пределами таблицы, затем примените один из приведенных выше кодов.
  
  Просмотр и редактирование нескольких документов Word / книг Excel с вкладками в Firefox, Chrome, Internet Explore 10!
  
  Возможно, вы знакомы с просмотром нескольких веб-страниц в Firefox / Chrome / IE и возможностью переключения между ними, легко щелкая соответствующие вкладки. Здесь вкладка Office поддерживает аналогичную обработку, которая позволяет вам просматривать несколько документов Word или книг Excel в одном окне Word или Excel и легко переключаться между ними, щелкая их вкладки.
  Нажмите, чтобы получить бесплатную пробную версию вкладки Office!
  
  Поиск и удаление повторений
  
  В некоторых случаях повторяющиеся данные могут быть полезны, но иногда они усложняют понимание данных. Используйте условное форматирование для поиска и выделения повторяющихся данных. Это позволит вам просматривать повторения и удалять их по мере необходимости.
  Примечание: В Excel не поддерживается выделение повторяющихся значений в области «Значения» отчета сводной таблицы.
- Выберите Главная >условное форматирование >выделение правил ячеек >повторяющихся значений.
- В поле рядом со значениями выберите форматирование, которое нужно применить к повторяющимся значениям, а затем нажмите кнопку ОК.
- Выберите Данные >Удалить дубликаты, а затем в разделе Столбцы проверка или снимите флажок столбцов, в которых нужно удалить дубликаты. Например, на данном листе в столбце «Январь» содержатся сведения о ценах, которые нужно сохранить. Поэтому флажок Январь в поле Удаление дубликатов нужно снять.
- Нажмите кнопку ОК.