<code id="631pk"><rp id="631pk"><big id="631pk"></big></rp></code><track id="631pk"></track>

<table id="631pk"></table>

      當前位置:主頁 > 健康知識 > 正文

      Word按頁拆分成多個獨立文檔(Word文檔拆分成多個文檔)

      前言|職場實例今天遇到了這樣的一個Word文檔問題:如何將一個Word文檔按頁拆分成多個獨立文檔?假設我們的這個Word文檔內含有頁,然后將這頁文檔按頁批量拆分成個單獨的Word文檔。如果在頁數數量少的情況下,我們完全可以通過手動一個一個新建Word文檔,然后將總文檔中的每頁內容復制粘貼到新建的一個一個的Word文檔中。但是如果頁數數據量大的話,再這樣無技巧的傻傻的工作,那效率就太低了。

      歐易okex

      下面小編就通過模擬一個簡單的例子來說明這個問題。如下圖所示:我們將含有2頁的名稱為“Excel情報局”的總Word文檔放在一個新建的文件夾內。

      這個名稱為“Excel情報局”的Word文檔中的2頁內容如下圖所示:第一頁為一首詞“將進酒”,第二頁同樣為一首詞“水調歌頭”。最終實現的效果是:將名稱為“Excel情報局”的Word文檔中的2頁內容按頁批量拆分成2個單獨的文檔,兩首詞分別放在兩個單獨的文檔中,如下圖所示:解決方案|解題步驟在文件夾內打開那個需要按頁拆分的文檔(本例中它的文件名叫做“Excel情報局”)鍵入ALT+F打開VBA編輯器(或者點擊“開發工具”選項卡,點擊"visualbasic,進入VBA編輯器)。點擊“插入-模塊”,將下面一段VBA代碼復制粘貼到該新建的模塊中。

      代碼如下:OptionExplicitSubSplitPagesAsDocuments()DimoSrcDocAsDocument,oNewDocAsDocumentDimstrSrcNameAsString,strNewNameAsStringDimoRangeAsRangeDimnIndexAsIntegerDimfsoAsObjectSetfso=CreateObject("Scripting.FileSystemObject")SetoSrcDoc=ActiveDocumentSetoRange=oSrcDoc.ContentoRange.CollapsewdCollapseStartoRange.SelectFornIndex=1ToActiveDocument.Content.Information(wdNumberOfPagesInDocument)oSrcDoc.Bookmarks("\page").Range.CopyoSrcDoc.Windows(1).ActivateApplication.Browser.Target=wdBrowsePageApplication.Browser.NextstrSrcName=oSrcDoc.FullNamestrNewName=fso.BuildPath(fso.GetParentFolderName(strSrcName),_fso.GetBaseName(strSrcName)&"_"&nIndex&"."&fso.GetExtensionName(strSrcName))SetoNewDoc=Documents.AddSelection.PasteoNewDoc.SaveAsstrNewNameoNewDoc.CloseFalseNextSetoNewDoc=NothingSetoRange=NothingSetoSrcDoc=NothingSetfso=NothingMsgBox"結束!"EndSub點擊上方的“運行-運行子過程/窗體”,稍等幾秒會彈出一個拆分成功結束的提示框,點擊“確定”后關閉VBA窗口,打開文件夾,發現已經拆分完成了,出現2個獨立的Word文檔。分別點擊打開拆分好的Word文檔,我們發現每首詞已經分別整齊的放置到了里面。

      版權聲明:本文來自互聯網,該文僅代表作者本人,不代表本站立場,不承擔相關法律責任,如有涉嫌抄襲、侵權和違法違規內容,請聯系我們QQ:3119355755,查實將立刻刪除。
      本文鏈接:http://www.naiqiutang.com/jkzs/4262.html

      最新文章

      超高清免费A片视频在线观看
      <code id="631pk"><rp id="631pk"><big id="631pk"></big></rp></code><track id="631pk"></track>

      <table id="631pk"></table>