提示:其它语言是由 Google 机器翻译的。 你可以访问 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 for Applications 窗口。

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 Word的高级功能,节省您的50%时间

  • 复杂和重复的操作可以在几秒钟内完成一次性处理。
  • 一次将多个图像跨文件夹插入Word文档。
  • 将多个文件夹合并并组合成一个具有所需订单的文件。
  • 根据标题,分节符或其他标准将当前文档拆分为单独的文档。
  • 在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.