Як об’єднати або об’єднати кілька рядків в один абзац у документі Word?
Якщо у вашому документі Word є сотні і тисячі абзаців, під час друку цього документа йому знадобиться багато паперу. Для збереження паперів ви можете об’єднати ці кілька рядків в один абзац. Однак як можна швидко та легко об’єднати всі ці рядки в один абзац у документі Word?
Об’єднайте або об’єднайте кілька рядків в один абзац за допомогою функції Знайти та Замінити
Об’єднайте або об’єднайте кілька рядків в один абзац із кодом VBA
Об’єднайте або об’єднайте кілька рядків в один абзац за допомогою функції Знайти та Замінити
Команда Знайти і замінити функція в Word може допомогти вам об'єднати кілька рядків в один абзац, зробіть так:
1. Виберіть абзаци, які потрібно об’єднати в один абзац.
2. А потім натисніть Головна > знайти > Розширений пошук піти Знайти і замінити у діалоговому вікні Знайти і замінити у діалоговому вікні під знайти , будь ласка, введіть ^p в Знайти те, що текстове поле, а потім виберіть Поточний вибір опція від Знайти в випадаючий список, див. знімок екрана:
3. Тоді йди до заміщати та залиште Замінити текстове поле порожнє, а потім клацніть замінити всі , див. знімок екрана:
4. І всі вибрані абзаци були об’єднані в один абзац, див. Знімок екрана:
Об’єднайте або об’єднайте кілька рядків в один абзац із кодом VBA
Ось ще один корисний метод, який також може допомогти вам закінчити цю роботу в Word, виконайте такі дії:
1. Виберіть рядки, які потрібно об’єднати в один абзац.
2. Потім утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
3. А потім натисніть Insert > Модулі, скопіюйте та вставте код нижче у відкритий порожній модуль.
Код 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 для Word - Підніміть свій досвід Word із Over 100 Чудові особливості!
🤖 Kutools AI Assistant: змініть свій текст за допомогою ШІ - Створення вмісту / Переписати текст / Узагальнити документи / Звертайтеся за інформацією на основі Документа, все в Word
📘 Майстерність документів: Розділити сторінки / Об’єднати документи / Експортувати вибране в різні формати (PDF/TXT/DOC/HTML...) / Пакетне перетворення в PDF / Експортувати сторінки як зображення / Друк кількох файлів одночасно...
✏ Редагування змісту: Пакетний пошук та заміна між кількома файлами / Змінити розмір усіх зображень / Транспонування рядків і стовпців таблиці / Перетворити таблицю в текст...
🧹 Очищення без зусиль: Змітати Зайві простори / Розбиття розділів / Усі заголовки / Текстові поля / Гіперпосилання / Щоб отримати більше інструментів для видалення, відвідайте наш сайт Вилучити групу...
➕ Творчі вставки: Вставити Роздільники тисяч / Прапорці / радіо кнопки / QR-код / Штрих-код / Таблиця діагональних ліній / Заголовок рівняння / Підпис зображення / Заголовок таблиці / Кілька зображень / Дізнайтеся більше в Вставити групу...
???? Точність вибору: Точне визначення конкретні сторінки / Таблиці / форми / заголовок абзаців / Покращте навігацію за допомогою більше Виберіть функції...
⭐ Покращення зірок: Швидка навігація до будь-якого місця / автоматичне вставлення повторюваного тексту / плавно перемикатися між вікнами документів / 11 Інструменти перетворення...