Snel meerdere pagina's in uw Word-document verwijderen via VBA

Word-oplossingen 28 september 2025

In dit artikel zullen we ons concentreren op het demonstreren hoe u meerdere pagina's in uw Word-document kunt verwijderen via VBA.

Het opstellen van een document vereist voortdurend aanpassingen. En het verwijderen van pagina's is net zo noodzakelijk als andere wijzigingen. Het verwijderen van overbodige tekst is eenvoudig. De meeste mensen kiezen ervoor om een ​​selectie te maken en vervolgens op 'Delete' of 'Backspace' te drukken.

Hiermee krijgt u zeker wat u wilt. Maar er is een snellere om dit te doen. Bovendien slaat u de selectiestap over en verwijdert u meerdere pagina's tegelijk. De aantrekkelijke benadering is om een ​​Word-macro uit te voeren.Verwijder snel meerdere pagina's in uw Word-document

Verwijder huidige pagina

Voor degenen die er een hekel aan hebben om een ​​selectie te maken uit een reeks tekst, kan dit uw zegen zijn. Laten we u eerst laten zien hoe u de huidige pagina via VBA kunt verwijderen.

  1. Plaats om te beginnen de cursor op de pagina die u wilt verwijderen.
  2. Open de VBA-editor in Word door op het tabblad "Ontwikkelaar" te klikken en vervolgens op "Visual Basic". Als het tabblad "Ontwikkelaar" nog niet beschikbaar is in het lint, drukt u in plaats daarvan op "Alt + F11".
  3. Ten tweede, klik op "Normaal".
  4. Klik vervolgens op "Invoegen" en kies "Module" in dat menu.Klik op "Normaal" -> Klik op "Invoegen" -> Klik op "Module"
  5. Open de nieuwe module door te dubbelklikken.
  6. En plak daar de volgende codes:
Sub DeleteCurrentPage()
  Dim objDoc As Document
 
  ' Initialize
  Set objDoc = ActiveDocument
 
  ' Delete current page.
  objDoc.Bookmarks("\Page").Range.Delete
End Sub
  1. Klik ten slotte op de knop "Uitvoeren" of druk op "F5".Plak Codes-> Klik op "Uitvoeren"

Verwijder meerdere pagina's

  1. Volg de bovenstaande stappen om een ​​macro te installeren en uit te voeren.
  2. Vervang de macro door deze:
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. Als u een macro uitvoert, wordt een invoervak ​​geactiveerd. Voer het paginanummer in van de pagina's die u wilt verwijderen en gebruik een komma om ze te scheiden. Voer geen spatie in na de komma.
  2. Klik vervolgens op "OK" om door te gaan.Voer paginanummers in-> klik op "OK"

U kunt deze macro natuurlijk gebruiken om de huidige pagina te verwijderen. Voer gewoon het paginanummer in.

Laat u niet tegenhouden door corruptie

Wanneer er een dataramp plaatsvindt, vertraagt ​​dit gegarandeerd uw dagelijkse werkzaamheden en krijgt u bovendien te maken met extra kosten. Om ervoor te zorgen dat uw gegevens veilig zijn, kunt u het beste een betrouwbare partner inschakelen. doc schade reparatie tool.

Auteur Introductie:

Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder Excel repareren en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com

Reacties zijn gesloten.