Word如何把两个人的内容合并到同一个文档里呢?
甲乙合作写一篇文章,有甲写的也有乙写的部分,而且各自穿插章节,如何能够把两个人的内容合并到同一个文档里呢?下面就为大家详细介绍一下,来看看吧!

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


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


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


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

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

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


这仅仅是合并,如果需要在此基础上,将文章段落自动编号如何实现,总不能手动输吧?其实这个小编也想到了,利用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
使用的时候,还是点击开发工具选项卡中的"宏"选中"手动编号变自动编号",点击运行即可。如果只是某一个段落需要自动编号,可以圈选要编号的文档内容再进行操作就可以了。

栏 目:office激活
本文地址:https://www.fushidao.cc/wangzhanyunying/17275.html
您可能感兴趣的文章
- 05-12怎么激活office016,office2016激活密钥
- 05-12怎么查询office激活时间,office激活时间怎么查
- 05-12怎么激活电脑自带office,电脑自带office如何激活
- 05-12office许可掉了怎么激活,office密钥激活失败怎么办
- 05-12正版office怎么算激活,office正版激活方法
- 05-12平板office怎么免费激活,office免费激活方法
- 05-12怎么去重新激活office,office激活失败怎么办
- 05-12kms怎么取消激活office,office激活失败怎么办
- 05-12新电脑怎么office激活?office激活失败怎么办
- 05-12office2020怎么激活?office2020激活失败怎么办
阅读排行
- 1怎么激活office016,office2016激活密钥
- 2怎么查询office激活时间,office激活时间怎么查
- 3怎么激活电脑自带office,电脑自带office如何激活
- 4office许可掉了怎么激活,office密钥激活失败怎么办
- 5正版office怎么算激活,office正版激活方法
- 6平板office怎么免费激活,office免费激活方法
- 7怎么去重新激活office,office激活失败怎么办
- 8kms怎么取消激活office,office激活失败怎么办
- 9新电脑怎么office激活?office激活失败怎么办
- 10office2020怎么激活?office2020激活失败怎么办
推荐教程
- 07-012025最新office2010永久激活码免费分享,附office 2010激活工具
- 07-092025年最新office365激活码 office365永久激活密钥key分享
- 07-01怎么免费获取2025最新office2016专业增强版永久激活密钥/序列号
- 11-30正版office2021永久激活密钥
- 07-30Office2019 产品激活密钥(100%永久激活)
- 11-25怎么激活office2019最新版?office 2019激活秘钥+激活工具推荐
- 07-052025最新Office2019激活密钥,Office2019产品密钥分享
- 11-22office怎么免费永久激活 office产品密钥永久激活码
- 06-25office2021年最新永久有效正版激活密钥免费分享
- 11-25office2010 产品密钥 永久密钥最新分享
