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、取消分欄:
游標放在已分欄的文本或段落中——點擊「格式」菜單——點擊「分欄」——在對話框中選擇—欄樣式——點擊確定。