word拆分代碼

A. 如何將一個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的雨雪霏霏和守柔，雨雪霏霏。守柔

如果答案對你有幫助，記得留言點贊。

B. 如何將一個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代表其對應原始文檔中的第幾頁）的文檔，檢查它們的內容是否就對應於原始文檔每個頁面的內容。

C. word文檔中如何使用快捷鍵拆分單元格

常用快捷鍵x0dx0a快捷鍵 作用x0dx0aCtrl+Shift+Spacebar 創建不間斷空格x0dx0aCtrl+ -(連字元) 創建不間斷連字元x0dx0aCtrl+B 使字元變為粗體x0dx0aCtrl+I 使字元變為斜體x0dx0aCtrl+U 為字元添加下劃線x0dx0aCtrl+Shift+ 縮小字型大小x0dx0aCtrl+Shift+> 增大字型大小x0dx0aCtrl+Q 刪除段落格式x0dx0aCtrl+Spacebar 刪除字元格式x0dx0aCtrl+C 復制所選文本或對象x0dx0aCtrl+X 剪切所選文本或對象x0dx0aCtrl+V 粘貼文本或對象x0dx0aCtrl+Z 撤消上一操作x0dx0aCtrl+Y 重復上一操作x0dx0ax0dx0a快捷鍵大全x0dx0a1.用於設置字元格式和段落格式的快捷鍵x0dx0a快捷鍵 作用x0dx0aCtrl+Shift+F 改變字體x0dx0aCtrl+Shift+P 改變字型大小x0dx0aCtrl+Shift+> 增大字型大小x0dx0aCtrl+Shift+< 減小字型大小x0dx0aCtrl+] 逐磅增大字型大小x0dx0aCtrl+[ 逐磅減小字型大小x0dx0aCtrl+D 改變字元格式（"格式"菜單中的"字體"命令）x0dx0aShift+F3 切換字母大小寫x0dx0aCtrl+Shift+A 將所選字母設為大寫x0dx0aCtrl+B 應用加粗格式x0dx0aCtrl+U 應用下劃線格式x0dx0aCtrl+Shift+W 只給字、詞加下劃線，不給空格加下劃線x0dx0aCtrl+Shift+H 應用隱藏文字格式x0dx0aCtrl+I 應用傾斜格式x0dx0aCtrl+Shift+K 將字母敏肆變為小型大寫字母x0dx0aCtrl+=（等號） 應用下標格式（自動間距）x0dx0aCtrl+Shift++（加號） 應用上標格式（自動間櫻冊距）x0dx0aCtrl+Shift+Z 取消人工設置的字元格式x0dx0aCtrl+Shift+Q 將所選部分設為Symbol字體x0dx0aCtrl+Shift+*（星號） 顯示非列印字元x0dx0aShift+F1（單擊） 需查看文字格式了解其格式的文脊拿宏字x0dx0aCtrl+Shift+C 復制格式x0dx0aCtrl+Shift+V 粘貼格式x0dx0aCtrl+1 單倍行距x0dx0aCtrl+2 雙倍行距x0dx0aCtrl+5 1.5 倍行距x0dx0aCtrl+0 在段前添加一行間距x0dx0aCtrl+E 段落居中x0dx0aCtrl+J 兩端對齊x0dx0aCtrl+L 左對齊x0dx0aCtrl+R 右對齊x0dx0aCtrl+Shift+D 分散對齊x0dx0aCtrl+M 左側段落縮進x0dx0aCtrl+Shift+M 取消左側段落縮進x0dx0aCtrl+T 創建懸掛縮進x0dx0aCtrl+Shift+T 減小懸掛縮進量x0dx0aCtrl+Q 取消段落格式x0dx0aCtrl+Shift+S 應用樣式x0dx0aAlt+Ctrl+K 啟動"自動套用格式"x0dx0aCtrl+Shift+N 應用"正文"樣式x0dx0aAlt+Ctrl+1 應用"標題1"樣式x0dx0aAlt+Ctrl+2 應用"標題2"樣式x0dx0aAlt+Ctrl+3 應用"標題3"樣式x0dx0aCtrl+Shift+L 應用"列表"樣式 x0dx0a2.用於編輯和移動文字及圖形的快捷鍵x0dx0a x0dx0a◆刪除文字和圖形x0dx0a快捷鍵 作用x0dx0aBackspace 刪除左側的一個字元x0dx0aCtrl+Backspace 刪除左側的一個單詞x0dx0aDelete 刪除右側的一個字元x0dx0aCtrl+Delete 刪除右側的一個單詞x0dx0aCtrl+X 將所選文字剪切到"剪貼板"x0dx0aCtrl+Z 撤消上一步操作x0dx0aCtrl+F3 剪切至"圖文場"x0dx0a x0dx0a◆復制和移動文字及圖形x0dx0a快捷鍵 作用x0dx0aCtrl+C 復制文字或圖形x0dx0aF2（然後移動插入 移動選取的文字或圖形點並按Enter鍵）x0dx0aAlt+F3 創建"自動圖文集"詞條x0dx0aCtrl+V 粘貼"剪貼板"的內容x0dx0aCtrl+Shift+F3 粘貼"圖文場"的內容x0dx0aAlt+Shift+R 復制文檔中上一節所使用的頁眉或頁腳x0dx0a◆插入特殊字元x0dx0a快捷鍵 插入x0dx0aCtrl+F9 域x0dx0aShift+Enter 換行符x0dx0aCtrl+Enter 分頁符x0dx0aCtrl+Shift+Enter 列分隔符x0dx0aCtrl+ - 可選連字元x0dx0aCtrl+Shift+ - 不間斷連字元x0dx0aCtrl+Shift+空格 不間斷空格x0dx0aAlt+Ctrl+C 版權符號x0dx0aAlt+Ctrl+R 注冊商標符號x0dx0aAlt+Ctrl+T 商標符號x0dx0aAlt+Ctrl+.（句點） 省略號 x0dx0a◆選定文字和圖形x0dx0a選定文本的方法是：按住 Shift 鍵並按能夠移動插入點的鍵。x0dx0a快捷鍵 將選定范圍擴展至x0dx0aShift+→ 右側的一個字元x0dx0aShift+← 左側的一個字元x0dx0aCtrl+Shift+→ 單詞結尾x0dx0aCtrl+Shift+← 單詞開始x0dx0aShift+End 行尾x0dx0aShift+Home 行首x0dx0aShift+↓ 下一行x0dx0aShift+↑ 上一行x0dx0aCtrl+Shift+↓ 段尾x0dx0aCtrl+Shift+↑ 段首x0dx0aShift+Page Down 下一屏x0dx0aShift+Page Up 上一屏x0dx0aCtrl+Shift+Home 文檔開始處x0dx0aCtrl+Shift+End 文檔結尾處x0dx0aAlt+Ctrl+Shift+Page Down 窗口結尾x0dx0aCtrl+A 包含整篇文檔x0dx0aCtrl+Shift+F8+↑或↓ 縱向文本塊(按 Esc 鍵取消選定模式)x0dx0aF8+箭頭鍵 文檔中的某個具體位置(按Esc鍵取消選定模式)x0dx0a x0dx0a◆選定表格中的文字和圖形x0dx0a快捷鍵 作用x0dx0aTab鍵 選定下一單元格的內容x0dx0aShift+Tab 選定上一單元格的內容x0dx0aA按住Shift鍵並重復 按某箭頭鍵將所選內容擴展到相鄰單元格x0dx0aCtrl+Shift+F8然後按箭頭鍵 擴展所選內容（或塊）x0dx0aShift+F8 縮小所選內容x0dx0aAlt+數字鍵盤上的5 選定整張表格x0dx0a（Num Lock鍵需處於關閉狀 ȫ態）x0dx0ax0dx0a◆移動插入點x0dx0ax0dx0a◆移動插入點x0dx0a快捷鍵 作用x0dx0a← 左移一個字元x0dx0a→ 右移一個字元x0dx0aCtrl+← 左移一個單詞x0dx0aCtrl+→ 右移一個單詞x0dx0aCtrl+↑ 上移一段x0dx0aCtrl+↓ 下移一段x0dx0aShift+Tab 左移一個單元格（在表格中）x0dx0aTab 右移一個單元格（在表格中）x0dx0a↑ 上移一行x0dx0a↓ 下移一行x0dx0aEnd 移至行尾x0dx0aHome 移至行首x0dx0aAlt+Ctrl+Page Up 移至窗口頂端x0dx0aAlt+Ctrl+Page Down 移至窗口結尾x0dx0aPage Up 上移一屏（滾動）x0dx0aPage Down 下移一屏（滾動）x0dx0aCtrl+Page Down 移至下頁頂端x0dx0aCtrl+Page Up 移至上頁頂端x0dx0aCtrl+End 移至文檔結尾 x0dx0aCtrl+Home 移至文檔開頭x0dx0aShift+F5 移至前一處修訂；對於剛打開的文檔，移至上一次關閉文檔時x0dx0a 插入點所在位置x0dx0ax0dx0a◆在表格中移動x0dx0a快捷鍵 游標移至x0dx0aTab 一行中的下一個單元格x0dx0aShift+Tab 一行中的上一個單元格x0dx0aAlt+Home 一行中的第一個單元格x0dx0aAlt+End 一行中的最後一個單元格x0dx0aAlt+Page Up 一列中的第一個單元格x0dx0aAlt+Page Down 一列中的最後一個單元格x0dx0a↑ 上一行 x0dx0a↓ 下一行 x0dx0a◆在表格中插入段落和製表符x0dx0a快捷鍵 在單元格中插入x0dx0aEnter 新段落x0dx0aCtrl+Tab 製表符 x0dx0a3.用於處理文檔的快捷鍵x0dx0a◆創建、查看和保存文檔x0dx0a快捷鍵 作用x0dx0aCtrl+N 創建與當前或最近使用過的文檔類型相同的新文檔x0dx0aCtrl+O 打開文檔x0dx0aCtrl+W 關閉文檔x0dx0aAlt+Ctrl+S 拆分文檔窗口x0dx0aAlt+Shift+C 撤消拆分文檔窗口x0dx0aCtrl+S 保存文檔 x0dx0a◆查找、替換和瀏覽文本 x0dx0aCtrl+F 查找文字、格式和特殊項x0dx0aAlt+Ctrl+Y 在關閉"查找和替換"窗口之後重復查找x0dx0aCtrl+H 替換文字、特殊格式和特殊項x0dx0aCtrl+G 定位至頁、書簽、腳注、表格、注釋、圖形或其它位置x0dx0aAlt+Ctrl+Z 返回至頁、書簽、腳注、表格、批註、圖形或其他位置x0dx0aAlt+Ctrl+Home 瀏覽文檔 x0dx0a◆撤消和恢復操作x0dx0aEsc 取消操作x0dx0aCtrl+Z 撤消操作x0dx0aCtrl+Y 恢復或重復操作 x0dx0a◆切換至其他視圖x0dx0aAlt+Ctrl+P 切換到頁面視圖 x0dx0aAlt+Ctrl+O 切換到大綱視圖x0dx0aAlt+Ctrl+N 切換到普通視圖x0dx0aCtrl+\\ 在主控文檔和子文檔之間移動 x0dx0a◆用於審閱文檔的快捷鍵x0dx0a快捷鍵 作用x0dx0aAlt+Ctrl+M 插入批註x0dx0aCtrl+Shift+E 打開或關閉標記修訂功能x0dx0aHome 定位至批註開始x0dx0aEnd 定位至批註結尾x0dx0aCtrl+Home 定位至一組批註的起始處x0dx0aCtrl+End 定位至一組批註的結尾處x0dx0a4.用於處理引用、腳注和章節附註的快捷鍵x0dx0a快捷鍵 作用 x0dx0aAlt+Shift+O 標記目錄項x0dx0aAlt+Shift+I 標記引文目錄項x0dx0aAlt+Shift+X 標記索引項x0dx0aAlt+Ctrl+F 插入腳注x0dx0aAlt+Ctrl+E 插入章節附註 x0dx0a5.用於處理域的快捷鍵x0dx0a快捷鍵 作用x0dx0aAlt+Shift+D 插入Date域x0dx0aAlt+Ctrl+L 插入Listnum域x0dx0aAlt+Shift+P 插入Page域x0dx0aAlt+Shift+T 插入Time域x0dx0aCtrl+F9 插入空域x0dx0aCtrl+Shift+F7 更新Word源文檔中的鏈接信息x0dx0aF9 更新所選域x0dx0aCtrl+Shift+F9 解除域的鏈接x0dx0aShift+F9 在域代碼和其結果之間進行切換x0dx0aAlt+F9 在所有的域代碼及其結果間進行切換x0dx0aAlt+Shift+F9 從顯示域結果的域中運行Gotobutton 或 Macrobuttonx0dx0aF11 定位至下一域x0dx0aShift+F11 定位至前一域x0dx0aCtrl+F11 鎖定域x0dx0aCtrl+Shift+F11 解除對域的鎖定x0dx0a x0dx0a6.用於處理文檔大綱的快捷鍵x0dx0aAlt+Shift+← 提升段落級別x0dx0aAlt+Shift+→ 降低段落級別x0dx0aCtrl+Shift+N 降級為正文x0dx0aAlt+Shift+↑ 上移所選段落x0dx0aAlt+Shift+↓ 下移所選段落x0dx0aAlt+Shift+ + 擴展標題下的文本x0dx0aAlt+Shift+ - 折疊標題下的文本x0dx0aAlt+Shift+A 擴展或折疊所有文本或標題x0dx0a數字鍵盤上的斜杠（/） 隱藏或顯示字元格式x0dx0aAlt+Shift+L 只顯示首行正文或顯示全部正文x0dx0aAlt+Shift+1 顯示所有具有"標題1"樣式的標題x0dx0aAlt+Shift+n 顯示從"標題1"到"標題n"的x0dx0a（指標題級別） 所有標題 x0dx0a7.用於進行郵件合並的快捷鍵x0dx0a要使用這些按鍵組合，需要先建立郵件合並的主文檔。x0dx0a快捷鍵 作用 x0dx0aAlt+Shift+K 預覽郵件合並x0dx0aAlt+Shift+N 合並文檔x0dx0aAlt+Shift+M 列印已合並的文檔x0dx0aAlt+Shift+E 編輯郵件合並數據文檔x0dx0aAlt+Shift+F 插入合並域x0dx0a8.用於處理 Web 頁的快捷鍵x0dx0a快捷鍵 作用x0dx0aCtrl+K 插入超級鏈接x0dx0aAlt+← 返回一頁x0dx0aAlt+→ 前進一頁x0dx0aF9 刷新 x0dx0a9.用於列印和預覽文檔的按鍵x0dx0aCtrl+P 列印文檔x0dx0aAlt+Ctrl+I 切換至或退出列印預覽箭頭鍵在放大的預覽頁上移動x0dx0aPage Up或Page Down 在縮小顯示比例時逐頁翻閱預覽頁x0dx0aCtrl+Home 在縮小顯示比例時移至第一張預覽頁x0dx0aCtrl+End 在縮小顯示比例時移至最後一張預覽頁x0dx0a10.用於Office助手的快捷鍵x0dx0a如果要完成下面大多數操作，Office 助手必須打開並且可見。x0dx0a快捷鍵 作用x0dx0aF1 獲得Office助手（助手處於顯示狀態）的幫助x0dx0aAlt+F6 激活Office助手氣球x0dx0aAlt+數字鍵 從助手顯示的列表中選擇幫助主題（Alt+1代表第一個主題以此類推） x0dx0aAlt+↓ 查看更多的幫助主題 x0dx0aAlt+↑ 查看前面的幫助主題x0dx0aEsc 關閉助手消息或提示 x0dx0a11.用於幫助的快捷鍵x0dx0a◆在幫助窗口中工作x0dx0a快捷鍵 作用x0dx0aAlt+O 顯示"選項"菜單以訪問幫助工具欄上的命令x0dx0aAlt+空格鍵 顯示程序"控制"菜單x0dx0aAlt+F4 關閉活動的幫助窗口 x0dx0a◆在定位窗格中移動x0dx0a快捷鍵 作用x0dx0aCtrl+Tab 切換到下一選項卡x0dx0aCtrl+Shift+Tab 切換到前一選項卡x0dx0aAlt+C 切換到"目錄"選項卡x0dx0aAlt+I 切換到"索引"選項卡x0dx0aEnter 打開或關閉所選書籍，或打開所選幫助主題x0dx0a↓ 選擇下一書籍或幫助主題x0dx0a↑ 選擇前一書籍或幫助主題x0dx0a◆在主題窗格中移動x0dx0a快捷鍵 作用x0dx0aAlt+← 返回查看過的幫助主題x0dx0aAlt+→ 前往查看過的幫助主題x0dx0aTab 轉到第一個或下一超級鏈接x0dx0aShift+Tab 轉到最後或前一超級鏈接x0dx0aEnter 激活所選超級鏈接x0dx0aEsc 關閉彈出的窗口x0dx0a↑ 向幫助主題的開始處滾動 x0dx0a↓ 向幫助主題的結尾處滾動x0dx0aPage Up 以更大的增量向幫助主題的開始處滾動x0dx0aPage Down 以更大的增量向幫助主題的結尾處滾動x0dx0aHome 移動到幫助主題的開始x0dx0aEnd 移動到幫助主題的結尾x0dx0aCtrl+P 列印當前幫助主題x0dx0aCtrl+A 選定整個幫助主題x0dx0aCtrl+C 將選定內容復制到"剪貼板"x0dx0a12.用於菜單的快捷鍵x0dx0a快捷鍵 作用x0dx0aShift+F10 顯示x0dx0aF10 激活菜單欄 x0dx0aAlt+Spacebar 顯示程序標題欄上的程序圖標菜單x0dx0a↓/↑（如菜單 選擇菜單或子菜單中的下一個x0dx0a或子菜單已顯示） 或前一個命令x0dx0a←/→ 選擇左邊或者右邊的菜單，或者在顯示子菜單時，在主菜單和x0dx0a 子菜單之間切換x0dx0aHome或End 選擇菜單或子菜單中第一個或者最後一個命令x0dx0aAlt 同時關閉顯示的菜單和子菜單x0dx0aEsc 關閉顯示的菜單。若顯示子菜單時，只關閉子菜單x0dx0aAlt+Ctrl+ = 將工具欄按鈕添至菜單。當鍵入此快捷鍵然後單擊工具欄按鈕x0dx0a 時，Microsoft Word會將按鈕添至適當的菜單。例如，單擊"格x0dx0a 式"工具欄上的"項目符號"按鈕可以將"項目符號"命令添至"格式"菜單。x0dx0aAlt+Ctrl+ -從菜單中刪除命令。當鍵入此快捷鍵（數字鍵盤上然後選擇菜單命令時，該命令將被刪的減號鍵）除。如果改變了主意，可以按Esc取消此快捷命令，要恢復已修改了的菜單可以通過在"工具/自 定義"重新設置菜單。x0dx0aAlt+Ctrl++為菜單命令自定義快捷鍵。當您鍵（數字小鍵盤入此快捷鍵並選擇了菜單命令時，將上的加號鍵）會出現"自定義鍵盤"對話框，你可以在其中添加更改或刪除快捷鍵。x0dx0a13.用於窗口和對話框的快捷鍵x0dx0a◆在文檔和程序窗口中移動x0dx0a快捷鍵 作用x0dx0aAlt+Tab 切換至下一個程序或Microsoft Word文檔窗口x0dx0aAlt+Shift+Tab 切換至上一個程序或Mic

D. 如何拆分word文檔

• 第一步：在Word2010中打開要拆分的Word文檔，在文檔拆分位置添加新標題作為拆分後獨立文檔的標題名稱，也可以用節標題作為拆分後文檔的標題名稱。

  

E. vba實現按特定的字元段落拆分word文檔

下面代碼把原文檔按照指定的標識（這里是「END」）進行拆分。拆分之後的文檔生成在源文檔當前目錄下，文件名後面附加「_1」、「_2」、「_3」等。

Option Explicit

Const Token = "END"

Sub SplitDocumentByToken()

Dim oNewDoc As Document
Dim strSrcName As String, strNewName As String
Dim nStart As Integer, nEnd As Integer, nIndex As Integer
Dim fContinue As Boolean
Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

strSrcName = ActiveDocument.FullName

nIndex = 1
fContinue = True
Selection.StartOf WdUnits.wdStory

Do While fContinue
nStart = Selection.Start
Selection.Find.ClearFormatting
With Selection.Find
.Text = "^13" & Token & "^13"
.Replacement.Text = ""
.Forward = True
.Wrap = WdFindWrap.wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
If Selection.Find.Execute Then
nEnd = Selection.End
Else
nEnd = ActiveDocument.Content.End
fContinue = False
End If
ActiveDocument.Range(nStart, nEnd).Copy
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
nIndex = nIndex + 1
Selection.Collapse WdCollapseDirection.wdCollapseEnd
Loop

Set oNewDoc = Nothing
Set fso = Nothing

MsgBox "結束！"

End Sub

F. 將word文檔按頁碼拆分

請參考如下宏方法：Sub CutDoc()
Dim Doc As Document, Rng As Range, n As Integer
Set Rng = Range(0, 0)
With Selection
For n = 200 To .Information(wdNumberOfPagesInDocument) Step 200
.GoTo what:=wdGoToPage, Name:=n + 1
If .Information(wdActiveEndPageNumber) = .Information(wdNumberOfPagesInDocument) Then
.EndKey wdStory
Rng.SetRange Rng.End, .Range.Start
Else
Rng.SetRange Rng.End, .Range.Start
End If
Set Doc = Documents.Add(Visible:=False)
With Doc
.Content.InsertAfter Rng
.SaveAs ActiveDocument.Path & "\第" & n / 200 & "部分.doc"
.Close True
End With
Next
End With
End Sub '--------------------------------------------上面的方法適用於純文本狀態下的分割，如果DOC裡面含有圖片、表格等對象，建議使用：Sub CutDocs()
Dim Doc As Document, Rng As Range, n As Integer
Set Rng = Range(0, 0)
With Selection
For n = 2 To .Information(wdNumberOfPagesInDocument) Step 2
.GoTo what:=wdGoToPage, Name:=n + 1
If .Information(wdActiveEndPageNumber) = .Information(wdNumberOfPagesInDocument) Then
.EndKey wdStory
Rng.SetRange Rng.End, .Range.Start
Else
Rng.SetRange Rng.End, .Range.Start
End If
Rng.Copy
Set Doc = Documents.Add(Visible:=False)
With Doc
.Range.Paste
.ActiveWindow.View = wdPrintView
.SaveAs ActiveDocument.Path & "\第" & n / 2 & "部分.doc"
.Close True
End With
Next
End With
End Sub '--------------------------------------------請將代碼中的 2 更正為 200

G. 一個word文件怎麼拆分成多個文件

一個word文件怎麼拆分成多個文件, 如何把一個word文件拆分為多個小文件

把一個word文件拆分為多個小文件的方法：
1.開啟要處理的WORD文件，然後ALT+F8調出巨集處理視窗，新輸入巨集名稱為MyPg。
2.點選右側的編輯按鈕，輸入如下內容，完成後鍵盤F5即可。
3.貼上如下內容
Option Explicit
Sub MyPg()
Dim oSrcDoc As Document, oNewDoc As Document
Dim strSrcName As String, strNewName As String
Dim oRange As Range
Dim nIndex As Integer, nSubIndex As Integer, nTotalPages As Integer, nBound As Integer
Dim fso As Object
Const nSteps = 200 ' 修改這里控制每隔幾頁分割一次
Set fso = CreateObject("Scripting.FileSystemObject")
Set oSrcDoc = ActiveDocument
Set oRange = oSrcDoc.Content
nTotalPages = ActiveDocument.Content.Information(wdNumberOfPagesInDocument)
oRange.Collapse wdCollapseStart
oRange.Select
For nIndex = 1 To nTotalPages Step nSteps
Set oNewDoc = Documents.Add
If nIndex + nSteps > nTotalPages Then
nBound = nTotalPages
Else
nBound = nIndex + nSteps - 1
End If
For nSubIndex = nIndex To nBound
oSrcDoc.Activate
oSrcDoc.Bookmarks("page").Range.Copy
oSrcDoc.Windows(1).Activate
Application.Browser.Target = wdBrowsePage
Application.Browser.Next
oNewDoc.Activate
oNewDoc.Windows(1).Selection.Paste
Next nSubIndex
strSrcName = oSrcDoc.FullName
strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _
fso.GetBaseName(strSrcName) & "_" & (nIndex nSteps + 1) & "." & fso.GetExtensionName(strSrcName))
oNewDoc.SaveAs strNewName
oNewDoc.Close False
Next nIndex
Set oNewDoc = Nothing
Set oRange = Nothing
Set oSrcDoc = Nothing
Set fso = Nothing
MsgBox "結束！"
End Sub
此方法適用於頁碼分多個文件使用。

