3 วิธีในการลบตัวแบ่งส่วนทั้งหมดในเอกสาร Word ของคุณอย่างรวดเร็ว

ในบทความนี้ เราต้องการแชร์ 3 วิธีในการลบตัวแบ่งส่วนทั้งหมดในเอกสาร Word ของคุณอย่างรวดเร็ว

การแบ่งส่วนมีประโยชน์ในการสร้างหลายส่วนในเอกสาร Word คุณจึงสามารถจัดรูปแบบส่วนต่างๆ ในสไตล์ที่โดดเด่นได้ และนี่คือบทความก่อนหน้าของเราเพื่อให้คุณแทรกตัวแบ่งส่วนในเอกสารได้อย่างรวดเร็ว: 3 วิธีในการแทรกส่วนอย่างรวดเร็วแบ่งลงในเอกสาร Word ของคุณ

อย่างไรก็ตาม เป็นเรื่องปกติที่จะแก้ไขเอกสาร เช่น การเปลี่ยนสไตล์ การแบ่งส่วนใหม่ ฯลฯ โดยเฉพาะอย่างยิ่ง หากมีการปรับเปลี่ยนครั้งใหญ่ คุณอาจต้องลบตัวแบ่งส่วนทั้งหมดออก ต่อไปนี้เป็น 3 วิธีที่คุณสามารถใช้ลบตัวแบ่งส่วนเป็นชุดได้

วิธีที่ 1: ค้นหาตัวแบ่งส่วนทั้งหมดในเอกสาร

1. ก่อนอื่น กด "Ctrl+ H" เพื่อเปิดกล่อง "ค้นหาและแทนที่" ใน Word
2. จากนั้นให้วางเคอร์เซอร์ไว้ในกล่องข้อความ “ค้นหาอะไร”
3. คลิกปุ่ม "เพิ่มเติม" เพื่อดูตัวเลือกเพิ่มเติม
4. จากนั้นคลิก "พิเศษ" และเลือก "ตัวแบ่งส่วน" บนเมนู จากนั้นคุณจะเห็น “^b” ในกล่องข้อความ “ค้นหาอะไร” อีกวิธีหนึ่งคือการป้อน “^b” โดยตรงหลังจากขั้นตอนที่ 2
5. สุดท้ายปล่อยช่อง "แทนที่ด้วย" ว่างไว้แล้วคลิก "แทนที่ทั้งหมด" คลิก "ตกลง" ในกล่องยืนยัน

วิธีที่ 2: เรียกใช้มาโครเพื่อลบตัวแบ่งส่วนทั้งหมดในเอกสารเดียว

นี่คือวิธีอัตโนมัติสำหรับคุณในการกำจัดตัวแบ่งส่วนที่ไม่ต้องการทั้งหมด

1. ขั้นแรก ให้เปิดตัวแก้ไข VBA ใน Word โดยกด “Alt+ F11”
2. จากนั้นสร้างโมดูลใหม่โดยคลิก "ปกติ"
3. จากนั้นคลิก "แทรก" และเลือก "โมดูล"
4. ตอนนี้เปิดโมดูลด้วยการดับเบิลคลิก
5. ในช่องเขียนโค้ดทางด้านขวาให้วางรหัสต่อไปนี้:

Sub DeleteAllSectionsInOneDoc()
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "^b"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
  End With
End Sub

6. สุดท้ายคลิก“ เรียกใช้”

คุณจะพบว่าส่วนแบ่งทั้งหมดไม่มีที่ไหนเลยในเสี้ยววินาที

วิธีที่ 3: ลบตัวแบ่งส่วนทั้งหมดในเอกสารหลายชุด

ในทำนองเดียวกันเราต้องเรียกใช้แมโครหากเราต้องการทำอย่างรวดเร็วและสกปรก

1. ก่อนอื่น ให้รวบรวมเอกสารเป้าหมายทั้งหมดไว้ในโฟลเดอร์เดียวกัน
2. จากนั้นติดตั้งมาโครตามขั้นตอนในวิธีที่ 2
3. เรียกใช้แมโครนี้แทน:

Sub DeleteAllSectionBreaksInMultiDoc()
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "No folder is selected! Please select the target folder."
      Exit Sub
    End If
  End With
 
  strFile = Dir(StrFolder & "*.docx", vbNormal)
 
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=StrFolder & strFile)
 
    With Selection
      .HomeKey Unit:=wdStory
      With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "^b"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
    End With
 
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

4. ถัดไปในหน้าต่าง“ เรียกดู” เปิดขึ้นให้เลือกโฟลเดอร์ที่คุณบันทึกเอกสาร
5. สุดท้าย แต่ไม่ท้ายสุดให้คลิก“ ตกลง”

เตรียมพร้อมสำหรับข้อมูลสูญหาย

โดยปกติแล้ว ด้วยนิสัยการใช้งานที่ดี โชคดี และพรต่างๆ คุณจะสามารถทำอะไรได้มากมายใน Word แต่โปรแกรมอาจขัดข้องได้ทุกเมื่อ ดังนั้น การสำรองข้อมูลเอกสารเป็นประจำจึงมีความสำคัญอย่างยิ่ง เมื่อมีข้อมูลสำรอง คุณจะมีความมั่นใจมากขึ้นก่อนเริ่มใช้งาน แก้ไข docx.

บทนำผู้เขียน:

Vera Chen เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ การกู้คืน xls และ pdf ซ่อมแซมผลิตภัณฑ์ซอฟต์แวร์ ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.