Hvordan slettes flere specifikke sider i et Word-dokument?
I et Word-dokument kan du vælge det aktuelle sideindhold og derefter trykke på Slet-tasten for let at slette den aktuelle side. Men hvis du har brug for at fjerne flere sider fra en stor Word-fil, hvordan kan du løse det hurtigt?
Slet en række sider i Word-dokument med Gå til-funktionen
Slet flere specifikke sider i Word-dokument med VBA-kode
Slet en række sider i Word-dokument med Gå til-funktionen
Hvis du vil slette en række på hinanden følgende sider fra et Word-dokument, kan funktionen Gå til gøre dig en tjeneste.
1. Start det Word-dokument, som du vil slette sider.
2. Tryk derefter på F5 nøgle til at åbne Søg og erstat under dialogboksen gå til fanebladet, klik på Side i Gå til hvad i listen, og indtast derefter det startsidesnummer, du vil slette fra, og tryk på Indtast nøgle for at gå til den specifikke side, se skærmbillede:
2. Luk derefter dette Søg og erstat dialogboksen, og tryk på F8 at tænde Udvid tilstand.
3. Fortsæt med at trykke F5 nøgle til at åbne Søg og erstat dialog, denne gang skal du indtaste det sluttsidesnummer, du vil slette, og derefter trykke på Indtast nøgle. Alle sider fra 15 til 20 er valgt på én gang. Se skærmbillede:
4. Til sidst skal du trykke på Slette nøgle direkte for at slette disse sider på én gang.
Slet flere specifikke sider i Word-dokument med VBA-kode
For at slette flere specifikke sider i en Word-fil, som ikke er fortløbende, kan følgende VBA-kode hjælpe dig.
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i modulvinduet.
VBA-kode: Slet flere specifikke sider i Word-fil:
Sub DeletePagesInDoc()
Dim xRange As Range
Dim xPage As String
Dim xDoc As Document
Dim xArr
Dim I, xSplitCount As Long
Application.ScreenUpdating = False
Set xDoc = ActiveDocument
xPage = InputBox("Enter the page numbers of pages to be deleted: " & vbNewLine & _
"use comma to separate numbers", "KuTools for Word", "")
xArr = Split(xPage, ",")
xPageCount = UBound(xArr)
For I = xPageCount To 0 Step -1
Selection.GoTo wdGoToPage, wdGoToAbsolute, xArr(I)
xDoc.Bookmarks("\Page").Range.Delete
Next
Application.ScreenUpdating = True
End Sub
3. Tryk derefter på F5 nøgle til at køre denne kode, og der vises en promptboks for at minde dig om at indtaste de sidetal, du vil slette, skal du adskille sidetallene med komma, se skærmbillede:
4. Klik derefter på OK knappen, er alle de sider, du har angivet, slettet på én gang.
Vælg flere separate sider, og slet dem derefter på én gang: Hvis du vil slette flere specifikke sider fra et stort Word-dokument, Kutools for Word's Vælg Sider funktionen kan hjælpe dig med at vælge sider, som du har brug for, og derefter trykke på Slette for at slette dem med det samme.
Kutools for Word er det ultimative Word-tilføjelsesprogram, der strømliner dit arbejde og øger dine færdigheder i dokumentbehandling. Hent den nu! |
Bedste kontorproduktivitetsværktøjer
Kutools for Word - Forøg din Word-oplevelse med Over 100 Bemærkelsesværdige funktioner!
🤖 Kutools AI-funktioner: Generer indhold / Omskriv tekst / Dokument Q&A / Få hurtige svar / Oversæt dokumenter / Polsk dokument (bevar format)...
📘 Dokumentbeherskelse: Opdelt sider / Flet dokumenter / Eksporter udvalg i forskellige formater (PDF/TXT/DOC/HTML...) / Batch Konverter til PDF...
✏ Indholdsredigering: Batch Find og Erstat på tværs af flere filer / Ændr størrelse på alle billeder / Transponer tabelrækker og kolonner / Konverter tabel til tekst...
🧹 Ubesværet rengøring: Fej væk Ekstra pladser / Afsnit bryder / Tekstbokse / Hyperlinks / For mere fjernelse af værktøjer, gå til Fjern gruppe...
➕ Kreative indlæg: Indsæt Tusind adskillere / Afkrydsningsfelter / Radio knapper / QR kode / Stregkode / Flere billeder / Oplev mere i indsatte gruppe...
???? Præcisionsvalg: Find ud af Specifikke sider / tabeller / Former / Overskriftsparagraffer / Forbedre navigation med mere Type funktioner...
⭐ Stjerneforbedringer: Naviger til enhver placering / Auto-indsæt gentagen tekst / Skift mellem dokumentvinduer / 11 Konvertering Værktøjer...
Bedste kontorproduktivitetsværktøjer
Kutools for Word - 100+ værktøjer til Word
- 🤖 Kutools AI-funktioner: Generer, Omskriv, Opsummer, oversætte Dokumenter / Få hurtige svar / Polsk dokument (bevar format)
- 📘 Dokumentbeherskelse: Opdelt sider / Flet dokumenter / Batch Konverter til PDF
- ✏ Indholdsredigering: Batch Find og erstat / Ændr størrelse på alle billeder
- 🧹 Ubesværet rengøring: Fjern ekstra pladser / Fjern sektionsbrud
- ➕ Kreative indlæg: Indsæt tusinde separatorer / Indsæt afkrydsningsfelter / Opret QR-koder