Note: The other languages of the website are Google-translated. Back to English

如何将多行合并或合并到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种Word高级功能,节省50%的时间

  • 复杂和重复的操作可以在几秒钟内完成一次处理。
  • 跨文件夹一次将多个图像插入Word文档。
  • 将文件夹中的多个Word文件合并并合并为所需顺序。
  • 根据标题,分节符或其他条件将当前文档拆分为单独的文档。
  • 在Doc和Docx之间,Docx和PDF之间转换文件,用于常见转换和选择的工具集合等...
按评论排序
注释 (7)
还没有评分。 成为第一位评论!
该评论由网站上的主持人最小化
非常感谢
这有助于我节省手动执行此操作的时间,60 页后 2 页我累了,开始寻找其他快捷方式
谢谢
该评论由网站上的主持人最小化
有没有办法在 google docs 上制作这个词,我做了这些步骤,但这仅适用于 microsoft word 的桌面和在线版本
该评论由网站上的主持人最小化
谢谢! 这节省了我几个小时,我不必将 70 多页的几个断句单独折叠成段落。 这是天才。
该评论由网站上的主持人最小化
我测试过的第一步已经足够出色了。 这是我听说过的最好的把戏。 谢谢!
该评论由网站上的主持人最小化
谢了哥们
该评论由网站上的主持人最小化
excelente, me salvaste la vida。
该评论由网站上的主持人最小化
American Motors Concord 1978-1979 2.0LTS,American Motors Gremlin 1977-1978,American Motors Spirit 1979 2.0LTS 4L
Audi 100 1970-1971, Audi 100 1972-1977 1.9LTS 4L
Audi 100 1989-1991 2.3LTS 5L
Audi 100 1992-1994 2.8LTS 6V
奥迪 200 1989 2.2LTS 5L
奥迪 200 1990-1991 2.2LTS TURBO 5L
奥迪4000 1980
奥迪 4000 1980-1987
奥迪 4000 1981-1983
奥迪 4000 1984-1987
奥迪 5000 1978-1988
奥迪 5000 1987-1988
奥迪 80 1988-1990
奥迪 80 1988-1989
奥迪 80 1991-1992
奥迪 90 1988-1992
Audi 90 1988-1992 2.3LTS 5L
Audi 90 1993-1995 2.8LTS 6V
Audi A3 1997-2005 1.8LTS TURBO 4L
Audi A3 2008-2009 1.8LTS TURBO 4L
奥迪 A3 1997 2.0LTS DIESEL TURBO 5L
奥迪 A3 2004 2.0LTS 4L
Audi A3 2005-2006 2.0LTS MEX 4L
Audi A4 1995-1997 1.8LTS TURBO 4L
奥迪 A6 1995 2.8LTS 6V
奥迪 A6 1995 2.8LTS 电机:AFC 6V
奥迪敞篷车 1994-1995 2.8LTS 6V
奥迪 Coupe 1981-1987 2.2LTS 5L
奥迪 Coupe 1987-1991 2.3LTS 5L
奥迪福克斯 1973-1974 1.5LTS 4L
奥迪福克斯 1975-1979 1.6LTS 4L
奥迪 Quattro 1983-1986 2.2LTS 5L
Audi Rs6 2003-2004 4.2LTS 8V
Audi S3 2000-2004 1.8LTS 4L
Audi S4 1992-1994 2.2LTS TURBO 5L
奥迪 S6 1995 2.2LTS TURBO 5L
Audi S6 1996-1997 2.2LTS 5L
奥迪 Tt 2000-2006 1.8LTS TURBO 4L
Bmw 325 1986-1988 2.7LTS 6L
Bmw 325E 1984-1987 2.7LTS 6L
Bmw 325Es 1986-1987 2.7LTS 6L
Bmw 325I 1987-1992 2.5LTS 6L
Bmw 325Is 1987-1991 2.5LTS 6L
Bmw 325Ix 1988-1991 2.5LTS 6L
Bmw 525I 1989-1990 2.5LTS 6L
Bmw 528E 1982-1988 2.7LTS 6L
莲花 Elan 1968-1975 1.6LTS 4L
庞蒂亚克 Sunrunner 1995-1997 1.6LTS 4L
Porsche 924 1977-1982 2.0LTS 4L
西雅特 Alhambra 1996-2000 2.0LTS 4L
西雅特 Alhambra 2002-2003 1.8LTS MEX 4L
西雅特 Alhambra 2004-2007 1.8LTS TURBO 4L
西雅特 Alhambra 2004-2005 2.8LTS 6V
西雅特 Altea 2004-2015 1.6LTS 4L
座椅 Cordoba 2001-2002 1.6LTS MEX 4L
座椅 Cordoba 2003-2004 2.0LTS MEX 4L
座椅 Cordoba 2005-2009 1.6LTS 4L
座椅 Cordoba 2005-2009 2.0LTS 4L
Seat Ibiza 2001-2002 1.6LTS MEX 4L
西亚特伊维萨 2003-2012 2.0LTS 4L
西亚特伊维萨 2004-2012 1.6LTS 4L
Seat Ibiza 2006 1.8LTS 4L
Seat Ibiza 2007 1.8LTS TURBO 4L
Seat Ibiza 2008 1.8LTS TURBO MEX 4L
西雅特 2001-2004 1.8LTS MEX 4L
西雅特 Leon 2001-2004 1.8LTS TURBO MEX 4L
西雅特 2005-2006 1.8LTS 4L
西雅特 2006 2.0LTS 4L
西雅特托莱多 2001-2003 1.8LTS MEX 4L
座椅 Toledo 2001-2003 1.8LTS TURBO MEX 4L
西雅特托莱多 2004-2005 1.8LTS 4L
西雅特 Toledo 2006 2.0LTS 4L
丰田海狮 1977-1979 2.0LTS 4L
丰田海拉克斯 1975-1989 2.0LTS 4L
丰田海拉克斯 1990-1993 1.8LTS 4L
大众大西洋 1981-1982 1.6LTS 4L
大众大西洋 1982-1987 1.8LTS 4L
大众甲壳虫 1998-2011 2.0LTS 4L
大众甲壳虫 1999-2005 1.8LTS TURBO 4L
大众敞篷车 1995-2002 2.0LTS 4L
大众敞篷车 1985-1993 1.8LTS 4L
大众开迪 1982 1.5LTS 4L
大众开迪 1993-1994 1.8LTS 4L
大众加勒比 1982-1987 1.8LTS 4L
大众 Combi 1990-2001 1.8LTS 4L
大众 Combi 1997 2.8LTS 6 Cil
大众 Corrado 1990-1992 1.8LTS SUPERCARGADO 4L
大众Corsar 1984-1988 1.8LTS 4L
大众 Dasher 1974-1975 1.5LTS 4L
大众 Dasher 1976-1980 1.6LTS 4L
大众德比 1994-2009 1.8LTS 4L
大众德比 2001-2004 2.0LTS MEX 4L
大众福克斯 1987-1993 1.8LTS 4L
大众高尔夫 1985-2006 1.8LTS 4L
大众高尔夫 1990-2010 2.0LTS 4L
大众捷达 1980 1.6LTS 4L
大众捷达 1981-1984 1.7LTS 4L
大众捷达 1984-1999 1.8LTS 4L
大众捷达 1990-2005 2.0LTS 4L
大众捷达 2012-2013 2.0LTS 4L
大众捷达 2001-2005 1.8LTS TURBO 4L
大众捷达 2009-2012 1.8LTS TURBO 4L
大众捷达 2006-2008 2.0LTS MEX 4L
大众捷达 2011-2014 2.0LTS 发动机:CBPA 4L
大众捷达 Clasico 2011-2015 2.0LTS 4L
大众帕萨特 1990-1997 2.0LTS 4L
大众帕萨特 1993 1.8LTS 4L
大众帕萨特 2001 2.8LTS 电机:ATQ 6V
大众指针 1998-2009 1.8LTS 4L
大众指针皮卡 1999-2009 1.8LTS 4L
大众波罗 2003-2007 2.0LTS 4L
大众量子 1982-1983 1.7LTS 4L
大众量子 1983-1988 2.2LTS 5L
大众量子 1984-1985 1.8LTS 4L
大众小兔 1975-1980 1.5LTS 4L
大众小兔 1976-1980 1.6LTS 4L
大众小兔 1981-1984 1.7LTS 4L
大众小兔 1983-1984 1.8LTS 4L
大众兔子敞篷车 1980 1.6LTS 4L
大众小兔敞篷车 1981-1983 1.7LTS 4L
大众兔子敞篷车 1984 1.8LTS 4L
大众小兔皮卡 1980 1.5LTS 4L
大众小兔皮卡 1980 1.6LTS 4L
大众小兔皮卡 1981-1983 1.7LTS 4L
大众尚酷 1975-1978 1.5LTS 4L
大众尚酷 1976-1980 1.6LTS 4L
大众尚酷 1981-1983 1.7LTS 4L
大众尚酷 1984-1989 1.8LTS 4L
大众轿车 1978-1979 1.6LTS 4H
大众轿车 1993-2003 1.6LTS 4L
大众夏朗 2002-2008 1.8LTS TURBO 4L
大众超级甲壳虫 1978-1980 1.6LTS 4H
大众运输车 1985 1.9LTS 柴油 4L
大众运输车 1986-1991 2.1LTS 4H
大众运输车 1990-1992 1.8LTS 4L
大众运输车 1990-1993 2.0LTS 4L
大众面包车 2003-2008
大众 Vanagon 1983-1985
大众 Vanagon 1986-1989
大众 Vanagon 1990-1991
这里还没有评论
留下你的意见
以访客身份发帖
×
评价此帖子:
0   产品特性
建议地点

关注我们

版权所有 © 2009 - extendoffice.com。 | 版权所有。 供电 ExtendOffice。 | 网站地图
Microsoft和Office徽标是Microsoft Corporation在美国和/或其他国家的商标或注册商标。
受Sectigo SSL保护