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 ' Slett gjeldende side. 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 ' Initialiser og skriv inn sidetall på sider som skal slettes. Set objDoc = ActiveDocument strPage = InputBox("Skriv inn sidetallene til sidene som skal slettes: " & vbNewLine & _ "bruk komma for å skille tall", "Slett sider", "For eksempel: 1,3") nSplitItem = UBound( Split(strPage, ",")) ' Finn spesifiserte sider og fremhev innholdet. For nSplitItem = nSplitItem Til 0 Trinn -1 Med ActiveDocument Selection.GoTo What:=wdGoToPage, which:=wdGoToAbsolute, Count:=Split(strPage, ",")(nSplitItem) Sett 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