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

Jak usunąć wiele określonych stron w dokumencie programu Word?

W dokumencie programu Word możesz zaznaczyć zawartość bieżącej strony, a następnie nacisnąć klawisz Delete, aby łatwo usunąć bieżącą stronę. Ale jeśli chcesz usunąć wiele stron z dużego pliku Worda, jak możesz to szybko rozwiązać?

Usuń zakres stron w dokumencie programu Word za pomocą funkcji Przejdź do

Usuń wiele określonych stron w dokumencie Word z kodem VBA


Usuń zakres stron w dokumencie programu Word za pomocą funkcji Przejdź do

Jeśli chcesz usunąć szereg kolejnych stron z dokumentu programu Word, funkcja Idź do może Ci wyświadczyć przysługę.

1. Uruchom dokument Word, który chcesz usunąć strony.

2. Następnie naciśnij F5 klucz, aby otworzyć Znajdowanie i zamienianie okno dialogowe w obszarze przejdź do tab, kliknij Strona Idź do czego w polu listy, a następnie wprowadź numer strony początkowej, z której chcesz usunąć, i naciśnij Wchodzę klucz, aby przejść do określonej strony, zobacz zrzut ekranu:

doc usuń wiele stron 1

2. Następnie zamknij to Znajdowanie i zamienianie okno dialogowe i naciśnij F8 włączyć Tryb rozszerzania.

3. Kontynuuj naciskanie F5 klucz, aby otworzyć Znajdowanie i zamienianie tym razem wprowadź numer strony końcowej, którą chcesz usunąć, a następnie naciśnij Wchodzę klucz. Wszystkie strony od 15 do 20 zostały zaznaczone jednocześnie. Zobacz zrzut ekranu:

doc usuń wiele stron 2

4. W końcu naciśnij Usuń bezpośrednio, aby natychmiast usunąć te strony.


Usuń wiele określonych stron w dokumencie Word z kodem VBA

Poniższy kod VBA może Ci pomóc, aby usunąć wiele określonych stron w pliku Word, które nie są kolejne.

1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2, Kliknij wstawka > Modułi wklej następujący kod w oknie modułu.

Kod VBA: Usuń wiele określonych stron w pliku 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. Następnie naciśnij F5 Aby uruchomić ten kod, pojawia się okienko zachęty przypominające o wprowadzeniu numerów stron, które chcesz usunąć, oddziel numery stron przecinkami, patrz zrzut ekranu:

doc usuń wiele stron 3

4. A następnie kliknij OK przycisk, wszystkie wskazane strony zostały usunięte jednocześnie.


Wybierz wiele określonych stron, a następnie usuń je jednocześnie:

Jeśli chcesz usunąć wiele określonych stron z dużego dokumentu programu Word, Kutools dla Worda's Wybierz Strony Funkcja może pomóc najpierw wybrać potrzebne strony, a następnie nacisnąć Usuń klucz, aby je natychmiast usunąć.

doc usuń wiele stron 4

Kutools dla Worda: z ponad 100 przydatnymi dodatkami do Worda, które możesz wypróbować bez ograniczeń przez 60 dni. Kliknij, aby pobrać i bezpłatną wersję próbną teraz!


Zalecane narzędzia zwiększające produktywność programu Word

 

Kutools dla programu Word — ponad 100 zaawansowanych funkcji programu Word, oszczędzaj 50% czasu

  • Skomplikowane i powtarzalne operacje można wykonać jednorazowo w ciągu kilku sekund.
  • Wstaw wiele obrazów w folderach do dokumentu programu Word jednocześnie.
  • Scalaj i łącz wiele plików programu Word w folderach w jeden z żądaną kolejnością.
  • Podziel bieżący dokument na oddzielne dokumenty według nagłówka, podziału sekcji lub innych kryteriów.
  • Konwertuj pliki między Doc i Docx, Docx i PDF, zbiór narzędzi do typowych konwersji i zaznaczania, i tak dalej ...
Sortuj komentarze według
Komentarze (3)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
Dzięki za bardzo pomocne rozwiązania!!!!!!!!!!!!!
Ten komentarz został zminimalizowany przez moderatora na stronie
dzięki. skąd uczysz się vba
Ten komentarz został zminimalizowany przez moderatora na stronie
Ciao, invece per eliminare "rapidamente" w un documento di svariate pagine (około 100) più fogli vuoti non consecutivi è possibile?
Esiste un procedimento per eliminare i fogli vuoti, senza doverli andare a ricercare.

Dziękuję.
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL