一、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、关闭代码窗口,此时我们回到文档中
此时我们选中表格
然后点击自定义功能栏的宏按钮
然后我们发现表格已经按行合并了
