Note: The other languages of the website are Google-translated. Back to English

如何將文檔分成多個單詞?

如果您有大量的Word文檔,需要將其拆分為多個文檔,請花幾分鐘閱讀本教程。 本教程將向您展示兩種將文檔拆分為多個文檔的方法。


使用VBA通過指定的分隔符拆分Word文檔

此方法將引入VBA來通過Word中指定的分隔符將Word文檔拆分,而不是手動將文檔拆分為多個文檔。 請執行以下操作:

1。 按 Alt + F11鍵 鍵一起打開Microsoft Visual Basic for Application窗口;

2。 點擊 插入 > 模塊,然後將以下VBA代碼粘貼到新打開的“模塊”窗口中。

VBA:通過分隔符將Word文檔拆分為多個文檔

Sub SplitNotes(delim As String, strFilename As String)
Dim doc As Document
Dim arrNotes
Dim I As Long
Dim X As Long
Dim Response As Integer
arrNotes = Split(ActiveDocument.Range, delim)
Response = MsgBox("This will split the document into " & UBound(arrNotes) + 1 & " sections.Do you wish to proceed?", 4)
If Response = 7 Then Exit Sub
For I = LBound(arrNotes) To UBound(arrNotes)
If Trim(arrNotes(I)) <> "" Then
X = X + 1
Set doc = Documents.Add
doc.Range = arrNotes(I)
doc.SaveAs ThisDocument.Path & "\" & strFilename & Format(X, "000")
doc.Close True
End If
Next I
End Sub
Sub test()
'delimiter & filename
SplitNotes "///", "Notes "
End Sub

3。 然後點擊 按鈕或按F5鍵應用VBA。

4。 在彈出的Microsoft Word文檔中,請單擊“是”按鈕繼續。

備註:
(1)確保將分隔符添加為與 “ ///” 在子測試中,您要分隔的每個文本部分之間的文檔。 此外,您可以更改 “ ///” 任何分隔符,以滿足您的需要。
(2)您可以更改文件 “筆記” 在子測試中以滿足您的需求。
(3)分割文件將與原始文件保存在同一位置。
(4)不需要在原始文件的末尾添加定界符,如果這樣做,則分割後將出現空白文檔。

使用VBA按頁面拆分Word文檔

這是另一個VBA,可幫助您在Word中快速將一個Word文檔按頁面拆分成多個。 請執行以下操作:

1。 按 Alt + F11鍵 鍵一起打開Microsoft Visual Basic for Application窗口;

2。 點擊 插入 > 模塊,然後將以下VBA代碼粘貼到新打開的“模塊”窗口中。

VBA:在Word中按頁面將文檔拆分為多個文檔

Sub SplitIntoPages()
Dim docMultiple As Document
Dim docSingle As Document
Dim rngPage As Range
Dim iCurrentPage As Integer
Dim iPageCount As Integer
Dim strNewFileName As String
Application.ScreenUpdating = False 'Makes the code run faster and reduces screen _
flicker a bit.
Set docMultiple = ActiveDocument 'Work on the active document _
(the one currently containing the Selection)
Set rngPage = docMultiple.Range 'instantiate the range object
iCurrentPage = 1
'get the document's page count
iPageCount = docMultiple.Content.ComputeStatistics(wdStatisticPages)
Do Until iCurrentPage > iPageCount
If iCurrentPage = iPageCount Then
rngPage.End = ActiveDocument.Range.End 'last page (there won't be a next page)
Else
'Find the beginning of the next page
'Must use the Selection object. The Range.Goto method will not work on a page
Selection.GoTo wdGoToPage, wdGoToAbsolute, iCurrentPage + 1
'Set the end of the range to the point between the pages
rngPage.End = Selection.Start
End If
rngPage.Copy 'copy the page into the Windows clipboard
Set docSingle = Documents.Add 'create a new document
docSingle.Range.Paste 'paste the clipboard contents to the new document
'remove any manual page break to prevent a second blank
docSingle.Range.Find.Execute Findtext:="^m", ReplaceWith:=""
'build a new sequentially-numbered file name based on the original multi-paged file name and path
strNewFileName = Replace(docMultiple.FullName, ".doc", "_" & Right$("000" & iCurrentPage, 4) & ".doc")
docSingle.SaveAs strNewFileName 'save the new single-paged document
iCurrentPage = iCurrentPage + 1 'move to the next page
docSingle.Close 'close the new document
rngPage.Collapse wdCollapseEnd 'go to the next page
Loop 'go to the top of the do loop
Application.ScreenUpdating = True 'restore the screen updating
'Destroy the objects.
Set docMultiple = Nothing
Set docSingle = Nothing
Set rngPage = Nothing
End Sub 

3。 然後點擊 按鈕或按下 F5 應用VBA的關鍵。

