1. 怎么把word每一页拆分成为一个文档
1、在Word里面打开那个需要分割的文档（假设它的文件名叫做“原始文档.doc”）；
键入ALT+F11打开VBA编辑器，选择菜单“插入-模块”；
粘贴下面的代码：
OptionExplicit
SubSplitPagesAsDocuments()
DimoSrcDocAsDocument,oNewDocAsDocument
DimstrSrcNameAsString,strNewNameAsString
DimoRangeAsRange
DimnIndexAsInteger
DimfsoAsObject
Setfso=CreateObject("Scripting.FileSystemObject")
SetoSrcDoc=ActiveDocument
SetoRange=oSrcDoc.Content
oRange.CollapsewdCollapseStart
oRange.Select
FornIndex=1ToActiveDocument.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))
SetoNewDoc=Documents.Add
Selection.Paste
oNewDoc.SaveAsstrNewName
oNewDoc.CloseFalse
Next
SetoNewDoc=Nothing
SetoRange=Nothing
SetoSrcDoc=Nothing
Setfso=Nothing
MsgBox"结束！"
EndSub
键入F5运行，看到“完成！”结束。
2、检查当前文档所在路径下是否生成若干名为“原始文档_n.doc”（n代表其对应原始文档中的第几页）的文档，检查它们的内容是否就对应于原始文档每个页面的内容。
如文档中有分节符分解后的文档会出现空白页，如要分解后不出现空白页，需要把文档中的分节符删除。消除分节符的方法：
注意事项
分节符若全部替换，要注意替换后文档可能会出现排版混乱，这则需要自己手动排版了。
2. 怎样把word文档一页分为左右两页
切换到布局选项卡，点击分栏图标，选择两栏，这时内容分成了两栏显示。如果需要分成三显示，可以点击分栏图标，选择三栏。
工具/原料：
hp笔记本
word版本：office 2019 增强版
1、打开软件，输入=rand(10.10)，按下回车，快速生成文字。
3. 怎么把word表格由三页弄成两页
可以通过调整页边距或者缩小表格的间距来将三页设置为两页。通过设置页边距将其的上下左右边距进行缩小再配合调整部分单元格的大小就可以实现了。具体的设置参考方法如下：
1、在电脑上打开一个WORD的表格文件，可以看到当前为3页。
4. 如何将一个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的雨雪霏霏和守柔，雨雪霏霏。守柔
如果答案对你有帮助，记得留言点赞。
5. 在Word中如何实现文档分页
一、自动分页：通常由页面的内容来决定。
1、在一个页面中连续按下【Enter】键使得Word进入下一页。
6. 怎样将word文档中的一页或者几页分离出来单独作为一份文档
一般在Word文档中将一页或几页分离出来成为单独一份文档的话，可以人工进行另存，当然如果页数比较多的话，则应该使用VBA编程处理要好些。
7. word表格怎么分成两页
WORD表格分成页面的操作，首先点击视图的选项，找到版面设置的选项，点击打开之后，在页面分布格式那里，选择两页显示的格式，点击确定就完成操作
8. 在word中，怎么把一页纸一分为二，用虚线分开
首先分两栏，然后插入直线，最后把直线轮廓设置为虚线即可，具体操作流程如下：
一、首先把光标定位在需要一分为二的面面，点击“页面布局”，然后点击“分栏”，下拉菜单中点击“两栏”。