⑴ 如何将一个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文档，点击界面上方法点击“布局”按钮。