Note: The other languages of the website are Google-translated. Back to English

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!


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 ...
Sortera kommentarer efter
Kommentarer (3)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Tack för mycket hjälpsamma lösningar!!!!!!!!!!!
Denna kommentar minimerades av moderatoren på webbplatsen
tack. varifrån du lär dig vba
Denna kommentar minimerades av moderatoren på webbplatsen
Ciao, invece per eliminare "rapidamente" in un documento di svariate page (circa 100) più fogli vuoti non consecutivi è possibile?
Esiste un procedimento per eliminare i fogli vuoti, senza doverli andare a ricercare.

Tack.
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL