word合并文档无缝拼接教程 word两个文档怎么合并在一起 _word

甲乙合作写一篇文章，有甲写的也有乙写的部分，而且各自穿插章节，如何能够把两个人的内容合并到同一个文档里呢？

来看看甲乙各自写在哪里了？甲负责撰写大纲 1 的内容，乙负责写大纲 3 的部分，二者不是顺序排列，简单的复制粘贴非常麻烦。

这时，新建一个 Word 文档，切换选项卡到审阅，最右侧选择“比较”中的“合并”

分别在原文档和修订的文档中，选中两个文档内容（无所谓顺序），例子中甲写的部分为 Doc1.docx，乙写的部分为 Doc2.docx，点击确定。

弹出提示框中，选择任意一个要保留的格式方案，根据自己需求选择。

合并后，甲乙写作的部分都已经合并到相应位置（注意，前提是文章大纲的格式一致），不过处于修订状态。

此时，点击审阅选项卡中的“接受”，选择“接受所有更改并停止修订”，文档内容就可以无缝合并到一个文档里面了。

这仅仅是合并，如果需要在此基础上，将文章段落自动编号如何实现，总不能手动输吧？其实这个小编也想到了，利用 VBA 宏可以帮助你实现文章自动编号。切换到“开发工具”（注：如没有，请打开文件—选项—自定义功能区，勾选右侧栏中的“开发工具”）选项卡，点击“宏”，输入名称并点击创建，例如“手动编号变自动编号” 。

复制以下代码到 VBA 编辑器，如图所示，完毕后退出即可（PC 登录微信，进入订阅号找到我们，点击查看历史消息并复制本文内代码，或在公众号界面输入“合并”直接获取下载地址）。

Sub 手动编号变自动编号()
Dim myRange As Range
If Selection.Type = wdSelectionIP Then Selection.WholeStory
Set myRange = Selection.Range
With ListGalleries(wdNumberGallery).ListTemplates(1).ListLevels(1)
.NumberFormat = “%1.”
.TrailingCharacter = wdTrailingTab
.NumberStyle = wdListNumberStyleArabic
.NumberPosition = CentimetersToPoints(1.98)
【word合并文档无缝拼接教程 word两个文档怎么合并在一起】 .Alignment = wdListLevelAlignLeft
.TextPosition = CentimetersToPoints(2.72)
.TabPosition = CentimetersToPoints(2.72)
.ResetOnHigher = 0
.StartAt = 1
.LinkedStyle = “”
End With
ListGalleries(wdNumberGallery).ListTemplates(1).Name = “”
Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries( _
wdNumberGallery).ListTemplates(1), ContinuePreviousList:=False, ApplyTo:= _