1、檢視——大綱，切換到大綱檢視，選中要拆分的標題及正文（選定的方法是滑鼠移到該標題前的空心十字元號，此時滑鼠指標變成十字箭頭，單擊滑鼠即可選定該標題包括的內容）
2、單擊【大綱】工具欄中的【建立子文件】按鈕，每個子文件會放在一個虛線框中，並且在虛線框的左上角顯示一個子文件圖示，子文件之間用分節符隔開。
3、把檔案儲存下來即可。Word 在儲存主文件的同時，會自動儲存建立的子文件，並且以子文件的第一行文字作為檔名。

一個word文件中的東西怎麼分成多個文件

方法如下：
1、開啟需要進行編輯的word文件；
2、點選選單欄->檢視；
3、單擊之後會在檢視下方出現一個子選單，點選"拆分"；
4、點選後，就會出現一個讓你確定需要拆分的文件位置；
5、確定自己的拆分位置後，滑鼠左鍵單擊就可以將文件拆分；
6、完成。

怎麼將pdf合並文件分開拆分成多個PDF文件

拆分PDF格式檔案需要使用到專業性的軟甲，下面答主就為大家介紹一款操作簡單的PDF拆分軟體！
參考軟體：迅捷PDF編輯器
拆分步驟：
首先我們點選PDF編輯器左上角的「檔案」按鈕並將PDF檔案開啟！
檔案開啟之後點選「文件」中的「拆分文件」功能進入到拆分介面！
在拆分介面設定好PDF拆分引數後點擊「確定」按鈕即可拆分PDF檔案！
以上就是拆分PDF檔案的方法，看完之後是不是覺得特別簡單呢！

