前言|工作案例

13日文章中介紹了“如何將Word文檔逐頁(yè)分解為多個(gè)單獨(dú)的文檔”?？梢栽诒驹?3日查看詳細(xì)的推文鏈接。

如果將Word文檔逐頁(yè)分割成多個(gè)單獨(dú)的文檔，同事一天的工作量只有30分鐘！

文章發(fā)表后立即有粉絲評(píng)論咨詢。

如何根據(jù)指定的頁(yè)數(shù)動(dòng)態(tài)拆分Word文檔？也就是說(shuō)，上述方法是逐頁(yè)拆分的。例如，如果要按指定的頁(yè)數(shù)進(jìn)行拆分(例如每2頁(yè)進(jìn)行拆分)，如何完成批量操作？

通過(guò)這一需求，我們發(fā)現(xiàn)，在職場(chǎng)事務(wù)中，我們面臨的問(wèn)題似乎變化無(wú)常，總是出現(xiàn)新的問(wèn)題，但只要我們學(xué)習(xí)半三、儲(chǔ)備知識(shí)，就能解決這些問(wèn)題。(莎士比亞。)(莎士比亞。)

如下圖所示。

文件夾內(nèi)存中存在需要拆分的名為“Excel智能代理總表”的Word文檔，其中包含4頁(yè)文檔，如下圖所示。

我們的要求如下。

每2頁(yè)拆分為單獨(dú)的Word文檔。也就是說(shuō)，最后分成兩個(gè)單獨(dú)的Word文檔，每個(gè)Word文檔顯示第2頁(yè)的內(nèi)容，每頁(yè)的內(nèi)容是一首鱒魚內(nèi)容。具體效果如下圖所示。

階段|解決方案

打開需要在文件夾內(nèi)逐頁(yè)拆分的文檔(在本例中文件名為“Excel情報(bào)局總表”)。

按一下「開發(fā)工具」頁(yè)簽，然后按一下「visual basic」以進(jìn)入VBA編輯器，或輸入ALT F11以開啟VBA編輯器。單擊“插入-模塊”創(chuàng)建新模塊以編輯輸入VBA代碼。

復(fù)制以下VBA代碼部分并將其粘貼到新創(chuàng)建的模塊中。單擊上面的“運(yùn)行-運(yùn)行子流程/表單”后，將彈出幾秒鐘的提示框，提示分區(qū)成功結(jié)束。單擊“確定”按鈕。

代碼如下：

Option Explicit

sub dynamicsplitpagesasdocuments()

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、nsubindex as integer、ntotalpages as integer和n bound as integer

Dim FSO As Object

Const nSteps=2

set FSO=CreateObject(' Scri；)。

Set oSrcDoc=ActiveDocument

Set oRange=oSrcDoc。Content

ntotal pages=AC(wdnumberofpagesindocument)

ORange。Collapse wdCollapseStart

ORange。Select

for nindex=1 to ntotal pages step n steps

Set oNewDoc=Documen

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

A=wdBrowsePage

a

ONewDoc。Activate

ONewDoc。Windows(1)。Selec

Next nSubIndex

StrSrcName=oSrcDoc。FullName

StrNewName=(strSrcName)，_

(strsrcname)' _' (nindex \ n steps)' . '(strsrcname)

ONewDoc。SaveAs strNewName

ONewDoc。Close False

Next nIndex

Set oNewDoc=Nothing

Set oRange=Nothing

Set oSrcDoc=Nothing

Set FSO=Nothing

MsgBox結(jié)束！’

EndSub最后關(guān)閉VBA窗口并關(guān)閉Word文檔。然后打開輸入文件夾，拆分完成，出現(xiàn)兩個(gè)單獨(dú)的Word文檔。

單擊以打開兩個(gè)拆分的Word文檔。發(fā)現(xiàn)每個(gè)單獨(dú)的Word文檔都有兩頁(yè)內(nèi)容。

最終效果截圖：

Word文檔根據(jù)指定的頁(yè)數(shù)動(dòng)態(tài)拆分，Excel Intelligence Agency總表Word文檔每2頁(yè)拆分一次，結(jié)果是兩個(gè)單獨(dú)的Word文檔，每個(gè)文檔顯示2頁(yè)，每頁(yè)顯示宋詞內(nèi)容。

重點(diǎn)代碼注釋：

代碼是固定模板，根據(jù)實(shí)際辦公室要求，只需要靈活修改以下句子。

Const nSteps=2

在此，您可以指定需要拆分的頁(yè)數(shù)。例如，每2頁(yè)拆分為小文檔。如果每3頁(yè)拆分成小文檔，則可以按如下方式修改：

Const nSteps=3