Hoppa till huvudinnehåll

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:

doc ta bort flera sidor 1

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:

doc ta bort flera sidor 2

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:

doc ta bort flera sidor 3

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


Välj flera separata sidor och radera dem samtidigt:

Om du vill ta bort flera specifika sidor från ett stort Word-dokument, Kutools för Word's Välj sidor funktionen kan hjälpa dig att välja sidor först efter behov och sedan trycka på Radera för att radera dem på en gång.

doc ta bort flera sidor 4

Kutools för Word: med mer än 100 praktiska Word-tillägg, gratis att prova utan begränsning på 60 dagar. Klicka för att ladda ner och prova gratis nu!

Bästa kontorsproduktivitetsverktyg

Kutools för Word - Höj din ordupplevelse med Over 100 Anmärkningsvärda funktioner!

Dyk in i de markerade funktionerna nedan eller klicka här för att utforska den fulla kraften i Kutools för Word.

📘 Dokumentbehärskning: Dela sidor  /  Sammanfoga dokument  /  Exportera urval i olika format (PDF/TXT/DOC/XLSX)  /  Batchkonvertera till PDF  /  Exportera sidor som bilder  /  Skriv ut flera filer samtidigt ...

Innehållsredigering: Batch Hitta och ersätt över flera filer   /  Ändra storlek på alla bilder   /  Transponera tabellrader och kolumner  /  Konvertera tabell till text ...

🧹 Enkel rengöringSvep bort Extra utrymmen  /  Avsnitt bryter  /   Alla rubriker  /  Textrutor  /  Hyperlänkar  /  För fler borttagningsverktyg, gå till vår Remove Group

Kreativa inlägg: Insert Tusen avskiljare  /  Kryssrutor  /  radio Knappar  /  QR-kod  /  Streckkod  /  Diagonal linjebord  /  Bildtext för ekvation  /  Bild Bildtext  /  Tabelltextning  /  Flera bilder  /  Upptäck mer i vår Insert Group

🔍 Precisionsval: Hitta specifika sidor  /  Tabellerna  /  former  /  rubrikerna  /  Navigera med lätthet med hjälp av vår Select Group

Stjärnförbättringar: Navigera snabbt till vilken plats som helst  /  infoga repetitiv text automatiskt  /  växla sömlöst mellan dokumentfönster  /  11 Konverteringsverktyg ...

Förvandla dina Word-uppgifter med Kutools. 👉 Ladda ner med 30-dagars provversion nu 🚀.

Läs mer       Gratis nedladdning      Inköp
 
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Ciao, invece per eliminare "rapidamente" in un documento di svariate pagine (circa 100) più fogli vuoti non consecutivi è possibile?
Esiste un procedimento per eliminare i fogli vuoti, senza doverli andare a ricercare.

Grazie.
This comment was minimized by the moderator on the site
thanks. from where you learn the vba
This comment was minimized by the moderator on the site
Thanks for very helpful solutions!!!!!!!!!!!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations