Hur tar jag bort flera specifika sidor i ett Word-dokument?

I ett Word-dokument kan du välja det aktuella sidinnehållet och sedan trycka på Delete-tangenten för att enkelt ta bort den aktuella sidan. Men om du behöver ta bort flera sidor från en stor Word-fil, hur kan du lösa det snabbt?

Ta bort ett sidintervall i Word-dokument med Gå till-funktionen

Ta bort flera specifika sidor i Word-dokument med VBA-kod

Ta bort ett sidintervall i Word-dokument med Gå till-funktionen

Om du vill radera ett antal på varandra följande sidor från ett Word-dokument kan funktionen Gå till göra dig en tjänst.

1. Starta Word-dokumentet som du vill ta bort sidor.

2. Tryck sedan på F5 nyckel för att öppna Sök och ersätt under dialogrutan gå till fliken, klicka Sida i Gå till vad listrutan och ange sedan startsidan som du vill ta bort från och tryck på ange för att gå till den specifika sidan, se skärmdump:

2. Stäng sedan detta Sök och ersätt dialogrutan och tryck på F8 att slå på Förlängningsläge.

3. Fortsätt trycka F5 nyckel för att öppna Sök och ersätt dialogrutan, den här gången, ange slutet på sidnumret som du vill ta bort och tryck sedan på ange nyckel. Alla sidor från 15 till 20 har valts på en gång. Se skärmdump:

4. Äntligen, tryck Radera knapp direkt för att radera dessa sidor på en gång.

Ta bort flera specifika sidor i Word-dokument med VBA-kod

För att ta bort flera specifika sidor i en Word-fil som inte följer varandra, kan följande VBA-kod hjälpa dig.

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i modulfönstret.

VBA-kod: Ta bort flera specifika sidor i Word-filen:

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. Tryck sedan på F5 nyckel för att köra den här koden och en snabbruta dyker upp för att påminna dig om att ange sidnumren som du vill ta bort, separera sidnumren med kommatecken, se skärmdump:

4. Och klicka sedan på OK -knappen har alla sidor du angett tagits bort på en gång.

---

Rekommenderade Word-produktivitetsverktyg

 

Kutools For Word - Mer än 100 avancerade funktioner för Word, spara 50 % tid

• Komplicerade och upprepade operationer kan göras engångsbehandling på några sekunder.
• Infoga flera bilder över mappar i Word-dokumentet samtidigt.
• Slå ihop och kombinera flera Word-filer över mappar till en med önskad ordning.
• Dela upp det aktuella dokumentet i separata dokument enligt rubrik, avsnittbrytning eller andra kriterier.
• Konvertera filer mellan Doc och Docx, Docx och PDF, samling verktyg för vanliga konverteringar och val, och så vidare ...

Läs mer Hämta hem nu Inköp