備註: 拆分文檔將與原始文件保存在同一位置。


使用Kutools for Word通過標題/頁面/分節符/分頁符拆分Word文檔

如果您安裝了Kutools for Word,則可以應用它 分裂 功能可輕鬆在Word中按頁面,標題,分節符或分頁符將一個文檔拆分為多個文檔。

Kutools for Word 是一個方便的插件,可以簡化您的工作並提高您處理word文檔的能力。 免費試用 60 天! 現在得到它!

1。點擊 Kutools 加 > 分裂 使之成為可能 分裂 功能。

2。 在屏幕上打開的“拆分”對話框中,您可以執行以下操作:

(1)從 分割為 下拉列表。
此功能支持6種拆分方式:標題1,分頁符,分節符,頁面,每n頁和自定義頁面範圍,如下面的屏幕截圖所示:

(2)點擊 瀏覽 按鍵  指定 將拆分文檔保存到的目標文件夾;

(3)在關鍵字欄中輸入關鍵字作為新文檔名稱的前綴。 文件前綴 框。

提示:
(1)如果指定拆分當前文檔 每n頁,您需要在 每n頁 框;

(2)如果您指定按自定義頁面範圍分割當前文檔,則需要在這些自定義頁面範圍中輸入用逗號分隔的自定義頁面範圍。 框,例如,在框中鍵入1、3-5、12。

3。 點擊 Ok 按鈕開始拆分。

然後,以指定的拆分方式拆分當前文檔,新文檔將批量保存到目標文件夾中。

分頁瀏覽和編輯多個Word文檔,例如Firefox,Chrome,Internet Explore 10!

您可能很熟悉在Firefox / Chrome / IE中查看多個網頁,並通過輕鬆單擊相應的選項卡在它們之間進行切換。 在這裡,Office選項卡支持類似的處理,使您可以在一個Word窗口中瀏覽多個Word文檔,並通過單擊其選項卡輕鬆在它們之間切換。 單擊可獲得全部功能,免費試用!
使用Firefox在一個窗口中瀏覽多個Word文檔


相關文章:



推薦的Word生產力工具

 

Kutools For Word - 超過 100 Word 的高級功能, 節省您的 50% 時間

  • 複雜和重複的操作可以在幾秒鐘內完成一次處理。
  • 跨文件夾一次將多個圖像插入Word文檔。
  • 將文件夾中的多個Word文件合併並合併為所需順序。
  • 根據標題,分節符或其他條件將當前文檔拆分為單獨的文檔。
  • 在Doc和Docx之間,Docx和PDF之間轉換文件,用於常見轉換和選擇的工具集合等...
