首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往
您找到你想要的搜索结果了吗?
是的
没有找到

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

03

JS字符串对象

在 JavaScript 中,对象是非常重要的知识点。对象可以分为两种:一种是“自定义对象”外一种是“内置对象”。自定义对象,指的是需要我们自己定义的对象,和“自定义函数”是一些道理;内置对象,指的是不需要我们自己定义的(即系统已经定义好的)、可以直接使用的对象“内置函数”也是一样的道理。 作为初学者,我们先学习内置对象,然后在学习 JavaScript 进阶的内容时,再学习自定义对象。在 JavaScript 中,常用的内置对象有4种。 字符串对象: String。 数组对象:Array。 日期对象:Date。数值对象:Math。 这4个对象都有非常多的属性和方法,对于不常用的,我会一笔带过,留出更多篇幅给大家讲解最实用的,这样可以大幅度地提高小伙伴们的学习效率。实际上,任何一门 Web 技术的知识点都非常多,但是我们并不需要把所有的知识点都记住,只需要记住常用的就可以了。因为大部分内容我们都可以它们列为“可翻问知识”(也就是不需要记忆,等需要用的时候再回来翻一翻就可以获取的那部分内容) 在这一章中,我们先来学习一下字符串对象的常用属性和方法。

02
领券