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中，怎麼把一頁紙一分為二，用虛線分開
首先分兩欄，然後插入直線，最後把直線輪廓設置為虛線即可，具體操作流程如下：
一、首先把游標定位在需要一分為二的面面，點擊「頁面布局」，然後點擊「分欄」，下拉菜單中點擊「兩欄」。