鍵入ALT+F11打開VBA編輯器，並選擇菜單“插入-模塊”；
粘貼以下代碼:
選項顯式
Sub SplitPagesAsDocuments（）
Dim oSrcDoc作為文檔，oNewDoc作為文檔
Dim strSrcName為字符串，strNewName為字符串
暗橙色作為範圍
Dim nIndex為整數
將fso作為對象標註
set FSO = CreateObject（“Scripting。文件系統對象“）
Set oSrcDoc = ActiveDocument
設置oRange = oSrcDoc。內容
橙色。折疊wdCollapseStart
橙色。挑選
For nIndex = 1到ActiveDocument。內容。信息（wdNumberOfPagesInDocument）
oSrcDoc。書簽（“\page“）。
oSrcDoc。windows（1）。使活動
申請。Browser.Target = wdBrowsePage
申請。瀏覽器。下壹個
strSrcName = oSrcDoc。全名
strNewName = fso。構建路徑（fso。GetParentFolderName（str rcname），_
fso。GetBaseName（str rcname）和amp“_“& amp；nIndex & amp"."& ampfso。GetExtensionName（str rcname））
設置oNewDoc = Documents。增加
選擇。粘貼
oNewDoc。SaveAs strNewName
oNewDoc。關閉假
然後
設置oNewDoc = Nothing
設置橙色=無
設置oSrcDoc = Nothing
設置fso =無
MsgBox“結束！”
末端接頭
鍵入F5運行並看到“完成！”結束。
2.檢查當前文檔所在的路徑下是否生成了幾個名為“original document _ n.doc”的文檔（n代表它對應於原始文檔中的哪壹頁），並檢查它們的內容是否與原始文檔中每壹頁的內容相對應。
如果分節符分解後文檔中有空白頁，如果分解後沒有空白頁，則需要刪除文檔中的分節符。消除分節符的方法:
需要註意的事項
如果完全替換分節符，需要註意的是替換後可能會出現排版混亂的情況，需要手動排版。