實用批量指定頁數(shù)合并和分割按

1、精選優(yōu)質文檔傾情為你奉上精選優(yōu)質文檔傾情為你奉上專心專注專業(yè)專心專注專業(yè)精選優(yōu)質文檔傾情為你奉上專心專注專業(yè)批量指定頁數(shù)合并和分割word如何把一個word多頁文檔拆分為單頁或多頁1、在Word里面打開那個需要分割的文檔（假設它的文件名叫做“原始文檔.doc”）；2、鍵入ALT+F11打開VBA編輯器，選擇菜單“插入-模塊”；3、粘貼下面的代碼：Option ExplicitSub SplitPagesAsDocuments() Dim oSrcDoc As Document, oNewDoc As Document Dim strSrcName As String, strNewName A

2、s 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(wdNumberOfPagesInDocume

3、nt) 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(st

4、rSrcName) 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 Sub4、鍵入F5運行，看到“完成！”結束。5、檢查當前文檔所在路徑下是否生成若干名為“原始文檔_n.doc”（n代表其對應原始文檔中的第幾頁）的文檔，檢查它們的內(nèi)容是否就對應于原始文檔每個頁面的

5、內(nèi)容。不過那個是按單頁拆分的。如果想按照指定頁數(shù)拆分，請使用下面的代碼，其它步驟和原來那個方案相同。Option Explicit Sub SplitEveryFivePagesAsDocuments() 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 Intege

6、r Dim fso As Object Const nSteps = 100 修改這里控制每隔幾頁分割一次 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

7、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 = wdBro

8、wsePage 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.Sav

9、eAs strNewName oNewDoc.Close False Next nIndex Set oNewDoc = Nothing Set oRange = Nothing Set oSrcDoc = Nothing Set fso = Nothing MsgBox 結束！End Sub批量合并word文檔Word當中的插入文件，一次只可以合并59個，將更多地Word文檔合并成一個文檔，方法如下：1、新建一個Word文檔，命名后保存到和要合并的多篇文檔所在的文件夾里。2、按ALT+F11進入宏編輯器。3、雙擊左上角的ThisDocument,在右側的代碼區(qū)粘貼代碼如下：Sub 合并文檔(

10、)Application.ScreenUpdating = FalseMyPath = ActiveDocument.PathMyName = Dir(MyPath & & *.doc)i = 0Do While MyName If MyName ActiveDocument.Name ThenSet wb = Documents.Open(MyPath & & MyName) Selection.WholeStory Selection.Copy Windows(1).Activate Selection.EndKey Unit:=wdLine Selection.TypeParagraph

11、 Selection.Pastei = i + 1wb.Close FalseEnd IfMyName = DirLoopApplication.ScreenUpdating = TrueEnd Sub4、運行，等候幾分鐘，即可完成合并。如何合并多個word文檔把大量 Word 文檔合并到一個文檔中，用復制粘貼太慢了，而用下列方法能快速合并。首先將要合并的多個 Word 文檔存放到同一個文件夾中，然后新建一個空白文檔，在菜單中選擇“插入 文件”，在彈出的“插入文件”窗口中選擇上述文件夾，然后用鼠標拖動選擇全部文件(或者使用“ Ctrl+A ”快捷鍵)，最后單擊“插入”按鈕即可完成所有文檔的合并。Word中插入多個word文檔時如何按順序插入Word 2003插入word文件,可選用菜單欄中的插入文件，比如選了10個word文檔插入進來了，可是這些文檔是無序的進來，即使事先將這些文檔名字改成1.doc，2.doc，3.doc也無濟于事，把word屬性的標題等刪了也無用。怎樣才能