word文档页面怎样变成多个
⑴ 怎么将word多页分成多个文档
WORD多个页面分成多个文档,可以直接新建多个空白文档,然后把每一页的内容复制粘贴过去另存为一个文档就可以实现了。
所需工具:WPS
2016版本演示
操作步骤:
第一步,打开一个多页的文档,然后使用快捷键Ctrl+N新建若干个空白文档,如图所示。
第二步,把需要分开的文档页面,全选一页内容进行复制---粘贴到新建的空白文档中去。
第三步,粘贴到空白文档,然后进行文件的命名保存,快捷键Ctrl+S。重复操作,直至全部页面的内容保存完毕即可。
⑵ word文档怎么设置多页显示
打开Word文档
⑶ 如何将一个word文档按页分割成多个word文档
运行后,会弹出一个窗口,在里面输入你想按多少页导出。如果你想每5页存一个文档,那么就写5,如果是按1页,就写1。
Sub 多页导出()
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
Dim q%, a%
On Error Resume Next
Application.ScreenUpdating = False
MyPath = ActiveDocument.Path
PageCount = Selection.Information(wdNumberOfPagesInDocument)
Selection.HomeKey unit:=wdStory
q = InputBox("一闪流溢让我问问你,你想分几页导出,如5页,填写5")
For i = 1 To PageCount / q + (PageCount Mod q)
StartRange = Selection.Start
Selection.EndKey unit:=wdLine
Fn = i & "." & ActiveDocument.Name
If i * q >= PageCount Then
EndRange = ActiveDocument.Content.End
Else
For a = 1 To q
Selection.GoToNext (wdGoToPage)
Next a
EndRange = Selection.Start
End If
Set MyRange = ActiveDocument.Range(StartRange, EndRange)
MyRange.Copy
Set MyDoc = Documents.Add
With MyDoc
.Content.Paste
.Content.Paragraphs.Last.Range.Delete
.Content.Paragraphs.Last.Range.Delete
.SaveAs FileName:=MyPath & "/" & Fn
.Close
End With
Next
Application.ScreenUpdating = True
End Sub
代码借鉴改编自excelhome的雨雪霏霏和守柔,雨雪霏霏。守柔
如果答案对你有帮助,记得留言点赞。
⑷ 如何将一个word文档按页分割成多个word文档
1、在Word里面打开那个需要分割的文档(假设它的文件名叫做“原始文档.doc”);
2、键入ALT+F11打开VBA编辑器,选择菜单“插入-模块”;
3、粘贴下面的代码:
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
4、键入F5运行,看到“完成!”结束。
5、检查当前文档所在路径下是否生成若干名为“原始文档_n.doc”(n代表其对应原始文档中的第几页)的文档,检查它们的内容是否就对应于原始文档每个页面的内容。
⑸ 如何将一个word文档按页分成多个文档
首先点击视图。
然后点击大纲视图。
接着点击显示文档。
然后选择显示级别,右边选择二级。
接下来创建一个子文档。
这样就把这个文档分成了多个小文档。
⑹ word里如何将一个页面分成两列
1、将WORD文档分成多个竖栏
设置分栏:选择文本——点击“格式”菜单——点击“分栏”出现分栏对话框(根据需要选择分栏设置,如需要竖线则选中分隔线复选框)——点击确定
2、要将某个段落分成若干栏,可先选择该段落,然后,再进行分栏的设置。
3、取消分栏:
光标放在已分栏的文本或段落中——点击“格式”菜单——点击“分栏”——在对话框中选择—栏样式——点击确定。