按評論排序
留言 (45)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
當我嘗試使用上面的 VB 代碼拆分 word 文檔時,它通過刪除所有圖像和插入對象來拆分。
網站主持人對此評論進行了最小化
我遇到了與 Dhamo 類似的問題。 我從一個包含許多嵌入式內容控件的大文件開始。 當我使用 VB 代碼拆分 Word 文件時,內容控件全部轉換為常規文本。 有什麼方法可以拆分文件而不丟失原始格式?
網站主持人對此評論進行了最小化
你好。 如何使用這些腳本將 .doc 拆分為每個文檔而不是一頁? 例如,每個文檔 10 或 5 頁
網站主持人對此評論進行了最小化
親愛的團隊,用於將文檔拆分為多個單頁文檔的 VBA 運行良好,但問題是拆分文檔沒有表格格式。(主文檔中的表格格式未格式化為拆分文檔中的表格)。 如果我能獲得宏,請提前感謝,以便主文檔中的表格格式不會在拆分文檔中受到干擾
網站主持人對此評論進行了最小化
很有幫助謝謝! 我的原始文檔設置為“只讀”。 這不會轉移到新文檔中。 這個可以加嗎?
網站主持人對此評論進行了最小化
Kutools for Word 不適用於只讀文檔。
網站主持人對此評論進行了最小化
不幸的是,我無法使用 Kutools 拆分頁面。 我能做些什麼? 我收到此錯誤消息:Informen über das Aufrufen von JIT-Debuggen anstelle dieses Dialogfelds finden Sie am Ende dieser Meldung。 ************** Ausnahmetext ************** System.NotSupportedException: Das angegebene Pfadformat wird nicht unterstützt。 bei System.Security.Util.StringExpressionSet.CanonicalizePath(String path, Boolean needFullPath) bei System.Security.Util.StringExpressionSet.CreateListFromExpressions(String[] str, Boolean needFullPath) bei System.Security.Permissions.FileIOPermission.AddPathList(FileIOPermissionAccess access, AccessControlActions 控件,String[] pathListOrig, Boolean checkForDuplicates, Boolean needFullPath, Boolean copyPathList) bei System.Security.Permissions.FileIOPermission..ctor(FileIOPermissionAccess access, String[] pathList, Boolean checkForDuplicates, Boolean needFullPath) bei System.IO.Directory。 InternalCreateDirectoryHelper(String path, Boolean checkHost) bei System.IO.Directory.CreateDirectory(String path) bei Kutools.FormDocumentSplit.€ () bei Kutools.FormDocumentSplit.› (Object “, EventArgs”) bei System.Windows.Forms.Control. OnClick(EventArgs e) bei System.Windows.Forms.Button.OnClick(EventArgs e) bei System.Windows.Forms.Button.OnMouseUp(MouseEventArgs 事件) bei System.Windows.F orms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks) bei System.Windows.Forms.Control.WndProc(Message& m) bei System.Windows.Forms.ButtonBase.WndProc(Message& m) bei System.Windows.Forms。 Button.WndProc(Message& m) 貝 System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m) 貝 System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m) 貝 System.Windows.Forms.NativeWindow.Callback( IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
網站主持人對此評論進行了最小化
養老金領取者很難理解 Windows XNUMX 的舊方式發生了什麼,該程序對我們這些老年人來說非常容易遵循。
網站主持人對此評論進行了最小化
你的宏有效 真的 好吧,但是,我要求拆分文檔保留它們的窄邊距和兩個列佈局。 比判斷(!)更幸運的是,我設法手動實現了這一點,最終結果完全符合我的要求。 然後我使用宏記錄器但不具備 Word VBA 知識來更改記錄的代碼以實現此目的。 你能幫我嗎? 提前致謝!
網站主持人對此評論進行了最小化
我嘗試了第一個拆分文檔代碼,但它不起作用。 它說要把它分成三個部分,但它沒有。
網站主持人對此評論進行了最小化
第一個 VBA 將通過分隔符“///”分割當前文檔。 您是否在文檔中添加了拆分分隔符“///”?
網站主持人對此評論進行了最小化
算了,我用字母數字試了幾次,都沒有用,然後我看到它刪除了我的評論。 只是要注意第一個代碼對我不起作用,它說它將文檔分成三個部分,但沒有。
網站主持人對此評論進行了最小化
有誰知道在拆分主要文件後如何更改文件名我想根據文件的標題更改名稱
網站主持人對此評論進行了最小化
我做了VBA代碼:根據分隔符將文檔拆分為多個文檔,它確實拆分了文檔,但不幸的是圖形被刪除了,也被格式化了。 有針對這個的解決方法嗎?
網站主持人對此評論進行了最小化
感謝宏代碼
網站主持人對此評論進行了最小化
謝謝,這很有幫助!
網站主持人對此評論進行了最小化
你剛剛為我節省了很多時間,謝謝!
網站主持人對此評論進行了最小化
謝謝 !

一個問題您是否有任何想法將所有拆分的文檔保存為 PDF?
網站主持人對此評論進行了最小化
我使用了“使用 VBA 按頁面拆分 Word 文檔”部分中的代碼。 它可以將文檔拆分出來但弄亂了格式 - 導致應該在 2 頁上的內容改為在 5 頁上。 我玩弄了代碼並最終找到了解決方案。


我替換了這一行: docSingle.Range.Paste '將剪貼板內容粘貼到新文檔

使用這一行: docSingle.Range.PasteAndFormat (wdFormatOriginalFormatting)

希望這可以幫助一些遇到格式問題的人。
網站主持人對此評論進行了最小化
我使用了“使用 VBA 按頁面拆分 Word 文檔”部分中的代碼。 我應該如何修改代碼以維護所有新文件中的原始標題?
網站主持人對此評論進行了最小化
像個人合併附加組件
網站主持人對此評論進行了最小化
Kutools for Word 的拆分(文檔)功能可以幫助用戶通過標題 1、分頁符、分節符或分頁來拆分 Word 文檔。
此外,Kutools for Word 還包括合併功能,可將多個 Word 文檔合併為一個。
網站主持人對此評論進行了最小化
我需要使用頁面範圍拆分文檔。 例如,我想在另一個文檔中拆分 1 到 10 頁。 我該怎麼做
網站主持人對此評論進行了最小化
嗨 - 我有同樣的問題,有什麼辦法嗎?
網站主持人對此評論進行了最小化
您可以根據標題 1 樣式拆分文檔作為“分隔符”嗎?
網站主持人對此評論進行了最小化
嗨安德魯,
VBA 腳本可以逐頁拆分整個文檔。 如果您需要按標題 1 拆分,我們建議您嘗試 Kutools for Word 的拆分(文檔)功能。
網站主持人對此評論進行了最小化
下載的文件夾根本打不開。 等待了很長時間。
這裡還沒有評論
載入更多
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護