一、一个多页的WORD怎么拆分成多个单页WORD
一个多页的WORD拆分成多个单页WORD的具体步骤如下: 1、首先打开需要编辑的Word文档,进入到编辑页面中。
2、然后按下键盘上的“alt+F11”组合键,打开VBA编辑器。 3、然后在弹出来的窗口中点击打开插入中的“模块”。
4、然后在弹出来的窗口中点击输入: 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,回车确定。 5、然后就可以单独分成一个Word文档了。
二、怎么将word多页分成多个文档
在Word里面打开那个需要分割的文档(假设它的文件名叫做“原始文档.doc”);
键入ALT+F11打开VBA编辑器,选择菜单“插入-模块”;
粘贴下面的代码:
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
键入F5运行,看到“完成!”结束。
检查当前文档所在路径下是否生成若干名为“原始文档_n.doc”(n代表其对应原始文档中的第几页)的文档,检查它们的内容是否就对应于原始文档每个页面的内容。
如文档中有分节符分解后的文档会出现空白页,如要分解后不出现空白页,需要把文档中的分节符删除。
消除分节符的方法(如下图):
三、一个多页的WORD怎么拆分成多个单页WORD
一个多页的WORD拆分成多个单页WORD的具体步骤如下:
1、首先打开需要编辑的Word文档,进入到编辑页面中。
2、然后按下键盘上的“alt+F11”组合键,打开VBA编辑器。
3、然后在弹出来的窗口中点击打开插入中的“模块”。
4、然后在弹出来的窗口中点击输入:
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,回车确定。
5、然后就可以单独分成一个Word文档了。
四、怎么把一个word文档分成多个
一、首先,打开word2010程序,然后打开要拆分成多个小文档的Word文档。
二、然后,在Word程序主界面上方点击“大纲”,点击打开。
三、然后,在文档中依次选择需要拆分的文件标题,并且设置大纲级别为1级。
四、然后,选择需要拆分的标题前面的“+”,点击“显示文档”,选择“创建”。
五、然后,将其他的子文档同上操作。
六、然后,点击“执行文件”选择“保存命令”,即可保存子文档。
七、最后,可以看到word文档分成多个小的文档,问题解决。
五、怎样在word中把页面分成多页
1、几个页面在一个窗口中显示:窗口--并排比较、
2、有时,需要让Word文档一版多页显示。那么如何让Word文档一版多页显示呢?让Word文档 一版多页显示的方法很简单。本文就来介绍一下让Word文档一版多页显示的方法。
先按“预览打印”图标,或点击“文件”→“打印预览”,Word将处于“预览”模式;在工具栏上单击鼠标右键,选择“常用”。这时,Word的菜单栏下一排会出现“常用”工具栏。再在工具栏上右击鼠标,选择“自定义”,进入自定义设置状态;现在,将“打印预览”工具栏上的“多页”按钮拖到“常用”工具栏上。关闭“自定义”窗口,再关闭“预览”模式;以后,点击Word“常用”工具栏上的“多页”按钮,就可以选择一页显示多少个版面了。
3、分栏:格式--分栏即可,如果需要加分隔线,在分隔线前面钩上就可以啦!
呵呵,希望对你有点用处!
六、怎样将word文档中的一页或者几页分离出来单独作为一份文档
1、找到需要进行分离份Word文档双击打开该Word文档。
2、在进入该文档后,找到需要分离开的页面,将鼠标从该页面左上角下拉到页面的右下角,选中改业的全部内容。
3、选中这一页的群补内容后点击弹出选项框中的剪切选项将所选中的内容剪切到剪切板上。
4、点击文档上方的+号选项并在弹出的界面中选择新建空白文档选项,新建一个空白的文档。
5、在新建的文档中鼠标右击空白文档中的任意部分并选择弹出对话框的粘贴选项将刚刚剪切过的内容粘贴到该空白文档中,这样就能降这一部分内容作为一个独立的文档分割开来。
转载请注明出处51数据库 » word如何多页分开