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.

---

Anbefalede Word-produktivitetsværktøjer

 

Kutools For Word - Mere end 100 avancerede funktioner til Word, spar 50 % tid

• Komplicerede og gentagne operationer kan udføres engangsbehandling på få sekunder.
• Indsæt flere billeder på tværs af mapper i Word-dokumentet på én gang.
• Flet og kombiner flere Word-filer på tværs af mapper i en med den ønskede rækkefølge.
• Opdel det aktuelle dokument i separate dokumenter efter overskrift, sektionsskift eller andre kriterier.
• Konverter filer mellem Doc og Docx, Docx og PDF, samling af værktøjer til almindelige konverteringer og markering osv. ...

Læs mere Hent nu Køb