⑴ 如何將一個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文檔中怎麼把一頁分成田也就是四個部分
1、首先，把要分欄的文字部分選中！若是全部分欄可以直接ctrl+A。
⑶ word如何將一張紙分成四份
word將一張紙分成四份的具體步驟如下：
我們需要准備的材料分別是：電腦、Word文檔。
1、首先我們打開需要編輯的Word文檔。
⑷ 如何把一個word文檔分成相同的8份，就是把一張A4紙分成8個正方形的小塊
把A4規格的wor的文檔分成8等分的方法步驟如下：
所需的工具材料：電腦、office軟體
步驟一、打開需要分成八等分的word文件。
⑸ WORD如何排版，讓一頁內容變成上下左右四小塊內容
可以插入四個文本框，然後四個文本框全部鏈接起來，這樣就是分為四個小塊，且文字鏈接，具體步驟如下：
所需材料：Word 2007演示。
一、首先點擊插入選項卡下的「文本框」。
⑹ 如何將word一頁分成兩個版面
材料/工具：word2010
1、首先找到一個word2010文檔，打開word文檔
⑺ 在word文檔里怎麼樣可以把一頁分為四份
在word文檔里把一頁分為四份的方法可以通過分欄的操作方法來實現，每欄的寬度也可以進行設置。
第一步，打開文檔，點擊頁面布局--分欄，選擇更多分欄
⑻ 怎麼在 WORD里設置一頁里分兩塊 豎排
設置方法是分欄，具體分欄的方法如下（以windows10的word2018為例）：
1、打開word文檔，點擊界面上方法點擊「布局」按鈕。