1、打開需要拆分的文檔 2、將需要拆分的章節標題樣式選中“標題1” 3、選擇大綱視圖——顯示1級標題——點擊顯示文檔 4、雙擊第一章前面的“+”號以顯示第一章全部內容，點擊創建，將第一章進行拆分 5、雙擊圖中所示文本標誌。 6、會自動彈出新word窗口
office辦公軟件是如今較為普遍的一種辦公軟件，word便是其中的一種。今天為大家分享一則如何將一個word文檔按頁分割成多個word文檔的方法。
材料/工具
方法
打開需要分割的文檔
1、在Word裏面打開那個需要分割的文檔（假設它的文件名叫做“原始文檔.doc”）； 2、鍵入ALT+F11打開VBA編輯器，選擇菜單“插入-模塊”； 3、粘貼下面的代碼： Option Explicit Sub SplitPagesAsDocuments() Dim oSrcDoc As Document, oNewDoc As Do
鍵入ALT+F11打開輯器
1、打開word，該文檔有兩頁，把每一頁都設置一個一級標題。 2、進入視圖，點擊進入大綱頁面。 3、點擊進入大綱後，Ctrl+A全選，然後把顯示級別設置為一級，然後點擊顯示文檔。 4、點擊創建。 5、點擊創建後，就可以進入文件中另存文檔了。 5、另
點擊插入,模塊
在Word裏面打開那個需要分割的文檔（假設它的文件名叫做“原始文檔.doc”）； 鍵入ALT+F11打開VBA編輯器，選擇菜單“插入-模塊”； 粘貼下面的代碼： Option Explicit Sub SplitPagesAsDocuments() Dim oSrcDoc As Document, oNewDoc As Document Di
粘貼下面的代碼：
手動的話就不用説了吧，什麼複製粘貼的方法啊，刪除另存的方法啊什麼的，都可以。 另一個就是通過宏了； 嘗試以下代碼： Sub SplitEveryFivePagesAsDocuments() Dim oSrcDoc As Document, oNewDoc As Document Dim strSrcName As String, strNew
Option Explicit
1、在Word裏面打開那個需要分割的文檔； 2、鍵入ALT+F11打開VBA編輯器，選擇菜單“插入-模塊”； 3、複製粘貼下面的代碼： Option Explicit Sub SplitPagesAsDocuments() Dim oSrcDoc As Document, oNewDoc As Document Dim strSrcName As String,
Sub SplitPagesAsDocuments()
1、在Word裏面打開那個需要分割的文檔（假設它的文件名叫做“原始文檔.doc”）； 鍵入ALT+F11打開VBA編輯器，選擇菜單“插入-模塊”； 粘貼下面的代碼： Option Explicit Sub SplitPagesAsDocuments() Dim oSrcDoc As Document, oNewDoc As Document
Dim oSrcDoc As Document, oNewDoc As Document
1、在Word裏面打開那個需要分割的文檔（假設它的文件名叫做“原始文檔.doc”）； 2、鍵入ALT+F11打開VBA編輯器，選擇菜單“插入-模塊”； 3、粘貼下面的代碼： Option Explicit Sub SplitPagesAsDocuments() Dim oSrcDoc As Document, oNewDoc As Do
Dim strSrcName As String, strNewName As String
1、找到需要進行分離份Word文檔雙擊打開該Word文檔。 2、在進入該文檔後，找到需要分離開的頁面，將鼠標從該頁面左上角下拉到頁面的右下角，選中改業的全部內容。 3、選中這一頁的羣補內容後點擊彈出選項框中的剪切選項將所選中的內容剪切到剪切
Dim oRange As Range
1、打開需要拆分的文檔2、將需要拆分的章節標題樣式選中“標題1”3、選擇大綱視圖——顯示1級標題——點擊顯示文檔4、雙擊第一章前面的“+”號以顯示第一章全部內容，點擊創建，將第一章進行拆分5、雙擊圖中所示文本標誌。6、會自動彈出新word窗口，新wo
Dim nIndex As Integer
這個得用大綱視圖； 在切換視圖之前，先將每頁的首行設置為一級標題； 然後切換到大綱視圖→顯示文檔→創建； 最後，點擊保存，子文檔就保存在主文檔所在的文件夾；
Dim fso As Object
這個必須用到大綱視圖； 第一步：在第一、第三、第五等每個兩頁的最頂端設置一個一級標題； 第二步：Ctrl+Alt+O（歐）切換到大綱視圖→顯示級別選擇1級→點擊“顯示文檔”→點擊“創建”→Ctrl+S保存； 完成，保存後的子文檔位於主文檔文件夾內；
Set fso = CreateObject("Scripting.FileSystemObject")
一、整個表格拆分成上下兩個： 把鼠標放到需要拆分的新表的一行任意一個單元格中，然後按CTRL＋SHIFT＋回車 二、拆分單元格 表格工具－－“佈局”中，有一項，拆分單元格。 歡迎下載騰訊電腦管家瞭解更多知識，體驗更多功能。
Set oSrcDoc = ActiveDocument
1、在Word裏面打開那個需要分割的文檔（假設它的文件名叫做“原始文檔.doc”）； 鍵入ALT+F11打開VBA編輯器，選擇菜單“插入-模塊”； 粘貼下面的代碼： Option Explicit Sub SplitPagesAsDocuments() Dim oSrcDoc As Document, oNewDoc As Document
Set oRange = oSrcDoc.Content
1、打開需要拆分的文檔 2、將需要拆分的章節標題樣式選中“標題1” 3、選擇大綱視圖——顯示1級標題——點擊顯示文檔 4、雙擊第一章前面的“+”號以顯示第一章全部內容，點擊創建，將第一章進行拆分 5、雙擊圖中所示文本標誌。 6、會自動彈出新word窗口
oRange.Collapse wdCollapseStart
下面用本機的word2010來演示 1、打開需要拆分的文檔 2、將需要拆分的章節標題樣式選中“標題1” 3、選擇大綱視圖——顯示1級標題——點擊顯示文檔 4、雙擊第一章前面的“+”號以顯示第一章全部內容，點擊創建，將第一章進行拆分 5、雙擊圖中所示文本標誌
oRange.Select
請參考： http://zhidao.baidu.com/question/164634421.html http://wenku.baidu.com/view/1ffa41d549649b6648d74780.html
For nIndex = 1 To ActiveDocument.Content.
這個必須用到大綱視圖； 第一步：在第一、第三、第五等每個兩頁的最頂端設置一個一級標題； 第二步：Ctrl+Alt+O（歐）切換到大綱視圖→顯示級別選擇1級→點擊“顯示文檔”→點擊“創建”→Ctrl+S保存； 完成，保存後的子文檔位於主文檔文件夾內；
Information(wdNumberOfPagesInDocument)
請嘗試如下步驟： 1、打開需要分割的PPT文檔（假設文件名為“原始文檔.ppt”）； 2、鍵入Alt+F11切換到VBA編輯環境，然後選擇菜單“插入-模塊”； 3、在代碼編輯區粘貼如下代碼： Option Explicit Sub SplitSlides() Dim oSrcPresentation As Presen
oSrcDoc.Bookmarks("page").Range.Copy
1、在excel的加載項選擇方方格子，選擇彙總拆分功能。 2、在下拉菜單中選擇拆分工作簿。 3、設置要拆分出的工作表，以及需要儲存的位置，然後點擊確定。 4、運行完成後，會有提示，可以直接查看文件。 5、在指定的文件夾內就可以看到拆分好的表
oSrcDoc.Windows(1).Activate
1、在excel的加載項選擇方方格子，選擇彙總拆分功能。 2、在下拉菜單中選擇拆分工作簿。 3、設置要拆分出的工作表，以及需要儲存的位置，然後點擊確定。 4、運行完成後，會有提示，可以直接查看文件。 5、在指定的文件夾內就可以看到拆分好的表
Application.Browser.Target = wdBrowsePage
工具/原料 word辦公軟件 方法/步驟 1、打開要操作的文檔。如下圖所示： 2、在word工具欄中找到‘頁面佈局’一欄，點擊進入。如下圖所示： 3、全選文檔內容，快捷鍵ctrl+A ，在工具欄中找到‘分欄’選項，選擇兩欄。如下圖所示：
Application.Browser.NextstrSrcName = oSrcDoc
以WPS 2019版本為例： 關於如何將一個EXCEL中的多個sheet表拆分為多個EXCEL表，您可使用WPS參考下述步驟完成操作： 1、打開「表格（Excel）」文檔； 2、點擊「數據-拆分表格」； 3、按需選擇「把工作表按照內容拆分」或「把工作簿按照工作表拆分
.FullName
樓下説的沒錯利用acrobat可以 利用福昕閲讀器企業版也可以 因為可以直接刪除、剪切、複製粘貼頁面，也可以分成一頁一頁的 ，然後在拼到一起所以 你想怎麼分割都行 你想要的是提取頁面吧，也可以右鍵 提取液麪 然後如圖 就可以自由選擇連續頁面進
strNewName = fso.BuildPath(fso.GetParentFolder
1、在Word裏面打開那個需要分割的文檔（假設它的文件名叫做“原始文檔.doc”）； 鍵入ALT+F11打開VBA編輯器，選擇菜單“插入-模塊”； 粘貼下面的代碼： Option Explicit Sub SplitPagesAsDocuments() Dim oSrcDoc As Document, oNewDoc As Document
Name(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
鍵入F5運行，看到“完成！”
成功！
擴展閲讀，以下內容您可能還感興趣。
如何將一個word文檔按頁分割成多個word文檔
1、打開需要拆分的來文檔2、將需要拆分的章節標題樣式選中“標題1”3、選擇大綱視圖——顯示自1級標題——點擊顯示文檔4、雙擊第一章前面的百“+”號以顯示第一章全部內容，點擊度創建，將第一章進行拆分5、雙擊圖中所示文本標誌。6、會自動彈出新word窗口，新word文檔為全部第一章節問內容，點擊保存即可。然後重複上面步驟，將其他章答節進行拆分。
如何將一個word文檔按頁分割成多個word文檔
這個得用大綱視圖；
在切換視圖之前，先將每頁的首行設置為一級標題；
然後切換到大綱視圖→顯示文檔→創建；
最後，點擊保存，子文檔就保存在主文檔所在的文件夾；
如何將一個word文檔按2頁分割成多個word文檔
這個必須用到大綱視圖；
第一步：在第一、第三、第五...等每個兩頁的最頂來端設置一個一級標題；
第二步：Ctrl+Alt+O（歐）切換到大綱視圖→顯示源級別選擇1級→點擊“zd顯示文檔”→點擊“創建”→Ctrl+S保存；
完成，保存後的子文檔位於主文檔文件夾內；
如何將一個word文檔按一定頁數（如：每3頁，每4頁）分割成多個word文檔?
沒聽説有現成的工具，一個個用手分吧。
WORD文檔如何將一個表格拆分成兩個?
一、整個表zd格拆分成上下兩個：
把鼠標放到需要拆分的新表的一行任意一個單元格中，然後按CTRL＋SHIFT＋回車
二、拆分單元格
表格工具內－－“佈局”中，有一項，拆分單元格。
歡迎容下載騰訊電腦管家瞭解更多知識，體驗更多功能。
