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

Jak odstranit více konkrétních stránek v dokumentu Word?

V dokumentu Word můžete vybrat obsah aktuální stránky a poté stisknutím klávesy Odstranit snadno odstranit aktuální stránku. Ale pokud potřebujete odstranit více stránek z velkého souboru Word, jak to můžete rychle vyřešit?

Pomocí funkce Přejít na můžete odstranit rozsah stránek v dokumentu Word

Odstraňte více konkrétních stránek v dokumentu Word pomocí kódu VBA


Pomocí funkce Přejít na můžete odstranit rozsah stránek v dokumentu Word

Pokud chcete z dokumentu Wordu odstranit řadu po sobě jdoucích stránek, udělá vám laskavost funkce Přejít na.

1. Spusťte dokument Word, který chcete odstranit stránky.

2. Pak stiskněte tlačítko F5 klávesa pro otevření Najít a nahradit v dialogovém okně pod Přejít na klepněte na kartu Strana v Přejít na co seznamu, zadejte číslo úvodní stránky, ze které chcete odstranit, a stiskněte vstoupit klíč pro přechod na konkrétní stránku, viz screenshot:

doc smazat více stránek 1

2. Poté toto zavřete Najít a nahradit dialogové okno a stiskněte F8 zapnout Rozšířit režim.

3. Pokračujte v lisování F5 klávesa pro otevření Najít a nahradit dialogové okno, tentokrát zadejte číslo koncové stránky, které chcete odstranit, a stiskněte vstoupit klíč. Všechny stránky od 15 do 20 byly vybrány najednou. Viz snímek obrazovky:

doc smazat více stránek 2

4. Nakonec stiskněte Vymazat přímo k odstranění těchto stránek najednou.


Odstraňte více konkrétních stránek v dokumentu Word pomocí kódu VBA

Chcete-li odstranit více konkrétních stránek v souboru Word, které nenasledují za sebou, může vám pomoci následující kód VBA.

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do okna modulu.

Kód VBA: Smazání více konkrétních stránek v souboru Word:

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. Poté stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a zobrazí se okno s výzvou, které vám připomene zadání čísel stránek, která chcete odstranit, oddělte čísla stránek čárkou, viz screenshot:

doc smazat více stránek 3

4. A pak klikněte OK tlačítko, všechny stránky, které jste zadali, byly smazány najednou.


Vyberte několik konkrétních stránek a poté je najednou odstraňte:

Pokud chcete odstranit více konkrétních stránek z velkého dokumentu Word, Kutools pro Word's Vyberte stránky Tato funkce vám pomůže nejprve vybrat libovolnou stránku podle potřeby a poté stisknout Vymazat klíč k jejich okamžitému smazání.

doc smazat více stránek 4

Kutools pro Word: s více než 100 užitečnými doplňky Wordu, můžete to vyzkoušet bez omezení za 60 dní. Kliknutím stáhněte a vyzkoušejte zdarma!


Doporučené nástroje produktivity slov

 

Kutools pro Word - více než 100 pokročilých funkcí pro Word, ušetřete 50% času

  • Složité a opakované operace lze provádět jednorázově během několika sekund.
  • Vložte více obrázků do složek do dokumentu Word najednou.
  • Sloučte a zkombinujte více souborů Wordu napříč složkami do jednoho v požadovaném pořadí.
  • Rozdělte aktuální dokument na samostatné dokumenty podle záhlaví, zalomení sekce nebo jiných kritérií.
  • Převádějte soubory mezi Doc a Docx, Docx a PDF, kolekci nástrojů pro běžné převody a výběr atd. ...
Komentáře (3)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Děkuji za velmi užitečná řešení!!!!!!!!!!!
Tento komentář byl moderátorem webu minimalizován
dík. odkud se učíte vba
Tento komentář byl moderátorem webu minimalizován
Ciao, invece per eliminare "rapidamente" in un documento di svariate page (cca 100) più fogli vuoti non consecutivi è possibile?
Esiste un procedimento per eliminare and fogli vuoti, Senza doverli andare a ricecarcare.

Grazie.
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL