Как убрать совпадения в ворде

Как убрать совпадения в ворде

Регистрация на форуме тут, о проблемах пишите сюда — alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Поиск по форуму
Расширенный поиск
К странице.

Столкнулся с такой проблемой: нужно удалить в MS Word повторяющиеся строки. Ну, к примеру:
N0123456789
N0123456789
N0123456789
N0123456789
N0123456789
N0123456789
N0123456789
N0123456789
N0123456789
N0123456789
N0123456789
N9876543210
N9876543210
N9876543210
N9876543210
N9876543210
N9876543210
N9876543210
N9876543210,

а сделать нужно:

В EXecele — это элементарно: Данные-Удалить дубликаты, а вот как в Worde это сделать — вопрос!

Кто может подскажите!
Всю голову сломал.

Да уж. создать такой же инструмент в Word’е не просто!

Я вот вставил этот столбик в Excel — и далее по вашему рецепту.

Чтобы то же самое делать, не обращаясь к Excel’ю. ну это для фанатов ворда!

Sasha_Smirnov
Посмотреть профиль
Найти ещё сообщения от Sasha_Smirnov

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

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

Как удалить повторяющиеся строки и абзацы в Word

Последнее обновление 14.06.2021 Антон Третьяк

Как и говорил в посте Как найти и заменить текст в Ms Office Word, Open Office Writer, Libre Office, сегодня попробуем поработать с большим количеством информации. Бывает, что из массива текста нужно удалить повторяющиеся строки и абзацы. Будем оставлять самое главное и удалять лишнее в очень большом тексте в Word.

Как удалить повторяющиеся строки и абзацы Word

Текст, который мы будем «чистить»:

Как удалить повторяющиеся строки и абзацы Word

Итак, удаляем строки, которые выделены жирным и оставляем только нужный текст.

Обратите внимание, что длина удаляемого текста отличается. Для выделения строки независимо от количества символов нажимаем Ctrl+Shift+стрелка вниз. Под спойлером в конце поста вы увидите все команды выделения текста с помощью клавиатуры. А сейчас переводим курсор в начало текста, переходим в меню «Макросы» и включаем запись макроса.

Как записать макрос

Когда будете задавать имя макросу, не оставляйте пробелы – Word выдаст ошибку. Назначаем его для кнопки или клавиатуры. Я больше люблю работать с клавиатурой и выбрал поэтому клавиши.

Как записать макрос

Настраиваем макрос. Тут просто нажимаем любое сочетание клавиш. Если оно уже присвоено, то об этом появится информация.

Настраиваем макро

Я присвоил макросу клавиатурную комбинацию Ctrl+G. Эта комбинация не используется в стандартном режиме редактирования и является свободной. Не переписывайте комбинации, которые часто используете .

вырезать выделенный контент (текст, графика, вложения)

скопировать выделенный контент

выделить всё в документе

отменить последнее действие

повторить последнее действие (обратно сочетанию Ctrl+Z)

Начнём записывать макрос. На самом деле тут ничего сложного нет, просто делайте так, как редактируете обычно текст. Используйте чаще клавиши «Home» и «End», потому что они работают быстрее и не привязаны к количеству символов.

Таким образом, при записи вам нужно последовательно нажать после включения записи макроса следующие клавиши и комбинации клавиш. Стрелкой «вниз» сместить курсор на одну строку ниже, нажатием «Ctrl+Shift+стрелка вниз» выделить строку, клавишей « Delete » удалить строку. Полная последовательность представлена ниже в таблице.

Записываем макрос

Включили запись макроса

пропускаем строку и переходим к следующей

выделяем 2 строку

выделяем 3 строку

выделяем 4 строку

п ереносим строку 5 к строке 1

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

Переходим в начало следующего повторяющегося блока

Выключаем запись макроса

Макрос записан, запись остановили. Кнопка остановки записи будет в том же месте, что и кнопка записи макроса.

Замечательно! Устанавливаем курсор в начальное положение. Нажимаем Ctrl+G и лишний текст просто пропадает. Быстро, легко и удобно. А что делать, если записей… 1000 или больше?

Обработка макросов в цикле

Дадим команду обработать все вложения. А сколько этих вложений? Один из способов – найдите постоянное выражение через поиск. Я нажал Ctrl + F и ввёл в строку поиска выражение «Читайте блог Lassimarket.ru». Количество вхождений Word мне не показал, но я попросил его заменить это выражение на «*». Появилось окно с надписью «Произведено замен 24».

постоянное выражение через поиск

Запомнили число и нажали Ctrl+Z – отменили замену текста на звёздочку. Теперь я знаю, что в примере у меня 24 вхождения. Это я должен нажать 24 раза сочетание Ctrl+G для того, чтобы отформатировать текст. Будем упрощать это дело.

Нажимаем Alt+ F 11. Мы попали в редактор макросов. Это большая и сложная тема, тут самый настоящий язык программирования, но у нас всё будет просто, я вас уверяю.

редактор макросов

Вписываем как на картинке две строки в начало и слово в конце.

Dim i As Integer

For i = 0 To 23

Что это значит? Мы обозначили i — числовой переменной и присвоили значения от 0 до 23, после окончания первого цикла замены число i увеличится на 1 и макрос будет снова повторяться (Next) до тех пор, пока не достигнет конца (23).

То есть эти строки дают команду после нажатия Ctrl+G повторить макрос «Удаляем3строки» 23 раза. Вот текст моего примера макроса.

Пример макроса для удаления трёх строк

Dim i As Integer

Selection.MoveDown Unit:=wdLine, Count:=1

Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend

Selection.Delete Unit:=wdCharacter, Count:=1

Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend

Selection.Delete Unit:=wdCharacter, Count:=1

Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend

Selection.Delete Unit:=wdCharacter, Count:=1

Selection.MoveDown Unit:=wdLine, Count:=1

Сохраняем макрос и закрываем редактор.

Обратите внимание, что после того, как мы перенесём пятую строку к первой, текст может вылезать на другую строку и макрос будет дальше работать неправильно.

Тогда можно временно заменить регулярное выражение на любой символ или уменьшить шрифт на этапе работы макроса и тому подобное.

удалить строки в word 00006

Вернулись в редактор, нажали Ctrl+G, и текст мигом принял новый вид. Всё получилось. За пару минут обработали довольно большой текст в автоматическом режиме.

Команды управления для макросов

Выделение текста с помощью клавиатуры.Выделение элементов в основном тексте документа

Выделяемый элемент Действие
Один знак вправо Нажмите клавиши SHIFT+СТРЕЛКА ВПРАВО
Один знак влево Нажмите клавиши SHIFT+СТРЕЛКА ВЛЕВО
Слово от начала к концу Установите курсор в начало слова и нажмите клавиши CTRL+SHIFT+СТРЕЛКА ВПРАВО.
Слово от конца к началу Установите курсор в конец слова и нажмите клавиши CTRL+SHIFT+СТРЕЛКА ВЛЕВО.
Строка от начала к концу Нажмите клавишу HOME, а затем нажмите клавиши SHIFT+END.
Строка от конца к началу Нажмите клавишу END, а затем нажмите клавиши SHIFT+HOME.
Одна строка вниз Нажмите клавишу END, а затем нажмите клавиши SHIFT+СТРЕЛКА ВНИЗ.
Одна строка вверх Нажмите клавишу HOME, а затем нажмите клавиши SHIFT+СТРЕЛКА ВВЕРХ.
Абзац от начала к концу Установите курсор в начало абзаца и нажмите клавиши CTRL+SHIFT+СТРЕЛКА ВНИЗ.
Абзац от конца к началу Установите курсор в конец абзаца и нажмите клавиши CTRL+SHIFT+СТРЕЛКА ВВЕРХ.
Документ от конца к началу Установите курсор в конец документа и нажмите клавиши CTRL+SHIFT+HOME.
Документ от начала к концу Установите курсор в начало документа и нажмите клавиши CTRL+SHIFT+END.
От начала до конца окна Установите курсор в начало окна и нажмите клавиши ALT+CTRL+SHIFT+PAGE DOWN.
Весь документ Нажмите клавиши CTRL+A.
Вертикальный блок текста Нажмите клавиши CTRL+SHIFT+F8, а затем используйте клавиши со стрелками. Для выхода из режима выделения нажмите клавишу ESC.
Ближайший знак Нажмите клавишу F8 для входа в режим выделения, а затем нажмите клавишу СТРЕЛКА ВЛЕВО или СТРЕЛКА ВПРАВО; для выхода из режима выделения нажмите клавишу ESC.
Слово, предложение, абзац или документ Нажмите клавишу F8 для входа в режим выделения, а затем нажмите клавишу F8 один раз, чтобы выделить слово, два раза, чтобы выделить предложение, три раза, чтобы выделить абзац или четыре раза, чтобы выделить документ. Для выхода из режима выделения нажмите клавишу ESC.

Выделение элементов таблицы

Выделяемый элемент Действие
Содержимое следующей ячейки Нажмите клавишу TAB.
Содержимое предыдущей ячейки Нажмите клавиши SHIFT+TAB.
Содержимое нескольких смежных ячеек При нажатой клавише SHIFT несколько раз нажмите соответствующую клавишу со стрелкой, пока не будет выделено содержимое всех нужных ячеек.
Содержимое столбца Выделите верхнюю или нижнюю ячейку столбца, нажмите клавишу SHIFT и, удерживая ее, несколько раз нажмите клавишу СТРЕЛКА ВВЕРХ или СТРЕЛКА ВНИЗ, пока не будет выделено содержимое столбца.
Содержимое таблицы целиком Щелкните в любом месте таблицы, а затем нажмите клавиши ALT+5 на цифровой клавиатуре (при выключенном индикаторе NUM LOCK).

В следующих постах расскажу ещё о простых, но важных навыках работы с офисными приложениями.

Рейтинг статьи: Оценили: 6

Поиск и замена текста в Word

Автор: Sreda31 · Опубликовано 26.01.2017 · Обновлено 26.05.2020

Для ого, чтобы открыть окно поиска в Word необходимо нажать сочетание клавиш Ctrl + F или в на вкладке Главная в группе Редактирование выбрать пункт Найти.

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

word2016_poisk-i-zamena-teksta_sreda31

Word позволяет осуществить поиск с более сложными условиями. Для этого на вкладке Главная в группе Редактирование необходимо нажать на треугольник справа от кнопки Найти и выбрать Расширенный поиск.

Нажатие кнопки Больше позволяет увидеть дополнительные возможности.

Расширенный поиск позволяет искать слова с учетом регистра и форматирования.

word2016_poisk-i-zamena-teksta-2_sreda31

Для того, чтобы заменить найденное слово на другое, необходимо воспользоваться командой замена. Для этого открыть окно расширенного поиска как описано выше и в нем перейти на вкладку Замена. Либо нажать сочетание клавиш Ctrl + H.

word2016_poisk-i-zamena-teksta-3_sreda31

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

Кнопка Заменить выполнит одну замену — в первом найденном совпадении.

Кнопка Заменить все заменить все найденные совпадения.

Ссылка на основную публикацию