【word将段落合成一段】word文档合并合作内容无缝拼接

合作甲写一篇文章，甲写的也有，乙写的也有，各自穿章，如何将两个人的内容整合到同一个文件中？

看看甲分别写在哪里。甲负责编写大纲1的内容，乙负责编写大纲3的部分，两者都不是顺序，所以简单的复制粘贴很麻烦。

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

从原始文档和修订后的文档中选择两个文档内容(任意顺序)。在本例中，甲写的部分是Doc1.docx，乙写的部分是Doc2.docx。单击确定。

在弹出式提示框中，选择要保留的格式方案，并根据需要进行选择。

合并后，撰写甲的部分全部并入该位置(如果文章大纲的形式一致)，但处于修订状态。

此时，在“审阅”选项卡上单击“接受”，然后选择“接受所有更改并停止修订”，文档内容将无缝合并到一个文档中。

这只是合并，如果要在这个基础上如何实现句子段落的自动编号，总不能手动输吧？事实上，我意识到，只要使用这个小单程VBA宏，就可以对文章进行自动编号。切换到“开发工具”(注：否则，请选择“文件”-“选项”-“自定义功能区”，在右侧列中选择开发工具)选项卡，单击“宏”，输入名称，然后单击“生成

将以下代码复制到VBA编辑器中：如图所示，结束后退出就可以了。(您可以进入PC登录微信、订阅号查找我们，单击“查看历史消息”，复制正文中的代码，或在公众号界面输入“合并”，直接获取下载地址。）

子手动编号更改自动编号

Dim myRange As Range

If Selec=wdSelectionIP Then Selec

Set myRange=Selec

withlistgalleries(wdnumbergallery)。listtemplates (1)。listlevels (1)

.NumberFormat='%1 . '

.trailing character=wdtrailingtab

.number style=wdlistnumberstylearabic

.number position=centimeter stopoin)

.Alignment=wdListLevelAlignLeft

.TextPosition=CentimetersToPoin)

.TabPosition=CentimetersToPoin)

.ResetOnHigher=0

.StartAt=1

.LinkedStyle=' '

End With

Listgalleries (wdnumbergallery)。listtemplates (1)。name=' '

selec . list format . applylist template list template :=list galleries(_

Wdnumbergallery)。listtemplates (1)、continuepreviouslist3360=false、applyto:=_

Wdlistapplytowholelist、defaultlistbehavior :=wd word 10 list behavior

MyRange。Select

Dim I As Paragraph

For Each I In Selec

I.Range.Characters(1)。Select

Do While Selec Like '# '

Selecunit :=wdcharacter，count :=1

循环(音乐)

If Selection Like '*[，]' then selec

MyRange。Select

next

单元欧共体

Ac=CentimetersToPoin)

With Selec

.LeftIndent=CentimetersToPoin)

.firstlineindent=centimeterstopoin)

End With

End Sub

使用时，只需在“开发工具”选项卡上单击“宏”，选择“手动编号自动更改编号”，然后单击“运行”。如果只需要对一个段落进行自动编号，则可以选择要编号的文档的内容，然后进行操作。