Slik sletter du raskt flere sider i Word-dokumentet ditt via VBA

I denne artikkelen vil vi fokusere på å vise deg hvordan du sletter flere sider i Word-dokumentet ditt via VBA.

Å lage et dokument krever justeringer hele tiden. Og sletting av sider med innhold er like nødvendig som andre modifikasjoner. Å fjerne ubrukelige tekster er enkelt. Most folk velger å gjøre et valg og trykker deretter på enten "Slett" eller "Tilbake" skal gjøre oppgaven.

Dette vil garantert gi deg det du ønsker. Men det er en raskere å gjøre det. Dessuten hopper du over valgtrinnet og sletter flere sider samtidig. Den tiltalende tilnærmingen er å kjøre en Word-makro.

Slett gjeldende side

For de som hater å velge over en rekke tekster, kan dette være din velsignelse. La oss først vise deg hvordan du sletter gjeldende side via VBA.

1. Til å begynne med, sett markøren på siden du vil slette.
2. Åpne VBA-redigering i Word ved å klikke på "Utvikler"-fanen og deretter "Visual Basic". Hvis "Utvikler"-fanen ennå ikke er tilgjengelig i båndet, trykk "Alt+ F11" i stedet.
3. For det andre, klikk "Normal".
4. Klikk deretter på "Sett inn" og velg "Modul" på den menyen.
5. Åpne den nye modulen ved å dobbeltklikke.
6. Og lim inn følgende koder der:

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

7. Til slutt klikker du på "Kjør"-knappen eller trykker på "F5".

Slett flere sider

1. Følg trinnene ovenfor for å installere og kjøre en makro.
2. Bytt ut makroen med denne:

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. Kjører makro vil utløse en inndataboks. Skriv inn sidenummeret på sidene som skal slettes, og bruk komma for å skille dem. Ikke skriv inn et mellomrom etter kommaet.
4. Klikk deretter "OK" for å fortsette.

Selvfølgelig kan du bruke denne makroen til å slette gjeldende side. Bare skriv inn sidenummeret.

Ikke la korrupsjon stoppe deg

Når en datakatastrofe inntreffer, vil det garantert redusere det daglige arbeidet ditt, og du må bære den ekstra cost også. For å være sikker på at dataene dine er trygge, bør du få tak i en doc skade reparasjonsverktøy.

Forfatterintroduksjon:

Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert fikse Excel og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med