前言|工作案例

今天發(fā)生了以下Word文檔問題：

如何按頁面將Word文檔拆分為多個單獨的文檔？

假設(shè)這個Word文檔包含1000頁。然后將1000頁文檔逐頁拆分為1000個單獨的Word文檔。如果頁面較少，則可以手動創(chuàng)建新的Word文檔，然后將整個文檔的每頁內(nèi)容復(fù)制并粘貼到新創(chuàng)建的Word文檔中。但是如果頁數(shù)多，又做這么沒有技巧的蠢事，效率太低了。(莎士比亞)。

下一篇通過模擬一個簡單的例子來說明這個問題。

如下圖所示。

我們把包括“Excel情報局”兩頁的整個Word文檔放在新創(chuàng)建的文件夾中。

這份名為Excel Intelligence Agency的Word文件的第2頁內(nèi)容如下：第一頁是“喝酒”，第二頁是“水歌”。

最終結(jié)果如下：

如下圖所示，將名為“Excel Intelligence”的Word文檔的第2頁內(nèi)容逐頁拆分為兩個單獨的文檔，并將兩個單詞分別放在兩個單獨的文檔中。

解決方案|故障排除步驟

打開需要在文件夾中逐頁拆分的文檔(在本例中，文件名為“Excel情報局”)。

輸入ALT F11以打開VBA編輯器(或者單擊“開發(fā)工具”選項卡，然后單擊“visual basic”以進入VBA編輯器)。

單擊“插入-模塊”，將以下VBA代碼復(fù)制并粘貼到新創(chuàng)建的模塊中。

代碼如下：

Option Explicit

Sub SplitPagesAsDocuments()

Dim osrcdoc as document、o newdoc as document

Dim strsrc name as string，str newname as string

Dim oRange As Range

Dim nIndex As Integer

Dim FSO As Object

set FSO=CreateObject(' Scri；)。

Set oSrcDoc=ActiveDocument

Set oRange=oSrcDoc。Content

ORange。Collapse wdCollapseStart

ORange。Select

for nindex=1 to AC(wdnumberofpagesindocument)

osrcdoc . bookmarks(' \ page '). range . copy

OSrcDoc。Windows(1)。Activate

A=wdBrowsePage

a

StrSrcName=oSrcDoc。FullName

StrNewName=(strSrcName)，_

(strsrcname)' _' nindex ' . '(strsrcname)

Set oNewDoc=Documen

單元歐共體

ONewDoc。SaveAs strNewName

ONewDoc。Close False

next

Set oNewDoc=Nothing

Set oRange=Nothing

Set oSrcDoc=Nothing

Set FSO=Nothing

MsgBox結(jié)束！’

End Sub

單擊上面的“運行-運行子進程/表單”后，拆分成功結(jié)束的提示框?qū)棾鰩酌腌?；單擊“確定”后，VBA窗口將關(guān)閉，文件夾將打開，拆分已完成，將出現(xiàn)兩個單獨的Word文檔。

為了打開分割的Word文檔，我們分別點擊，我們發(fā)現(xiàn)每個單詞已經(jīng)放得很整齊了。