打开APP
userphoto
未登录

开通VIP,畅享免费电子书等14项超值服

开通VIP
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)

.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

使用的时候,还是点击开发工具选项卡中的“宏”选中“手动编号变自动编号”,点击运行即可。如果只是某一个段落需要自动编号,可以圈选要编号的文档内容再进行操作就可以了。

点击下方“阅读原文”查看更多
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请点击举报
打开APP,阅读全文并永久保存 查看更多类似文章
猜你喜欢
类似文章
【热】打开小程序,算一算2024你的财运
VBA Word排版 | VBA实例教程
Word中公文标题设置(宏代码)
Find 对象 (Word)
(新精)WEB页面导出为Word文档后分页&横向打印的方法
Microsoft Word 对象
文档中图形及子图形的处理
更多类似文章 >>
生活服务
热点新闻
分享 收藏 导长图 关注 下载文章
绑定账号成功
后续可登录账号畅享VIP特权!
如果VIP功能使用有故障,
可点击这里联系客服!

联系客服