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

วิธีการแยกเอกสารเป็นหลาย ๆ เอกสารใน Word?

หากคุณมีเอกสารคำศัพท์จำนวนมากซึ่งคุณต้องแบ่งออกเป็นหลาย ๆ เอกสารให้ใช้เวลาสักครู่เพื่ออ่านบทแนะนำนี้ บทช่วยสอนนี้จะแสดงวิธีการสองวิธีในการแยกเอกสารออกเป็นหลาย ๆ เอกสาร


แยกเอกสาร Word ตามตัวคั่นที่ระบุด้วย VBA

แทนที่จะแยกเอกสารออกเป็นหลาย ๆ เอกสารด้วยตนเองวิธีนี้จะแนะนำ 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) คุณไม่จำเป็นต้องเพิ่มตัวคั่นที่ส่วนท้ายของไฟล์ต้นฉบับหากคุณทำจะมีเอกสารว่างหลังจากแยก

แยกเอกสาร Word ทีละหน้าด้วย VBA

นี่คือ 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

หมายเหตุ เอกสารที่แยกจะถูกบันทึกไว้ที่เดียวกันกับไฟล์ต้นฉบับ


แยกเอกสาร Word ตามส่วนหัว / หน้า / ส่วน / แบ่งหน้าโดยใช้ Kutools for Word

หากคุณติดตั้ง Kutools for Word คุณสามารถใช้ไฟล์ แยก ฟังก์ชั่นเพื่อแยกเอกสารหนึ่งเอกสารออกเป็นหลาย ๆ หน้าได้อย่างง่ายดายส่วนหัวส่วนแบ่งหรือตัวแบ่งหน้าตามที่คุณต้องการใน Word

Kutools สำหรับ Word เป็นส่วนเสริมที่มีประโยชน์เพื่อให้งานของคุณง่ายขึ้นและเพิ่มความสามารถในการประมวลผลเอกสารคำ ทดลองใช้ฟรี 60 วัน! รับไปเดี๋ยวนี้เลย!

1.คลิก Kutools พลัส > แยก เพื่อเปิดใช้งาน แยก ลักษณะ

2. ในการเปิดกล่องโต้ตอบ Split ในหน้าจอคุณสามารถทำได้ดังนี้:

(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 Tab รองรับการประมวลผลที่คล้ายกันซึ่งช่วยให้คุณสามารถเรียกดูเอกสาร Word หลายรายการในหน้าต่าง Word เดียวและสลับไปมาระหว่างเอกสารเหล่านี้ได้อย่างง่ายดายโดยคลิกที่แท็บ คลิกเพื่อทดลองใช้คุณสมบัติเต็มรูปแบบฟรี!
เรียกดูเอกสารหลายคำในหน้าต่างเดียวเป็น Firefox


บทความที่เกี่ยวข้อง:



เครื่องมือเพิ่มประสิทธิภาพคำแนะนำ

 

Kutools For Word - คุณสมบัติขั้นสูงมากกว่า 100 รายการสำหรับ Word ประหยัดเวลา 50%

  • การดำเนินการที่ซับซ้อนและซ้ำ ๆ สามารถดำเนินการครั้งเดียวในไม่กี่วินาที
  • แทรกภาพหลาย ๆ โฟลเดอร์ลงในเอกสาร Word พร้อมกัน
  • ผสานและรวมไฟล์ Word หลาย ๆ ไฟล์ในโฟลเดอร์เข้าด้วยกันตามลำดับที่คุณต้องการ
  • แยกเอกสารปัจจุบันออกเป็นเอกสารแยกตามหัวข้อตัวแบ่งส่วนหรือเกณฑ์อื่น ๆ
  • แปลงไฟล์ระหว่าง Doc และ Docx, Docx และ PDF ชุดเครื่องมือสำหรับการแปลงและการเลือกทั่วไปและอื่น ๆ ...
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (45)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เมื่อฉันพยายามแยกเอกสาร เอกสารคำ โดยใช้รหัส VB ​​ด้านบน มันแยกโดยการลบรูปภาพและวัตถุที่แทรกทั้งหมด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันมีปัญหาคล้ายกับของ Dhamo ฉันเริ่มต้นด้วยไฟล์ขนาดใหญ่ที่มีการควบคุมเนื้อหาที่ฝังอยู่มากมาย เมื่อฉันแยกไฟล์ Word โดยใช้โค้ด VB การควบคุมเนื้อหาทั้งหมดจะถูกแปลงเป็นข้อความปกติ มีวิธีใดในการแบ่งไฟล์โดยไม่สูญเสียรูปแบบของต้นฉบับหรือไม่?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันจะแยก .doc ไม่ใช่หนึ่งหน้าต่อเอกสารโดยใช้สคริปต์เหล่านี้ได้อย่างไร เช่น 10 หรือ 5 หน้าต่อเอกสาร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เรียน ทีมงาน VBA สำหรับการแยกเอกสารเป็นเอกสารหน้าเดียวหลายหน้านั้นใช้งานได้ดี แต่ปัญหาคือเอกสารแยกไม่มีรูปแบบตาราง (รูปแบบตารางในเอกสารหลักไม่ได้จัดรูปแบบเป็นตารางในเอกสารแยก) ขอบคุณล่วงหน้าถ้าฉันสามารถหามาโครได้ เพื่อที่รูปแบบตารางในเอกสารหลักจะไม่ถูกรบกวนในเอกสารแยก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีประโยชน์มาก ขอบคุณ! เอกสารต้นฉบับของฉันมีการตั้งค่า 'อ่านอย่างเดียว' นี้ไม่ได้โอนไปยังเอกสารใหม่ นี้สามารถเพิ่ม?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Kutools for Word ไม่ทำงานสำหรับเอกสารแบบอ่านอย่างเดียว
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขออภัย ฉันไม่สามารถแบ่งหน้าด้วย Kutools ฉันจะทำอย่างไร? ฉันได้รับข้อความแสดงข้อผิดพลาด: Informationen ü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 เป็น System.Security.Util.StringExpressionSet.CanonicalizePath (เส้นทางสตริง บูลีน needFullPath) โดย System.Security.Util.StringExpressionSet.CreateListFromAccessions (String[] str, บูลีน needFullPath) เป็น System.Security.Permissions.FileIOPermission.AddPathList access, PermissionList AccessControlActions control, String[] pathListOrig, Boolean checkForDuplicates, Boolean needFullPath, Boolean copyPathList) โดย System.Security.Permissions.FileIOPermission..ctor(FileIOPermissionAccess access, String[] pathList, Boolean checkForDuplicates, บูลีน needIOPermission..ctor InternalCreateDirectoryHelper(เส้นทางสตริง, บูลีน checkHost) โดย System.IO.Directory.CreateDirectory(เส้นทางสตริง) โดย Kutools.FormDocumentSplit.€ () จาก Kutools.FormDocumentSplit.› (วัตถุ “ , EventArgs ” ) เป็น System.Windows.Forms.Control OnClick(EventArgs e) โดย System.Windows.Forms.Button.OnClick (EventArgs e) โดย System.Windows.Forms.Button.OnMouseUp (MouseEventArgs mevent) โดย System.Windows.F orms.Control.WmMouseUp(ข้อความ& m, ปุ่ม MouseButtons, การคลิก Int32) โดย System.Windows.Forms.Control.WndProc (ข้อความ& m) โดย System.Windows.Forms.ButtonBase.WndProc (ข้อความ& m) เป็น System.Windows.Forms Button.WndProc(Message& m) โดย System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m) โดย System.Windows.Forms.Control.Control.ControlNativeWindow.WndProc (Message& m) เป็น System.Windows.Forms.NativeWindow.Callback ( IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ยากเกินไปสำหรับผู้รับบำนาญที่จะเข้าใจว่าเกิดอะไรขึ้นกับวิธีเก่าที่ฉันใช้ windows XNUMX โปรแกรมนั้นง่ายมากสำหรับผู้สูงอายุอย่างเราที่จะปฏิบัติตาม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มาโครของคุณทำงาน จริงๆ อย่างไรก็ตาม ฉันต้องการให้เอกสารแยกส่วนเพื่อรักษาระยะขอบแคบและเค้าโครงสองคอลัมน์ โชคดีกว่าการตัดสิน(!) ฉันทำได้ด้วยตนเอง และผลลัพธ์ที่ได้ก็ตรงตามที่ฉันต้องการ จากนั้นฉันก็ใช้เครื่องบันทึกแมโคร แต่ไม่มีความรู้เกี่ยวกับ Word VBA เพื่อแก้ไขโค้ดที่บันทึกไว้เพื่อให้บรรลุเป้าหมายนี้ คุณช่วยได้ไหม ขอบคุณล่วงหน้า!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันลองใช้รหัสเอกสารแยกครั้งแรกแล้วไม่ได้ผล มันบอกว่ามันแบ่งออกเป็นสามส่วน แต่มันก็ไม่ได้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
VBA แรกจะแบ่งเอกสารปัจจุบันด้วยตัวคั่น "///" คุณได้เพิ่มตัวคั่น "///" ในเอกสารของคุณหรือไม่?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ลืมไป ฉันพยายามหลายครั้งกับตัวเลขตัวอักษร ซึ่งใช้ไม่ได้ แล้วฉันก็เห็นว่ามันลบความคิดเห็นของฉันไป เพียงสังเกตว่ารหัสแรกใช้ไม่ได้สำหรับฉัน มันบอกว่ามันเป็นการแบ่งเอกสารออกเป็นสามส่วน แต่ไม่ได้ผล
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใครรู้วิธีเปลี่ยนชื่อไฟล์หลังแยกไฟล์หลัก อยากเปลี่ยนชื่อตาม Header ของไฟล์
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันทำรหัส VBA: แบ่งเอกสารออกเป็นหลาย ๆ เอกสารตามตัวคั่น มันแยกเอกสาร แต่น่าเสียดายที่กราฟิกถูกลบ รวมถึงการจัดรูปแบบด้วย มีวิธีแก้ไขปัญหานี้หรือไม่?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับรหัสมาโคร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณ สิ่งนี้มีประโยชน์มาก!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณเพิ่งช่วยฉันประหยัดเวลาได้มาก ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณ!

คำถามหนึ่งข้อ คุณมีความคิดที่จะบันทึกเอกสารที่แยกออกมาทั้งหมดเป็น PDF หรือไม่?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันใช้โค้ดจากส่วน "Split Word Document By Page With VBA" มันทำงานเพื่อแยกเอกสารออก แต่ทำให้การจัดรูปแบบยุ่งเหยิง - ทำให้สิ่งที่ควรอยู่ใน 2 หน้าเป็น 5 แทน ฉันเล่นกับรหัสและลงเอยด้วยการหาวิธีแก้ไข


ฉันแทนที่บรรทัดนี้: docSingle.Range.Paste 'paste the clipboard contents to the new document

ด้วยบรรทัดนี้: docSingle.Range.PasteAndFormat (wdFormatOriginalFormatting)

หวังว่านี่จะช่วยคุณบางคนที่เคยมีปัญหาในการจัดรูปแบบ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันใช้โค้ดจากส่วน "Split Word Document By Page With VBA" ฉันจะแก้ไขโค้ดเพื่อรักษาส่วนหัวเดิมในไฟล์ใหม่ทั้งหมดได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เช่นเดียวกับส่วนเสริมการผสานแต่ละรายการ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณลักษณะ Split (Document) ของ Kutools for Word สามารถช่วยให้ผู้ใช้แยกเอกสาร Word ได้โดยไปที่หัวข้อ 1 ตัวแบ่งหน้า ตัวแบ่งส่วน หรือหน้า
นอกจากนี้ Kutools for Word ยังมีคุณลักษณะ Merge เพื่อรวมเอกสาร Word หลายฉบับเข้าไว้ด้วยกัน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันต้องแยกเอกสารโดยใช้ช่วงหน้า ตัวอย่างเช่นฉันต้องการแบ่ง 1 ถึง 10 หน้าในเอกสารอื่น ฉันจะทำอย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี - ฉันมีคำถามเดียวกันนี้ มีวิธีใดในการทำเช่นนี้?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณสามารถแบ่งเอกสารตามสไตล์ของหัวเรื่อง 1 เป็น "ตัวคั่น" ของคุณได้ไหม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีแอนดรู
สคริปต์ VBA สามารถแบ่งเอกสารทั้งหมดตามหน้า หากคุณต้องการแยกตามหัวข้อที่ 1 เราขอแนะนำให้ลองใช้คุณลักษณะ Kutools for Word's Split (เอกสาร)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
fodler ที่ดาวน์โหลดไม่เปิดเลย รอเป็นเวลานาน
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
โหลดเพิ่มเติม
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