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

โซลูชั่น Word September 28, 2025
แบ่งปันเลย:

ในบทความนี้เราจะเน้นที่การสาธิตวิธีการลบหลาย ๆ หน้าในเอกสาร Word ของคุณผ่าน VBA

การร่างเอกสารจำเป็นต้องมีการปรับเปลี่ยนอยู่เสมอ และการลบเนื้อหาในหน้าต่างๆ ก็มีความจำเป็นเช่นเดียวกับการแก้ไขอื่นๆ การลบข้อความที่ไม่จำเป็นนั้นทำได้ง่าย คนส่วนใหญ่มักเลือกข้อความที่ต้องการลบ แล้วกดปุ่ม "ลบ" หรือ "แบ็คสเปซ" ก็เพียงพอแล้ว

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

ลบหน้าปัจจุบัน

สำหรับผู้ที่เกลียดการเลือกข้อความหลาย ๆ ข้อความนี่อาจเป็นพรของคุณ ก่อนอื่นมาแสดงวิธีลบเพจปัจจุบันผ่าน VBA

  1. เริ่มต้นด้วยการวางเคอร์เซอร์บนหน้าที่คุณต้องการลบ
  2. เปิดตัวแก้ไข VBA ใน Word โดยคลิกแท็บ "นักพัฒนา" แล้วคลิก "Visual Basic" หากแท็บ“ นักพัฒนา” ยังไม่มีใน Ribbon ให้กด“ Alt + F11” แทน
  3. ประการที่สองคลิก "ปกติ"
  4. จากนั้นคลิก "แทรก" และเลือก "โมดูล" ในเมนูนั้นคลิก "Normal" -> คลิก "Insert" -> คลิก "Module"
  5. เปิดโมดูลใหม่โดยดับเบิลคลิก
  6. และวางรหัสต่อไปนี้ที่นั่น:
Sub DeleteCurrentPage()
  Dim objDoc As Document
 
  ' Initialize
  Set objDoc = ActiveDocument
 
  ' Delete current page.
  objDoc.Bookmarks("\Page").Range.Delete
End Sub
  1. สุดท้ายคลิกปุ่ม“ Run” หรือกด“ F5”วางรหัส -> คลิก "เรียกใช้"

ลบหลายหน้า

  1. ทำตามขั้นตอนด้านบนเพื่อติดตั้งและเรียกใช้แมโคร
  2. แทนที่มาโครด้วยอันนี้:
Sub DeletePagesInDoc()
  Dim objRange As Range
  Dim strPage As String
  Dim objDoc As Document
  Dim nSplitItem As Long

  Application.ScreenUpdating = False
 
  ' Initialize and enter page numbers of pages to be deleted.
  Set objDoc = ActiveDocument
  strPage = InputBox("Enter the page numbers of pages to be deleted: " & vbNewLine & _
            "use comma to separate numbers", "Delete Pages", "For example: 1,3")
  nSplitItem = UBound(Split(strPage, ","))

  ' Find specified pages and highlight their contents.
  For nSplitItem = nSplitItem To 0 Step -1
    With ActiveDocument
      Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=Split(strPage, ",")(nSplitItem)
      Set objRange = .Bookmarks("\Page").Range
      objRange.Delete
    End With
  Next nSplitItem
 
  Application.ScreenUpdating = True
End Sub
  1. การเรียกใช้มาโครจะทริกเกอร์ช่องป้อนข้อมูล ป้อนหมายเลขหน้าของหน้าที่จะลบและใช้ลูกน้ำเพื่อคั่นหน้า อย่าใส่ช่องว่างหลังเครื่องหมายจุลภาค
  2. จากนั้นคลิก“ ตกลง” เพื่อดำเนินการต่อใส่หมายเลขหน้า -> คลิก "ตกลง"

แน่นอนคุณสามารถใช้มาโครนี้เพื่อลบเพจปัจจุบันได้ เพียงป้อนหมายเลขหน้า

อย่าปล่อยให้การทุจริตหยุดคุณ

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

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

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

แบ่งปันเลย:

ความเห็นถูกปิด