如何合併多个文档并保持单词格式？-英雄云拓展知识分享

您可使用来将多个文档合併为一个文档 来自文件功能的文字 在Word中使用，但是这样做会致使合併后丢失文档的格式。

1。 创建一个新的Word文档，您将放置合併的文档，然后单击 插入 > 对象 > 文件中的文字。 看截图：

2.请在打开的“插入文件”对话框中 （1） 打开包括要合併文档的文件夹； （2） 选择要合併的文档； 接着 （3） 插入 按钮。 看截图：

尖端：控股 按Ctrl 键，您可以经过单击一个文档来选择多个文档； 保持 转移 键，可以经过单击第一个和最后一个选择多个相邻的文档。

3。 如果需要合併的文档保存在不同的文件夹中，请针对需要在步骤1⑵上方重复。

备注：您不能在合併的文件中订购文档，否则将逐一插入。

快捷按指定顺序批量合併多个文件夹中的多个Word文档

发布了梦幻般的 合併 功能可帮助用户快捷合併多个文件夹中的多个Word文档。 此功能不但会在合併文件中保存原始文档的格式，还会按您指定的顺序合併文档。

或，您可使用VBA将多个文档合併到Word中。

1。 将所有将合併的Word文档移到同一文件夹中。

2。 用一系列序列名称重命名Word文档。 （1） 右键单击文档，然后选择 重命名 从上下文菜单中，然后键入一个新名称，例如 Part1; （2） 重复以重命名其他文档。 看截图：

3。 双击打开您将放置在合併文件开头的文档。

4。 按 Alt + F11键 键一起打开Microsoft Visual Basic for Application窗口。

5。 点击 插入 > 模块，然后将以下VBA代码粘贴到新的“模块”窗口中；

VBA：在Word中合併多个文档

Sub MergeDocuments()
Application.ScreenUpdating = False
MyPath = ActiveDocument.Path
MyName = Dir(MyPath & "\" & "*.docx")
i = 0
Do While MyName <> ""
If MyName <> ActiveDocument.Name Then
Set wb = Documents.Open(MyPath & "\" & MyName)
Selection.WholeStory
Selection.Copy
Windows(1).Activate
Selection.EndKey Unit:=wdLine
Selection.TypeParagraph
Selection.Paste
i = i + 1
wb.Close False
End If
MyName = Dir
Loop
Application.ScreenUpdating = True
End Sub

备注：此VBA只能合併文件扩大名为docx的Word文档。 如果您需要合併文档（.doc），请替换 DOCX 在代码中 MyName = Dir（MyPath＆“ \”＆“ * .docx”） 至 DOC.

6。点击 跑 按钮或按下 F5 利用VBA的关键。

注意： 您必须使用一系列序列名称重命名文档，否则文档可能会混乱或丢失在合併文件中。

安装后 ，则无需创建新的空白文档，也无需将文档放入同一文件夹中。 用 合併 借助实用工具，您可以快捷将多个文档合併为一个单词。 请履行以下操作：

1。 点击 实用工具 加 > 合併。 看截图：

2.在打开的“合併文档”对话框中，请添加要合併的文档： （1） 点击 添加文件 按钮; （2） 在阅读对话框中，打开包括您要合併的文档的文件夹； （3） 保持 按Ctrl or 转移 选择这些文件的关键； 接着 （4） OK 按钮。 看截图：

尖端:
（1）如果您需要合併保存在其他文件夹中的文档，请重复此步骤以逐一添加它们；
（2）您还可以经过以下方式批量添加保存在一个文件夹中的所有文档： 添加文件夹 按钮。

3。 现在，您将返回“合併文档”对话框。 （1） 订购这些文件的方式 提早 及 下移 纽扣; （2） 从 文件间中断 下拉列表; 接着 （3） 合併 按钮。 看截图：

现在，所有指定的Word文档都组合成一个新文档，以下图所示：

注意： 仅供参考，合併后的所有文档的原始格式都保存在合併结果中。