Word怎麼將一個文件拆分成幾個小文件

1、開啟需要拆分的文件，文件裡面輸入內容。2、以大綱檢視顯示文件，點選【檢視】再點選【大綱檢視】3、在需要拆分的地方的標題處，設定「級別」如圖4、選中要拆分出來的文件（含帶級別的標題）。將滑鼠移動到標題前的空心十字元號上，此時滑鼠指標變成十字箭頭，點選滑鼠即可選定該標題以及其包括的內容。5、開啟文件操作，點選「顯示文件」，展開相應文件操作按鈕；點選「建立」按鈕，建立子文件；6、點選「選單」按鈕，彈出「另存為」對話方塊，即可生成以「設定了級別的標題」為檔名的子文件；

如何將一個word文件按頁分割成多個word文件

1、在Word裡面開啟那個需要分割的文件；
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代表其對應原始文件中的第幾頁）的文件，檢查它們的內容是否就對應於原始文件每個頁面的內容。

H. 如何把word文檔內容拆分成多個獨立的文件

有不少Word長文檔，閱讀起來不是很方便，其實我們可以快速將這些長文檔，拆分成一個個的短文檔，可以方便我們的閱讀。那麼怎麼操作呢?下面就為大家介紹一下，有需要的朋友可以參考本文，來看看吧!

