Как объединить или объединить несколько строк в один абзац в документе 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 клавишу для запуска этого кода, и все выбранные абзацы были объединены в один абзац, как показано на следующем снимке экрана:
Рекомендуемые инструменты для повышения производительности Word
Kutools For Word - Более 100 расширенных функций для Word, сэкономьте 50% времени
- Сложные и повторяющиеся операции можно производить разово за секунды.
- Вставляйте сразу несколько изображений из папок в документ Word.
- Объединяйте и объединяйте несколько файлов Word из папок в одну в желаемом порядке.
- Разделите текущий документ на отдельные документы в соответствии с заголовком, разрывом раздела или другими критериями.
- Преобразование файлов между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора и т. Д.
