word如何自动分割成多个文档

Sub 每N页分割为一个新文档__保存到同目录下() '特别鸣谢"雨雪霏霏、守柔版主。 Dim MyPath As String, PageCount As Integer Dim StartRange As Long, EndRange As Long, MyRange As Range Dim Fn As String, MyDoc As Document, i As Integer On Error Resume Next Application.ScreenUpdating = False MyPath = ActiveDocument.Path '取得文档路径 PageCount = Selection.Information(wdNumberOfPagesInDocument) '取得文档总页数 N = InputBox("按每几页拆分?默认为3:", "请输入数值", 3) Selection.HomeKey unit:=wdStory '将光标移至文档起点 For i = 1 To PageCount / N + (PageCount Mod N) '设置循环次数,如3则表示每3页做一次循环 StartRange = Selection.Start '取得该页的第一个字符位置 Selection.EndKey unit:=wdLine '将光标移动到该页首行的最后位置 Fn = i & ActiveDocument.Name '-1的目的是防止该页首行含有段落标记,导致出错. If i * N >= PageCount Then '如果循环到达最后一页 EndRange = ActiveDocument.Content.End '将文档最后位置赋值于EndRange Else For J = 1 To N Selection.GoToNext (wdGoToPage) Next J EndRange = Selection.Start End If Set MyRange = ActiveDocument.Range(StartRange, EndRange) '将N页中的内容进行复制 MyRange.Copy Set MyDoc = Documents.Add '新建一空白文档 With MyDoc .Content.Paste '在新文档中粘贴 .Content.Paragraphs.Last.Range.Delete '删除新文档末尾多出来的一个段落标记 .SaveAs FileName:=MyPath & "/" & Fn '保存新文档到原文档所在目录。如果删除"MyPath & "/" & ",。则保存到"我的文档"中。 .Close '关闭新文档 End With Next Application.ScreenUpdating = True End Sub

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

发表于

我来说两句

0 条评论
登录 后参与评论

相关文章

来自专栏恰同学骚年

Hadoop学习笔记—7.计数器与自定义计数器

  在上图所示中,计数器有19个,分为四个组:File Output Format Counters、FileSystemCounters、File Input...

1022
来自专栏coolblog.xyz技术专栏

MyBatis 源码分析 - SQL 的执行过程

本篇文章较为详细的介绍了 MyBatis 执行 SQL 的过程。该过程本身比较复杂,牵涉到的技术点比较多。包括但不限于 Mapper 接口代理类的生成、接口方法...

4182
来自专栏菩提树下的杨过

rpc框架之 thrift 学习 2 - 基本概念

thrift的基本构架: ? 上图源自:http://jnb.ociweb.com/jnb/jnbJun2009.html 底层Underlying I/O以上...

2427
来自专栏JAVA技术站

JFinal 参数校验插件扩展,让后台参数校验像js一样方式好用

email=^\\w+([-+.]\\w+)*@\\w+([-.]\\w+)*\\.\\w+([-.]\\w+)*$,"邮箱格式不正确" chinese=^[...

2662
来自专栏后端之路

Excel导入改善

最近由于上线的需要,对于excel导入导出的效率提出了要求。 那么一方面我们对于db落库的业务尽量走批量, 其次对于导入数据的校验以及对应成实体也做出了改善。...

5557
来自专栏Golang语言社区

go语言的sql包原理与用法分析

本文实例讲述了go语言的sql包原理与用法。分享给大家供大家参考,具体如下: go的sql包是在pkg/database中,里面的两个包sql和sql/driv...

4436
来自专栏JavaEdge

Netty源码阅读入门实战(八)-解码(更新 ing)

就像很多标准的架构模式都被各种专用框架所支持一样,常见的数据处理模式往往也是目标实现的很好的候选对象,它可以节省开发人员大量的时间和精力。 当然这也适应于本文...

1134
来自专栏mini188

java中的锁

java中有哪些锁 这个问题在我看了一遍<java并发编程>后尽然无法回答,说明自己对于锁的概念了解的不够。于是再次翻看了一下书里的内容,突然有点打开脑门的感觉...

3289
来自专栏耕耘实录

Linux三大剑客之awk

版权声明:本文为耕耘实录原创文章,各大自媒体平台同步更新。欢迎转载,转载请注明出处,谢谢

1454
来自专栏ImportSource

Junit 5新特性全集

本文略长,但都是大白话,如果你能一口气看完,你赢了。 如果你来不及看这么长,那么建议你滑到文末,直接看黑体部分就知道大概了。 在5中的一个测试类的基本生命周期是...

47012

扫码关注云+社区