如何将几十页word文档的每页分成单独word文件保存

作者&投稿:东野农 (若有异议请与网页底部的电邮联系)
如何将几十页word文档的每页分成单独word文件保存~

我和你的问题一样,找这种文件处理软件,如果手动的弄,那就倒得弄,就是先备份一份,然后从最后一页开始剪切,粘贴到新文档,依此类推。

把后面的5页内容,选中
剪切,然后新建空白word文档,把刚才的内容粘贴到这个空白文件中,保存。这样就弄成2个文件了。

如何将几十页word文档的每页分成单独word文件保存的方法如下:
1、编程法:
有时候需要将一个word文档每一页另存为一个word文档,如果手工操作,量大会累死人的。今天我们用VBA来实现批量自动处理。在文档的ThisDocument的代码页中输入以下代码,然后执行Sub SaveParagraph() 即可:
Option Explicit

Sub SaveParagraph()

Dim i As Integer, PageNo As Integer
Dim aDoc As Document
Dim myDoc As Document
Dim sPage As String

Set myDoc = ThisDocument

'文档视图设定为页面方式
ActiveWindow.View.Type = wdPageView
myDoc.Repaginate

'获得文档页数并赋值给变量 PageNo
PageNo = myDoc.BuiltInDocumentProperties(wdPropertyPages)

For i = 1 To PageNo
myDoc.Activate
' 光标移动到文档某一页的开始
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=i
' 全选文档某一页的所有内容
Selection.EndKey Unit:=wdStory, Extend:=wdExtend
sPage = Selection.Text

'保存到一个文件中
Set aDoc = Documents.Add
aDoc.Content.Text = sPage
aDoc.SaveAs FileName:="c:\" & CInt(i) & ".doc"
aDoc.Close
Next

End Sub
2、工具法,现在网上有专门操作word的小工具,可以下载了直接用,也很方便。

Option Explicit
Sub SplitPagesAsDocuments()
Dim oSrcDoc As Document, oNewDoc As Document
Dim strSrcName As String, strNewName As String
Dim oRange As Range
Dim nIndex As Integer
Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")
Set oSrcDoc = ActiveDocument
Set oRange = oSrcDoc.Content
oRange.Collapse wdCollapseStart
oRange.Select
For nIndex = 1 To ActiveDocument.Content.Information(wdNumberOfPagesInDocument)
oSrcDoc.Bookmarks("\page").Range.Copy
oSrcDoc.Windows(1).Activate
Application.Browser.Target = wdBrowsePage
Application.Browser.Next

strSrcName = oSrcDoc.FullName
strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _
fso.GetBaseName(strSrcName) & "_" & nIndex & "." & fso.GetExtensionName(strSrcName))
Set oNewDoc = Documents.Add
Selection.Paste
oNewDoc.SaveAs strNewName
oNewDoc.Close False
Next
Set oNewDoc = Nothing
Set oRange = Nothing
Set oSrcDoc = Nothing
Set fso = Nothing
MsgBox "结束!"
End Sub

我和你的问题一样,找这种文件处理软件,如果手动的弄,那就倒得弄,就是先备份一份,然后从最后一页开始剪切,粘贴到新文档,依此类推。

把想要分出来的部分剪切下来,粘贴在一个新的文档上,保存起来不就行了

请问lz现在解决了吗?是怎么弄的?我也遇到这样的问题。上面说的复制粘贴行不通,复制过去格式全变了,用删除的方法又太麻烦了 ,我有一百多页啊!!!。。


word怎么把同一页做几十张word将一页弄成多页
单击视图--->显示比例。弹出显示比例对话框,单击多面按钮,在下拉选项中选择所需要显示的页数即可。输入你所想做的几十张就能做出了。进入wordword之后,首先找到背景图片,然后下方会有一个背景,点击进入。设置同一背景。

