Як об’єднати або об’єднати кілька рядків в один абзац у документі Word?
Якщо у вашому документі Word є сотні і тисячі абзаців, під час друку цього документа йому знадобиться багато паперу. Для збереження паперів ви можете об’єднати ці кілька рядків в один абзац. Однак як можна швидко та легко об’єднати всі ці рядки в один абзац у документі Word?
Об’єднайте або об’єднайте кілька рядків в один абзац за допомогою функції Знайти та Замінити
Об’єднайте або об’єднайте кілька рядків в один абзац із кодом VBA
Об’єднайте або об’єднайте кілька рядків в один абзац за допомогою функції Знайти та Замінити
повне г, повне г,, показали, від, номер, XNUMX Знайти і замінити функція в 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 - Більше 100 вдосконалених функцій для Word, економите свій 50% часу
- Складні та повторювані операції можна виконати одноразово за кілька секунд.
- Вставте кілька зображень між папками в документ Word одночасно.
- Об’єднайте та об’єднайте декілька файлів Word у папках в одне із потрібним замовленням.
- Поділіть поточний документ на окремі документи відповідно до заголовка, розділу розділу чи інших критеріїв.
- Перетворюйте файли між Doc та Docx, Docx та PDF, колекцією інструментів для загальних перетворень та виділення тощо ...
