Så här tar du snabbt bort flera sidor i ditt Word-dokument via VBA

I den här artikeln kommer vi att fokusera på att visa dig hur du tar bort flera sidor i ditt Word-dokument via VBA.

Att skriva ett dokument kräver ständiga justeringar. Och att ta bort innehållsförteckningar är lika nödvändigt som andra ändringar. Att ta bort onödig text är enkelt. De flesta väljer att göra en markering och sedan trycka på antingen "Delete" eller "Backspace".

Detta kommer säkert att ge dig vad du vill. Men det går snabbare att göra det. Dessutom hoppar du över urvalssteget och tar bort flera sidor samtidigt. Den tilltalande metoden är att köra ett Word-makro.

Ta bort aktuell sida

För dem som hatar att göra val över en rad text kan detta vara din välsignelse. Låt oss först visa hur du tar bort nuvarande sida via VBA.

1. Till att börja med sätter du markören på den sida du vill radera.
2. Öppna VBA-redigeraren i Word genom att klicka på fliken "Utvecklare" och sedan på "Visual Basic". Om fliken "Utvecklare" ännu inte finns i menyfliksområdet, tryck istället på "Alt + F11".
3. För det andra, klicka på “Normal”.
4. Klicka sedan på "Infoga" och välj "Modul" på den menyn.
5. Öppna den nya modulen genom att dubbelklicka.
6. Och klistra in följande koder där:

Sub DeleteCurrentPage()
  Dim objDoc As Document
 
  ' Initialize
  Set objDoc = ActiveDocument
 
  ' Delete current page.
  objDoc.Bookmarks("\Page").Range.Delete
End Sub

7. Slutligen, klicka på "Kör" -knappen eller tryck på "F5".

Ta bort flera sidor

1. Följ stegen ovan för att installera och köra ett makro.
2. Byt ut makrot med det här:

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

3. Körande makro utlöser en inmatningsruta. Ange sidnumret på sidorna som ska raderas och använd kommatecken för att separera dem. Ange inte ett mellanslag efter komma.
4. Klicka sedan på “OK” för att fortsätta.

Naturligtvis kan du använda detta makro för att ta bort aktuell sida. Ange bara sidnumret.

Låt inte korruption stoppa dig

När en datakatastrof inträffar kommer det garanterat att sakta ner ditt dagliga arbete och du måste också bära den extra kostnaden. För att säkerställa att dina data är säkra och sunda bör du kontakta en doc skada reparationsverktyg.

Författarintroduktion:

Vera Chen är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive fixa Excel och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com