Как да слея или комбинирам няколко реда в един параграф в документ на 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 за Word - Подобрете своя Word опит с Over 100 Забележителни функции!
🤖 Kutools AI Assistant: Преобразувайте писането си с AI - Генериране на съдържание / Пренаписване на текст / Обобщаване на документи / Запитване за информация въз основа на Документ, всичко това в Word
📘 Владеене на документи: Разделяне на страници / Обединяване на документи / Експортиране на селекция в различни формати (PDF/TXT/DOC/HTML...) / Пакетно конвертиране в PDF / Експортиране на страници като изображения / Отпечатайте няколко файла наведнъж...
✏ Редактиране на съдържанието: Пакетно намиране и замяна в множество файлове / Преоразмеряване на всички снимки / Транспониране на редовете и колоните на таблицата / Преобразуване на таблица в текст...
🧹 Почистване без усилие: Изметете Допълнителни пространства / Прекъсвания на раздели / Всички заглавки / Текстови полета / Хипервръзки / За повече инструменти за премахване се насочете към нашия Премахване на група...
➕ Творчески вложки: Вмъкване Хилядни разделители / Квадратчета / Радио бутони / QR Code / Баркод / Таблица с диагонални линии / Надпис на уравнение / Надпис на изображението / Надпис на таблица / Множество снимки / Открийте повече в Вмъкване на група...
🔍 Прецизни селекции: Точна точка конкретни страници / таблици / форми / заглавни параграфи / Подобрете навигацията с още Изберете функции...
⭐ Звездни подобрения: Навигирайте бързо до всяко място / автоматично вмъкване на повтарящ се текст / безпроблемно превключване между прозорците на документи / 11 Инструменти за конвертиране...