怎么合并excel word文档
发布网友
发布时间：2022-04-24 08:17
共3个回答
热心网友
时间：2022-05-12 17:10
2、选择查看代码（PS：excel有着一项，WPS没有）
3、将下列代码复制到文本框中：
Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"
End Sub
4、点击运行、一段时间（取决于表格的大小和多少）后，合并完成了。
热心网友
时间：2022-05-12 18:28
以WPS 2019版本为例：
您可千万WPS2019中使用目前已支持的「文档拆分合并」功能来完成合并喔：
操作步骤：
1）打开其中一份「文字（Word」文档；
2）点击「特色应用-拆分合并-合并」；
3）点击添加需合并文件，设置合并文件需合并的页数范围即可将多个文档合并为一份。
（提示：此功能需开通会员才可使用）
热心网友
时间：2022-05-12 20:03
如果想把表格中数据合并到Word文档中对应的位置，可以用“邮件合并”。
在Office2003中，邮件合并操作如下：
以打印奖状为例说明其操作。
一、在Excel中制作数据表
A列 B列 C列
姓名 类别 等级
张三 蓝球 第一名
……
将数据表命名并保存、关闭，留待取用。
二、在Word中制作奖状页面及格式设置
启动Word程序，在页面中输入奖状正文内容，要插入的内容（如姓名、类别、等级）不输入。
设置好奖状页面、字体格式，特别是奖状正文书写位置，把边距设置恰当。
命名保存，避免意外。
三、进行“邮件合并”把Excel中的数据合并到Word文档中
邮件合并操作步骤：
在奖状文档页面进行下述操作即可。
执行“工具/信函与邮件/邮件合并”命令，打开“邮件合并”对话框（在窗口右侧）。
1.选中“信函”单击“下一步”；
2.选中“使用当前文档”单击“下一步”；
3.选中“使用现有列表”单击“浏览”，找到数据表后单击“打开”，单击“下一步”；
4.将光标定位于要插入姓名的位置，单击“其他项目”，单击选定“插入合并域”中的姓名，单击“插入/关闭”；
5.重复第5步，完成所有合并域的插入（如类别、等级）后，单击“下一步”；
6.单击“预览信函”中的按钮即可浏览合并效果（单击邮件合并窗口中的两个双箭头按钮进行浏览），再单击“下一步：完成合并”就可以进行打印；
7.打印可以全部打印也可以指定打印，根据实际情况在“合并到打印机”进行设置。
特别提示：
如果设计的是胸卡、工资条之类的小页面，邮件合并完成后，执行“编辑/查找”命令，在“查找”栏输入^p，“替换”中输入^l，单击“全部替换”按钮，删除分页符。这样就可以在一张纸上顺序打印出指定量的“胸卡、工资条等”文档了。
