WPS文稿怎么合并?docx文件合并保留格式不乱

2022-05-10 15:35:49  阅读 151 次 评论 0 条

WPS的合并功能在哪?doc文件怎么合并?

wps有个非常好用的功能,文档拆分与合并,但是很多童鞋找不到这功能在哪,下面教大家如何来操作:

第一步:打开WPS,新建一个文档。

第二步:选择菜单栏的"会员专享",选择“批量工具箱”,"更多批量功能"

接下来就看到如下图,我们选择“文档拆分合并”就可以选择需要的文件进行合并了,并且可以进行排序哦,下面的操作就不多讲了。需要的小伙伴可以去多尝试尝试。如果失败了,就保留本文链接,接着看完。。。。

WPS的文档拆分合并对于格式不多的文件来说是非常方便的,但是对于格式比较多的docx文档来说就不那么友好了,接下来进入升级版教程,如何将docx文件合并并且保留格式格局不乱。

wps合并如何保留格式,docx文件合并vba代码

第一步,首先确认你的wps是否安装了vba插件,如果不懂,请参考文章:VBA下载,WPS表格中如何安装VBA?

第二步,选择“开发工具”---“查看代码”

988.png

第三步,复制代码以下代码到ThisDocument中,点击通用上方的绿色三角形运行即可,注:下方“C:\test\”为你需要合并的docx文件存放目录,doc为格式,如果是docx 文件则改为docx

Option Explicit
Sub mergeFiles()
    Dim filename As String
    Dim doc As Document
    Set doc = ThisDocument
   doc.Content.Delete
    ChDir ("C:\test\")
    filename = Dir("*.doc")
    Do While Len(filename)
        mergeDoc filename, doc
        filename = Dir
    Loop
End Sub
Sub mergeDoc(filename As String, doc As Document)
    Dim app As Application
    Dim newDoc As Document
    Dim sec As Section
    Set app = Application
    Set newDoc = app.Documents.Open(filename)
    Set sec = doc.Sections.Add
    newDoc.Content.Copy
    sec.PageSetup = newDoc.PageSetup
    sec.Range.PasteAndFormat wdFormatOriginalFormatting
    newDoc.Close
End Sub

666.png

注:运行代码前,请一定要保留文件备份!!!

注:运行代码前,请一定要保留文件备份!!!

注:运行代码前,请一定要保留文件备份!!!

重要的事说三遍!!!

WPS达师专注于免费分享WPS Office使用教程、PPT、word模板及办公常用软件等资源,欢迎大家收藏和分享本站。
WPS表格数据付费处理请加QQ:3247742

发表评论


表情

还没有留言,还不快点抢沙发?