Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как объединить или объединить несколько строк в один абзац в документе Word?

Если в документе Word есть сотни и тысячи абзацев, при печати этого документа потребуется много бумаги. Для сохранения документов вы можете объединить эти несколько строк в один абзац. Однако как вы могли бы быстро и легко объединить все эти строки в один абзац в документе Word?

Слияние или объединение нескольких строк в один абзац с помощью функции «Найти и заменить»

Слияние или объединение нескольких строк в один абзац с кодом VBA


Слияние или объединение нескольких строк в один абзац с помощью функции «Найти и заменить»

Найти и заменить функция в Word может помочь вам объединить несколько строк в один абзац, пожалуйста, сделайте следующее:

1, Выберите абзацы, которые вы хотите объединить в один абзац.

2, Затем нажмите Главная > Найди > Расширенный поиск пойти Найти и заменить диалогового окна в Найти и заменить диалогового окна под Найди вкладке, введите ^p в Найти то, что текстовое поле, а затем выберите Текущий выбор из файла Найти в выпадающий список, см. снимок экрана:

doc объединить несколько строк 1

3, Затем перейдите к Заменять вкладку и оставьте Заменить текстовое поле пустым, а затем нажмите Заменить все , см. снимок экрана:

doc объединить несколько строк 2

4, И все выбранные абзацы были объединены в один абзац, см. Снимок экрана:

doc объединить несколько строк 3


Слияние или объединение нескольких строк в один абзац с кодом 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 для запуска этого кода, и все выбранные абзацы были объединены в один абзац, как показано на следующем скриншоте:

doc объединить несколько строк 4



Рекомендуемые инструменты для повышения производительности Word

Kutools For Word - больше, чем расширенные возможности 100 для Microsoft Word, сэкономьте время 50%

  • Сложные и повторяющиеся операции могут быть выполнены одноразовой обработкой за считанные секунды.
  • Вставьте несколько изображений из папок в документ Word одновременно.
  • Объединяйте и объединяйте несколько файлов Word в разных папках в нужном вам порядке.
  • Разделите текущий документ на отдельные документы в соответствии с заголовком 1, разрывом раздела или другими критериями.
  • Конвертировать файлы между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора, и так далее...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.