1、在Word裡面開啟那個需要分割的文件（假設它的檔名叫做“原始文件.doc”）；鍵入ALT+F11開啟VBA編輯器，選擇選單“插入-模組”；貼上下面的程式碼：Option ExplicitSub SplitPagesAsDocuments()Dim oSrcDoc As Document, oNewDoc As DocumentDim 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鍵入F5執行，看到“完成！”結束。2、檢查當前文件所在路徑下是否生成若干名為“原始文件_n.doc”（n代表其對應原始文件中的第幾頁）的文件，檢查它們的內容是否就對應於原始文件每個頁面的內容。 如文件中有分節符分解後的文件會出現空白頁，如要分解後不出現空白頁，需要把文件中的分節符刪除。消除分節符的方法：注意事項分節符若全部替換，要注意替換後文檔可能會出現排版混亂，這則需要自己手動排版了。