多個Word文檔合并和一個word文檔怎么拆分成多個(按標題樣式和按頁拆分)

      網友投稿 3412 2022-06-08

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

      一個 Word 文檔也可以拆分為多個,方法有兩個,一個是按標題樣式拆分,另一個是用宏 VBA 拆分。按標題樣式拆分需要在拆分處設置一種標題樣式,然后進入大綱視圖拆分。用宏拆分可按頁拆分,即每頁拆分為一個文檔,也可按分節符或指定頁數拆分。

       

      一、多個Word文檔合并為一個文檔

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

      圖1

       

       

      二、一個Word文檔怎么拆分成多個

      假如要把文檔中的“三、四”兩部分拆分為獨立文檔。選中“三”部分的標題,按住 Ctrl,再選中“四”部分的標題,單擊“開始”選項卡下的“標題 1”,給它們設置該樣式。選擇“視圖”選項卡,單擊“大綱”進入大綱視圖,單擊“三”前的加號小圖標,按住 Shift,再單擊“四”前的加號小圖標,把這兩部分選中。單擊“顯示文檔”,再單擊“創建”,則把“三、四”兩部分分別創建為獨立文檔。單擊“關閉大綱視圖”退出大綱視圖,按 Ctrl + S 保存,已經生成兩個文檔。演示如圖2所示:

      圖2

      提示:要把那部分拆分為獨立文檔,只需把它的標題應用一種標題樣式,然后在大綱視圖中選中要拆分的內容,就可以把它們拆分了。

       

       

      三、用宏 VBA 按頁拆分word文檔

      用 Word 打開要拆分的文檔,按 Alt + F11,打開宏代碼編輯窗口,單擊“插入”,在彈出的菜單中選擇“模塊”,新建一個模塊,把以下代碼:

      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") '創建一個文件對象

        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)) '生成新文檔名稱

          Set newDoc = Documents.Add '創建一個新文檔

          Selection.Paste

          newDoc.SaveAs newDocName

          newDoc.Close False

        Next

        Set newDoc = Nothing

        Set objRange = Nothing

        Set srcDoc = Nothing

        Set fso = Nothing

        MsgBox "完成。"

      End Sub

      多個Word文檔合并和一個word文檔怎么拆分成多個(按標題樣式和按頁拆分)

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

      版權聲明:本文內容由網絡用戶投稿,版權歸原作者所有,本站不擁有其著作權,亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容,請聯系我們jiasou666@gmail.com 處理,核實后本網站將在24小時內刪除侵權內容。

      上一篇:Word選中多個圖片(批量選中)和選擇多個對象為什么是空白
      下一篇:Word中如何剪切,含用快捷鍵剪切圖片、一整頁、表格、文本框和剪切死機
      相關文章
      亚洲AV美女一区二区三区| 亚洲成色在线综合网站| 久久丫精品国产亚洲av| 亚洲中文字幕日产乱码高清app| 国产成人综合亚洲AV第一页| 精品亚洲国产成人av| 亚洲欧美中文日韩视频| 亚洲综合小说另类图片动图 | 日本亚洲欧美色视频在线播放| 亚洲天堂2016| 亚洲国产熟亚洲女视频| 精品亚洲456在线播放| 一本天堂ⅴ无码亚洲道久久| 亚洲日本天堂在线| 亚洲国产aⅴ成人精品无吗| 亚洲国产精品网站在线播放 | 亚洲日韩精品A∨片无码加勒比| 久久精品国产亚洲av麻豆蜜芽| 亚洲1区1区3区4区产品乱码芒果| 亚洲国产成人va在线观看网址| 亚洲欧洲精品一区二区三区| 亚洲免费视频播放| 亚洲高清中文字幕免费| 亚洲人成人网站18禁| 国产精品亚洲专区无码唯爱网| 亚洲AV成人精品一区二区三区| 日韩亚洲翔田千里在线| 亚洲人成电影网站国产精品| 国产亚洲情侣一区二区无码AV| 亚洲人成在线播放网站| 久久久综合亚洲色一区二区三区| 亚洲精品人成在线观看| 亚洲最大黄色网站| 日韩亚洲国产综合高清| 亚洲av无码片vr一区二区三区| 亚洲成A∨人片天堂网无码| 区久久AAA片69亚洲| 亚洲爱情岛论坛永久| 91大神亚洲影视在线| 亚洲娇小性xxxx色| 精品国产亚洲一区二区三区在线观看 |