Как объединить или объединить несколько строк в один абзац в документе Word?
Если в документе Word есть сотни и тысячи абзацев, при печати этого документа потребуется много бумаги. Чтобы сохранить документы, вы можете объединить эти несколько строк в один абзац. Однако как можно быстро и легко объединить все эти строки в один абзац в документе Word?
Объедините или объедините несколько строк в один абзац с помощью функции поиска и замены
Слияние или объединение нескольких строк в один абзац с кодом VBA
Объедините или объедините несколько строк в один абзац с помощью функции поиска и замены
Ассоциация Найти и заменить Функция в Word может помочь вам объединить несколько строк в один абзац, пожалуйста, сделайте следующее:
1. Выделите абзацы, которые вы хотите объединить в один абзац.
2. А затем нажмите Главная > Найдите > Расширенный поиск пойти Найти и заменить диалоговое окно в Найти и заменить диалоговое окно под Найдите вкладка, пожалуйста, введите ^p в Найти то, что текстовое поле, а затем выберите Текущий выбор из файла Найти в выпадающий список, см. снимок экрана:
3, Затем перейдите к Замените вкладку и оставьте Заменить пустое текстовое поле, а затем щелкните Заменить все кнопку, см. снимок экрана:
4. И все выделенные абзацы были объединены в один абзац, см. Снимок экрана:
Слияние или объединение нескольких строк в один абзац с кодом VBA
Вот еще один полезный метод, который также может помочь вам завершить эту работу в Word, выполните следующие действия:
1. Выделите строки, которые хотите объединить в один абзац.
2. Затем зажмите ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
3. А затем нажмите Вставить > Модули, скопируйте и вставьте приведенный ниже код в открытый пустой модуль.
Код VBA: объединить несколько строк в один абзац:
Sub CleanUpPastedText()
Dim xSelection As Selection
On Error Resume Next
Application.ScreenUpdating = False
Set xSelection = Application.Selection
If xSelection.Type <> wdSelectionIP Then
FindAndReplace xSelection
Else
If MsgBox("Do you want to merge all selected lines into one paragraph?", vbYesNo + vbInformation, "Kutools for Word") = vbNo Then Exit Sub
xSelection.WholeStory
Set xSelection = Application.Selection
xSelection.HomeKey wdStory
FindAndReplace xSelection
End If
Application.ScreenUpdating = True
Application.ScreenRefresh
MsgBox "The selected lines have been merged into one paragraph.", vbInformation, "Kutools for Word"
End Sub
Sub FindAndReplace(Sel As Selection)
With Sel.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Text = "[^s^t]{1,}^13"
.Replacement.Text = "^p"
.Execute Replace:=wdReplaceAll
.Text = "([!^13])([^13])([!^13])"
.Replacement.Text = "\1\3"
.Execute Replace:=wdReplaceAll
.Text = "[ ]{2,}"
.Replacement.Text = " "
.Execute Replace:=wdReplaceAll
.Text = "([a-z])-[ ]{1,}([a-z])"
.Replacement.Text = "\1\2"
.Execute Replace:=wdReplaceAll
.Text = "[^13]{1,}"
.Replacement.Text = "^p"
.Execute Replace:=wdReplaceAll
End With
End Sub
4, Затем нажмите F5 клавишу для запуска этого кода, и все выбранные абзацы были объединены в один абзац, как показано на следующем снимке экрана:
Лучшие инструменты для офисной работы
Kutools for Word - Повысьте свой опыт работы со словом с помощью Over 100 Замечательные особенности!
🤖 Kutools AI Помощник: Преобразуйте свое письмо с помощью искусственного интеллекта. Создать контент / Переписать текст / Обобщение документов / Запросить информацию на основе документа, все в Word
📘 Владение документами: Разделить страницы / Объединить документы / Экспортировать выбранное в различные форматы (PDF/TXT/DOC/HTML...) / Пакетное преобразование в PDF / Экспортировать страницы как изображения / Печать нескольких файлов одновременно...
✏ Редактирование содержания: Пакетный поиск и замена через несколько файлов / Изменить размер всех изображений / Транспонировать строки и столбцы таблицы / Преобразовать таблицу в текст...
🧹 Легкая очистка: Убрать Дополнительные места / Разрывы разделов / Все заголовки / Текстовые поля / Гиперссылки / Чтобы получить дополнительные инструменты для удаления, посетите наш Удалить группу...
➕ Креативные вставки: Вставлять Разделители тысяч / Флажки / радио кнопки / QR код / Штрих-код / Таблица диагональных линий / Заголовок уравнения / Заголовок изображения / Заголовок таблицы / Несколько изображений / Узнайте больше в Вставить группу...
???? Точный выбор: Точно определить конкретные страницы / Эта таблица / формы / заголовки абзацев / Улучшите навигацию с помощью БОЛЕЕ Выберите функции...
⭐ Звездные улучшения: Быстро перемещайтесь в любое место / автоматическая вставка повторяющегося текста / плавно переключаться между окнами документов / 11 инструментов преобразования...