這里以Word 2016為例，打開Word文檔後，切換到「 視圖 」選項卡，再點擊切換到「 大綱視圖 」，在「 顯示級別 」中，根據實際情況選項相應級別，比如小編所用文檔中的主要段落是以二級標題劃分的，所以這里選擇「2級」，這樣一來，一些細節內容就被折疊起來了。

繼續在「 大綱 」選項卡中，全選所有2級標題，點擊「 顯示文檔→創建 」，即可創建子文檔了。

接下來，點擊工具欄中的保存按鈕(或直接按Ctrl+S鍵)進行保存，再回到原文件的文件夾中，就可以看到它已被拆分成多篇獨立的文檔啦。

將一個完整的文檔拆分成兩個文檔，想必大家都遇到過，一般最常想到的辦法，就是新建一個文檔，然後剪切---粘貼。今天要總結的確實利用word自身的功能直接產生新建文檔!

1、打開需要拆分的文檔。

2、以大綱視圖顯示文檔。

3、在需要拆分的地方的標題處，設置「級別」。

4、選中要拆分出來的文檔(含帶級別的標題)。將滑鼠移動到標題前的空心十字元號上，此時滑鼠指針變成十字箭頭，點擊滑鼠即可選定該標題以及其包括的內容。

5、打開文檔操作，點擊「顯示文檔」，展開相應文檔操作按鈕。

6、點擊「創建」按鈕，創建子文檔。

7、點擊「保存」按鈕，彈出「另存為」對話框，即可生成以「設置了級別的標題」為文件名的子文檔。

有時候在使用word文檔時需要將文檔分成兩欄或者更多，那麼該如何達到這一目的呢，今天我們就一起來看看吧!

1、打開我們需要進行編輯的文檔，一般是需要把文檔裡面的內容分開

2、在打開的文檔上方菜單欄裡面尋找頁面布局，並單擊

3、單擊之後，在頁面布局的下方會出現一個子菜單，在這個子菜單里尋找分欄

4、找到之後點擊，然後就會出現一個供我們選擇的菜單，

5、在這里選擇自己需要分成的欄數(以兩欄為例)

6、選擇好了之後滑鼠左鍵單擊即可完成目標啦