ในบทความนี้จะมี 2 วิธีที่รวดเร็วในการเปลี่ยนประเภทของตัวแบ่งส่วนในเอกสาร Word ของคุณ
รูปแบบการแบ่งส่วนที่ใช้บ่อยที่สุดใน Word คือ “ขึ้นหน้าใหม่” และ “ต่อเนื่อง” การใช้แบบแรกหมายถึงการขึ้นหน้าใหม่สำหรับส่วนใหม่ ซึ่งจะแบ่งส่วนต่างๆ ได้อย่างชัดเจน แต่เมื่อถึงเวลาพิมพ์ จะต้องพิมพ์เอกสารจำนวนมาก ซึ่งแน่นอนว่าไม่เป็นมิตรต่อสิ่งแวดล้อม ดังนั้น คุณอาจพิจารณาใช้การแบ่งส่วนแบบ “ต่อเนื่อง” ซึ่งจะช่วยประหยัดกระดาษได้มาก แต่ก็อาจไม่ตอบโจทย์เรื่องการแบ่งส่วนที่ชัดเจนเท่าที่ควร
ดังนั้นเราจึงต้องการแนะนำวิธีที่คุณสามารถเลือกได้ตามความต้องการเฉพาะ
วิธีที่ 1: เปลี่ยนการตั้งค่าหน้ากระดาษ
- ขั้นแรก ให้วางเคอร์เซอร์ไว้ภายในส่วนที่ต้องการแก้ไข แล้วคลิกแท็บ “เค้าโครงหน้ากระดาษ” ในแถบ Ribbon
- จากนั้นคลิกปุ่มลูกศรในกลุ่ม“ การตั้งค่าหน้ากระดาษ” เพื่อเปิดกล่องโต้ตอบชื่อเดียวกัน
- จากนั้นคลิกแท็บ "เค้าโครง" ในช่อง
- จากนั้นเลือกประเภทการแบ่งส่วนที่ต้องการจากช่องคอมโบของ “จุดเริ่มต้นส่วน”
- ถัดไปในกล่องคำสั่งผสม“ ใช้กับ” เลือกช่วงที่ใช้ คุณสามารถเลือกที่จะเปลี่ยนประเภทของตัวแบ่งส่วนเดียวหรือหลายส่วนได้เช่นกัน
นี่คือผลลัพธ์:
วิธีที่ 2: เรียกใช้ Word Macro เพื่อเปลี่ยนประเภทของตัวแบ่งส่วนทั้งหมดในเอกสาร
- เริ่มต้นด้วยการกดปุ่ม “Alt+F11” เพื่อเรียกใช้ตัวแก้ไข VBA ใน Word
- จากนั้นคลิกโครงการ“ ปกติ” แล้วคลิกแท็บ“ แทรก” บนแถบเมนู
- จากนั้นเลือก "โมดูล" ในเมนูแบบเลื่อนลง
- ดับเบิลคลิกถัดไปที่โมดูลใหม่เพื่อเปิด
- ตอนนี้อยู่ในพื้นที่แก้ไขให้วางรหัสเหล่านี้:
Sub ChangeNextPageBreakToContinuous()
Dim nSectionNum As Integer
Dim objDoc As Document
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
nSectionNum = objDoc.Sections.Count
For nSectionNum = nSectionNum To 1 Step -1
With objDoc.Sections(nSectionNum).Range.PageSetup
If .SectionStart = wdSectionNewPage Then
.SectionStart = wdSectionContinuous
End If
End With
Next nSectionNum
Application.ScreenUpdating = True
End Sub
- กด "F5" เพื่อเรียกใช้มาโคร
มาโครนี้จะเปลี่ยนตัวแบ่งส่วนทั้งหมดในประเภท "หน้าถัดไป" เป็น "ต่อเนื่อง" ผลลัพธ์จะเหมือนกับวิธีที่ 1
ตอนนี้หากคุณต้องการเปลี่ยนตัวแบ่งส่วนต่อเนื่องทั้งหมดเป็นประเภท "หน้าถัดไป" ให้ใช้มาโครต่อไปนี้:
Sub ChangeContinuousBreakToNextPageBreak()
Dim nSectionNum As Integer
Dim objDoc As Document
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
nSectionNum = objDoc.Sections.Count
For nSectionNum = nSectionNum To 1 Step -1
With objDoc.Sections(nSectionNum).Range.PageSetup
If .SectionStart = wdSectionContinuous Then
.SectionStart = wdSectionNewPage
End If
End With
Next nSectionNum
Application.ScreenUpdating = True
End Sub
เครื่องมือในการซ่อมแซมเอกสาร
ไม่น่าจะเจอปัญหา Word และจบลงด้วย docx เสียหาย. ดังนั้นคุณต้องดำเนินการทันที และวิธีที่เร็วที่สุดในการกู้คืนข้อมูลของคุณคือการเลือกเครื่องมือซ่อมแซมที่มีคุณสมบัติเหมาะสม
บทนำผู้เขียน:
Vera Chen เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ ซ่อม xls และ pdf ซ่อมแซมผลิตภัณฑ์ซอฟต์แวร์ ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.