我有个100多页的WORD文档,想从中选几十页成一个文档,怎么做?
1、新建一个WORD文档 2、选中你要另做文档的那几页,点右键,选复制。3、打开第一步中新建的WORD文档,点右键,选粘贴。完成

word怎么把一页复制好几份word怎么把一页内容复制成几十页
1. 选中整个页面或所需部分(例如,使用Ctrl+A选择整个页面)。2. 按下Ctrl+C复制所选内容。3. 将光标移动到要粘贴的位置。4. 按下Ctrl+V粘贴内容。5. 重复步骤3和4,直到达到所需数量的副本。另一种方法是使用Word的“复制到”功能。这将在同一页上创建多个副本。1. 选中整个页面或所需部分。

我有个100多页的WORD文档,想从中选几十页成一个文档,怎么做?
1、新建一个WORD文档 2、选中你要另做文档的那几页,点右键,选复制。3、打开第一步中新建的WORD文档,点右键,选粘贴。完成

如何删去word多余的页面?
删除word多余的页面的方法如下:方法一:Backspace或Delete键删除。具体操作:如果Word文档空白页的原因是有段落标记或者换行标记,这时只要选中标记,按住【Backspace】键或【Delete】键删除它。方法二:Shift选中整页然后删除。具体操作:将鼠标的箭头放在空白页最后一个字符的后面,按住【Shift】键将文档拖...

word快速粘贴几十页
题主是否想询问“如何word快速粘贴几十页”?1、首先使用Ctrl加A全选所有内容,然后Ctrl加C复制,再Ctrl加V粘贴到另一个文档中,打开要复制多份内容的Word文件,选中要复制的内容,点击文件选项。2、其次在文件的更多选项中,点击选项按钮,然后在Word选项中,点击校对,找到并点击自动更正选项。3、最后...

WORD文档很大,占用了十几页.如何在这十几页中快速切换?
方法1、按着键盘上的ctrl键,滑动鼠标滑轮,前滑放大,后滑缩小,可以缩小到你认为能快速切换的时候为止。方法2、视图选项里更改显示比例 方法3、如果你觉得这样看不清楚内容,可以点word左下角的页码,直接定位。---

word2010 怎么批量插入几十页
一、word显示比例调到最小(比如10%),让word页面都以缩略图形式显示,鼠标移至缩图左上角,当指针变形为反向时,点选此页 二、拖动word垂直滑块向下至你要选中的截止页面(例如50页),shift+页面左上角单击,此时,就连续选中了50页(复制)三、重复方法一 二,选中被替换页,用你刚复制的页面,...

怎样在word里面设置多页
可以看到,屏幕上显示了十几页文档 缩放页面 同样地,按住Ctrl,滑动鼠标中键,可以发现,在没有导航窗格(文档大纲)的情况下,80%-110%均为双页显示,比较适合较大屏幕进行文档编辑。取消多页 如果word默认多页,而你的屏幕又较小的话,同样可以通过上述方法,对多页进行反选,即可恢复单页显示。

求助:本人需要将几十页的文字敲进word中,请问有没有什么比较方便省时的...
先扫描,越清楚越好。再用汉字识别软件把文字识别出来。去网上搜一个图片识别软件,一种提取图片中文字的工具和方法,这种文字识别技术称为OCR。好些版本,自己搜一个试试吧。一、汉王 感觉比紫光好,可以识别表格,新版汉王5800,还没有装。二、清华紫光 以前7.5用过很多次,基本还可以,文科类书籍...

泰来县18295963530: 如何把多页的word文档按页拆分,每页一个独立word文件 -
潭炉欣洫: 你没说你的Word文件是什么样的,如果word是由图形、图片、表格、文字等各种元素组成的,并且有复杂的格式设置(图表组合、页面设置等等),你若简单地各页复制另存,就会造成版面变化甚至内容丢失.要想保持各页面中内容和排版不...

泰来县18295963530: 200页的Word文档如何分割成1页一个的200个文档 -
潭炉欣洫: 比较笨的方法就是: 将第一页的第一行设成标题 然后,视图—大纲,切换到大纲视图,选中要拆分的文字(用鼠标移到该标题前的空心十字符号,此时鼠标指针变成十字箭头,单击鼠标即可选定该标题包括的内容) 单击大纲工具栏中的“创建子文档”按钮(倒数第六个),这时子文档会放在一个虚线框中,并且在虚线框的左上角显示一个子文档图标,子文档之间用分节符隔开. 如此重复操作,选取其它各个部分. 另存文件就可以. 专业人员的方法就是用VBA编辑器来操作,不过,这个太复杂了,本人也不懂.你在网上可以搜一下.

泰来县18295963530: 怎样把1个好多页的word的文档分成每页显示的 -
潭炉欣洫: 一、如果word是由图形、图片、表格、文字等各种元素组成的,并且有复杂的格式设置(图表组合、页面设置等等),你若简单地各页复制另存,就会造成版面变化甚至内容丢失.要想保持各页面中内容和排版不变,可以在每页的最后插入分节...

泰来县18295963530: 如何将多页的word分割 -
潭炉欣洫: 1、在Word里面打开那个需要分割的文档(假设它的文件名叫做“原始文档.doc”) 2、键入ALT+F11打开VBA编辑器,选择菜单“插.

泰来县18295963530: WORD文档500页,每10页分成一个单独的文档,怎么弄? -
潭炉欣洫: 没有批量处理的办法,如果一定要这样做,只能选定每10页(也就是想要分成一个单独文档的地方),然后剪切——新建——粘贴.即每10页剪开来,另外成一篇新文档,除此外没有别的好办法了.

泰来县18295963530: 如何将一个word文档按页分割成多个word文档 -
潭炉欣洫: 1、打开需要拆分的文档 2、将需要拆分的章节标题样式选中“标题1” 3、选择大纲视图——显示1级标题——点击显示文档 4、双击第一章前面的“+”号以显示第一章全部内容,点击创建,将第一章进行拆分 5、双击图中所示文本标志. 6、会自动弹出新word窗口...

泰来县18295963530: 如何将Word的每页平均分成四份?注意:是“平均”,就是Word如何可以自动均分四份. -
潭炉欣洫: 文件-打印-缩放,每版四页就自动排成四等份

泰来县18295963530: 怎么快速的把word里每页分成独立的一个个Word方便阅读.页数太多不方便一个个复制粘贴 -
潭炉欣洫: 单击“窗口”菜单,选择拆分窗口.或将视图方式转为大纲视图,用主控文档显示文章小标题,展开就可以查看

泰来县18295963530: 怎么将word多页分成多个文档 -
潭炉欣洫: 在Word里面打开那个需要分割的文档(假设它的文件名叫做“原始文档.doc”);键入ALT+F11打开VBA编辑器,选择菜单“插入-模块”;粘贴下面的代码:Option Explicit Sub SplitPagesAsDocuments() Dim oSrcDoc As Document, oNewDoc...

泰来县18295963530: WORD中怎么把一页平均分成上下两栏
潭炉欣洫: 1、首先打开word以后,点击插入下的形状按钮. 2、然后点击直线,在整个页面中画一条直线. 3、选中所画直线,点击鼠标右键,找到设置表格格式菜单,出现对话框. 4、在对话框中,点击属性内的填充与线条,线条选择虚线,颜色选择黑色. 5、此时页面就会出现黑色的虚线,但是位置不在整个页面的中间位置. 6、再点击上面工具栏中的对齐按钮,然后点击垂直居中,虚线就在整个页面的中间位置了,一页纸的一般就成功了. 7、选中这条虚线点击鼠标左键,在点击布局选项,上的固定在页面中. 8、添加文字,虚线还在原来的地方不会随着段落的移动而移动.

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 星空见康网