内容导航:


一、word文档怎么合并


合并文档具体操作如下:
首先将要合并的多个Word文档存放到同一个文件夹中,然后新建一个空白文档,在菜单中选择“插入→文件”,在弹出的“插入文件”窗口中选择上述文件夹,然后用鼠标拖动选择全部文件(或者使用“CtrlA”快捷键),最后单击“插入”按钮即可完成所有文档的合并。
1、首先我们把需要合并的文档放在一个文件夹里;
2、打开其中一个文档,最好是主要内容的那个word文档,把光标移动要插入内容的位置,比如最后一页;
3、依次点击菜单项【插入】-【对象】-【文件中的文字】;
4、选中同一个文件夹中的其它文件,可以多选;再点击【插入】;
5、其他word文档的内容会依次在光标后插入,这样几个文档就合并到一起了。


二、word怎么同时跨多列合并


可以利用word宏实现该功能。

我们以下图为例,具体操作步骤如下:

步骤1、我们首先要加载开发工具

点击文件-选项-自定义功能区-勾选开发工具-点击确定

此时,在word选项卡中会出现开发工具选项卡

步骤2、我们点击录制宏,宏名为:单元格按行合并,同时将宏指定到按钮,点一下按钮(箭头所指)

步骤3、我们将创建的这个宏添加到自定义功能区中,点击添加,点击确定

步骤4、然后自定义功能区中就会出现这个宏

当然如果你自定义工具栏在上面的话,也可能是在这里

步骤5、点击停止录制,再点击宏,选择刚才生成的宏,点击编辑

步骤6、在右侧的代码窗口中,粘贴下面的代码


Sub 单元格按行合并()


Dim mytable As Word.Table

Dim mycells As Word.Cells

Dim mycell() As Integer


Set mytable = Selection.Tables(1)

Set mycells = Selection.Cells

ReDim mycell(mycells.Count, 1)


For i = 1 To mycells.Count

mycell(i - 1, 0) = mycells.Item(i).RowIndex

mycell(i - 1, 1) = mycells.Item(i).ColumnIndex

Next i


Dim p: p = 0

For k = 1 To UBound(mycell)


If mycell(p, 0) <> mycell(k, 0) Then

mytable.Cell(mycell(p, 0), mycell(p, 1)).Merge mytable.Cell(mycell(k - 1, 0), mycell(k - 1, 1))

p = k

End If

Next k

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "^13"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindAsk

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchByte = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub


步骤7、粘贴后点击保存

步骤8、关闭代码窗口,此时我们回到文档中

此时我们选中表格

然后点击自定义功能栏的宏按钮

然后我们发现表格已经按行合并了