合并后，甲乙写作的部分都已经合并到相应位置(注意，前提是文章大纲的格式一致)，不过处于修订状态。
此时，点击审阅选项卡中的“接受”，选择“接受所有更改并停止修订”，文档内容就可以无缝合并到一个文档里面了。
这仅仅是合并，如果需要在此基础上，将文章段落自动编号如何实现，总不能手动输吧?其实这个小编也想到了，利用VBA宏可以帮助你实现文章自动编号。切换到“开发工具”(注：如没有，请打开文件—选项—自定义功能区，勾选右侧栏中的“开发工具”)选项卡，点击“宏”，输入名称并点击创建，例如“手动编号变自动编号”。
复制以下代码到VBA编辑器，如图所示，完毕后退出即可
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)
.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:= _
wdListApplyToWholeList, DefaultListBehavior:=wdWord10ListBehavior
myRange.Select
Dim i As Paragraph
For Each i In Selection.Paragraphs
i.Range.Characters(1).Select
Do While Selection.Characters.Last Like "#"
Selection.MoveEnd unit:=wdCharacter, Count:=1
Loop
If Selection Like "*[、..]" Then Selection.Delete
myRange.Select
Next
Selection.ParagraphFormat.TabStops.ClearAll
ActiveDocument.DefaultTabStop = CentimetersToPoints(0.19)
With Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(0.74)
.FirstLineIndent = CentimetersToPoints(-0.74)
End With
End Sub
使用的时候，还是点击开发工具选项卡中的“宏”选中“手动编号变自动编号”，点击运行即可。如果只是某一个段落需要自动编号，可以圈选要编号的文档内容再进行操作就可以了。
以上就是Word如何把两个人的内容合并到同一个文档方法介绍，操作很简单的，大家按照上面步骤进行操作即可，希望能对大家有所帮助!
- 看不过瘾？点击下面链接！ 【本站微信公众号：gsjx365，天天有好故事感动你！】
