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

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

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

โชคดีที่มีเครื่องมือที่มีประสิทธิภาพใน Word นั่นคือตัวแก้ไข VBA ดังนั้นเราจะใช้มาโครเพื่อช่วยคุณในการลบบุ๊กมาร์กหลายรายการในเอกสาร

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

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

Sub DeleteAllBookmarksInDoc()
  Dim objBookmark As Bookmark
  Dim nBookmark As Integer
  Dim strButtonValue As String
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  nBookmark = objDoc.Bookmarks.Count
  If nBookmark > 0 Then
    strButtonValue = MsgBox("Do you want to remove all " & nBookmark & " bookmark(s) in this document?", vbYesNo)
    If strButtonValue = vbYes Then
      For Each objBookmark In objDoc.Bookmarks
        objBookmark.Delete
      Next objBookmark
      MsgBox ("All bookmarks in this document have been deleted.")
    Else
      Exit Sub
    End If
  End If
 
  Application.ScreenUpdating = True
End Sub

6. จากนั้นคลิกปุ่ม“ Run”
7. ถัดไปคุณจะได้รับกล่องถาม และคุณสามารถดูจำนวนบุ๊กมาร์กทั้งหมดในเอกสารปัจจุบัน คลิก“ ใช่” เพื่อลบทั้งหมดหรือ“ ไม่ใช่” เพื่อออกจากมาโคร
8. หากคุณเลือก“ ใช่” คุณจะได้รับข้อความดังต่อไปนี้:

วิธีที่ 2: แบทช์ลบบุ๊กมาร์กทั้งหมดในส่วนที่เลือก

เป็นที่ยอมรับว่ามีบางครั้งที่คุณต้องลบบุ๊กมาร์กหลายรายการ แต่ยังคงสภาพเดิมไว้ ในทำนองเดียวกันเราจะเรียกใช้มาโครในส่วนที่เลือกเพื่อให้งานสำเร็จ

1. เริ่มต้นด้วยการทำตามขั้นตอนข้างต้นเพื่อติดตั้งและเรียกใช้มาโคร
2. อย่าลืมแทนที่มาโครด้วยอันนี้:

Sub DeleteAllBookmarksInSelection()
  Dim objBookmark As Bookmark
  Dim nBookmark As Integer
  Dim strButtonValue As String
 
  Application.ScreenUpdating = False
 
  nBookmark = Selection.Bookmarks.Count
  If nBookmark > 0 Then
    strButtonValue = MsgBox("Do you want to remove all " & nBookmark & " bookmark(s) in this selection?", vbYesNo)
    If strButtonValue = vbYes Then
      For Each objBookmark In Selection.Bookmarks
        objBookmark.Delete
      Next objBookmark
      MsgBox ("All " & nBookmark & " bookmark(s) in this selection have been deleted.")
    Else
      Exit Sub
    End If
  End If
 
  Application.ScreenUpdating = True
End Sub

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

ผลลัพธ์คือคุณจะมีเพียงบุ๊กมาร์กในส่วนที่เลือกเท่านั้น

เตรียมพร้อมสำหรับการทุจริตด้านเอกสาร

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

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

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