在 Word 中，可用插入文件的方法把多個(gè)文件合并為一個(gè)文件，只需一次把所有要合并的文檔插入到一個(gè)文檔中保存即可。

一個(gè) Word 文檔也可以拆分為多個(gè)，方法有兩個(gè)，一個(gè)是按標(biāo)題樣式拆分，另一個(gè)是用宏 VBA 拆分。按標(biāo)題樣式拆分需要在拆分處設(shè)置一種標(biāo)題樣式，然后進(jìn)入大綱視圖拆分。用宏拆分可按頁(yè)拆分，即每頁(yè)拆分為一個(gè)文檔，也可按分節(jié)符或指定頁(yè)數(shù)拆分。

一、多個(gè)Word文檔合并為一個(gè)文檔

打開(kāi)一個(gè)要合并的Word文檔，把光標(biāo)定位到文檔后面，選擇“插入”選項(xiàng)卡，單擊“對(duì)象”右邊的指向下的箭頭，在彈出的菜單中選擇“在文件中的文字”，打開(kāi)“插入文件”窗口，定位到要合并文檔所在的文件夾，用鼠標(biāo)選中除已打開(kāi)文檔外的所有要合并的文檔（如果它們連在一起，選中第一個(gè)后，按住 Shift 鍵，單擊最后一個(gè)即可選中；如果它們不連續(xù)，選中一個(gè)后，按住 Ctrl 鍵，一個(gè)個(gè)單擊），單擊“插入”，則所選文檔被依次添加到第一個(gè)文檔后，按 Ctrl + S 保存即可。演示如圖1所示：

圖1

二、一個(gè)Word文檔怎么拆分成多個(gè)

假如要把文檔中的“三、四”兩部分拆分為獨(dú)立文檔。選中“三”部分的標(biāo)題，按住 Ctrl，再選中“四”部分的標(biāo)題，單擊“開(kāi)始”選項(xiàng)卡下的“標(biāo)題 1”，給它們?cè)O(shè)置該樣式。選擇“視圖”選項(xiàng)卡，單擊“大綱”進(jìn)入大綱視圖，單擊“三”前的加號(hào)小圖標(biāo)，按住 Shift，再單擊“四”前的加號(hào)小圖標(biāo)，把這兩部分選中。單擊“顯示文檔”，再單擊“創(chuàng)建”，則把“三、四”兩部分分別創(chuàng)建為獨(dú)立文檔。單擊“關(guān)閉大綱視圖”退出大綱視圖，按 Ctrl + S 保存，已經(jīng)生成兩個(gè)文檔。演示如圖2所示：

圖2

提示：要把那部分拆分為獨(dú)立文檔，只需把它的標(biāo)題應(yīng)用一種標(biāo)題樣式，然后在大綱視圖中選中要拆分的內(nèi)容，就可以把它們拆分了。

三、用宏 VBA 按頁(yè)拆分word文檔

用 Word 打開(kāi)要拆分的文檔，按 Alt + F11，打開(kāi)宏代碼編輯窗口，單擊“插入”，在彈出的菜單中選擇“模塊”，新建一個(gè)模塊，把以下代碼：

Option Explicit

Sub SplitPageAsADocument()

  Dim i As Integer

  Dim srcDoc As Document, newDoc As Document

  Dim srcDocName As String, newDocName As String

  Dim objRange As Range

  Dim fso As Object

  Set fso = CreateObject("Scripting.FileSystemObject") '創(chuàng)建一個(gè)文件對(duì)象

  Set srcDoc = ActiveDocument

  Set objRange = srcDoc.Content

  objRange.Collapse wdCollapseStart

  objRange.Select

  For i = 1 To ActiveDocument.Content.Information(wdNumberOfPagesInDocument)

    srcDoc.Bookmarks("page").Range.Copy

    srcDoc.Windows(1).Activate

    Application.Browser.Target = wdBrowsePage

    Application.Browser.Next

    srcDocName = srcDoc.FullName

    newDocName = fso.BuildPath(fso.GetParentFolderName(srcDocName), _
fso.GetBaseName(srcDocName) & _ & i & . & fso.GetExtensionName(srcDocName)) '生成新文檔名稱(chēng)

    Set newDoc = Documents.Add '創(chuàng)建一個(gè)新文檔

    Selection.Paste

    newDoc.SaveAs newDocName

    newDoc.Close False

  Next

  Set newDoc = Nothing

  Set objRange = Nothing

  Set srcDoc = Nothing

  Set fso = Nothing

  MsgBox "完成。"

End Sub

復(fù)制到所建的模塊窗口，單擊“運(yùn)行”，在彈出的菜單中選擇“運(yùn)行宏”（或按 F5）執(zhí)行代碼，一會(huì)后，拆分完成，拆分后的文檔被保存在原文檔所在的文件夾。