Wie lösche ich mehrere bestimmte Seiten in einem Word-Dokument?
In einem Word-Dokument können Sie den aktuellen Seiteninhalt auswählen und dann die Entf-Taste drücken, um die aktuelle Seite einfach zu löschen. Wenn Sie jedoch mehrere Seiten aus einer großen Word-Datei entfernen müssen, wie können Sie dies schnell lösen?
Löschen Sie eine Reihe von Seiten im Word-Dokument mit der Funktion Gehe zu
Löschen Sie mehrere bestimmte Seiten im Word-Dokument mit VBA-Code
Löschen Sie eine Reihe von Seiten im Word-Dokument mit der Funktion Gehe zu
Wenn Sie mehrere aufeinanderfolgende Seiten aus einem Word-Dokument löschen möchten, kann Ihnen die Funktion Gehe zu einen Gefallen tun.
1. Starten Sie das Word-Dokument, das Sie löschen möchten.
2. Dann drücken F5 Schlüssel zum Öffnen des Suchen und Ersetzen Dialogfeld unter Gehe zu Tab, klicken Sie auf Seite der Geh zu was Listenfeld, geben Sie die Startseitennummer ein, aus der Sie löschen möchten, und drücken Sie Enter Taste, um zur jeweiligen Seite zu gelangen, siehe Screenshot:
2. Dann schließen Sie diese Suchen und Ersetzen Dialogfeld und drücken Sie F8 einschalten Modus erweitern.
3. Drücken Sie weiter F5 Schlüssel zum Öffnen des Suchen und Ersetzen Geben Sie diesmal im Dialogfeld die Endseitennummer ein, die Sie löschen möchten, und drücken Sie dann Enter Schlüssel. Alle Seiten von 15 bis 20 wurden gleichzeitig ausgewählt. Siehe Screenshot:
4. Zum Schluss drücken Sie Löschen Schlüssel direkt, um diese Seiten sofort zu löschen.
Löschen Sie mehrere bestimmte Seiten im Word-Dokument mit VBA-Code
Der folgende VBA-Code kann Ihnen helfen, um mehrere bestimmte Seiten in einer Word-Datei zu löschen, die nicht aufeinander folgen.
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Modulfenster ein.
VBA-Code: Löschen Sie mehrere bestimmte Seiten in der Word-Datei:
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. Dann drücken F5 Wenn Sie die Taste drücken, um diesen Code auszuführen, wird ein Eingabeaufforderungsfeld angezeigt, das Sie daran erinnert, die zu löschenden Seitenzahlen einzugeben. Trennen Sie die Seitenzahlen durch Komma. Siehe Abbildung:
4. Und dann klicken OK Schaltfläche, alle von Ihnen angegebenen Seiten wurden auf einmal gelöscht.
|
Wählen Sie mehrere bestimmte Seiten aus und löschen Sie sie gleichzeitig:
Wenn Sie mehrere bestimmte Seiten aus einem großen Word-Dokument löschen möchten, Kutools for Word's Wählen Sie Seiten Mit dieser Funktion können Sie zuerst beliebige Seiten auswählen und dann drücken Löschen Taste, um sie sofort zu löschen.
Kutools for Word: Mit mehr als 100 praktischen Word-Add-Ins können Sie diese in 60 Tagen ohne Einschränkung testen. Klicken Sie hier, um es herunterzuladen und kostenlos zu testen! |
Beste Office-Produktivitätstools
Kutools for Word - Steigern Sie Ihr Word-Erlebnis mit Over 100 Bemerkenswerte Funktionen!
🤖 Kutools KI-Assistent: Verwandeln Sie Ihr Schreiben mit KI – Inhalte generieren / Text umschreiben / Dokumente zusammenfassen / Erkundigen Sie sich nach Informationen basierend auf Dokument, alles in Word
📘 Dokumentenbeherrschung: Seiten teilen / Dokumente zusammenführen / Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...) / Stapelkonvertierung in PDF / Seiten als Bilder exportieren / Drucken Sie mehrere Dateien gleichzeitig...
✏ Inhaltsbearbeitung: Batch suchen und ersetzen über mehrere Dateien hinweg / Größe aller Bilder ändern / Vertauschen Sie Tabellenzeilen und -spalten / Tabelle in Text konvertieren...
🧹 Mühelose Reinigung: Wegfegen Zusätzliche Räume / Abschnittswechsel / Alle Header / Textfelder / Hyperlinks / Weitere Entfernungswerkzeuge finden Sie auf unserer Gruppe entfernen...
➕ Kreative Einsätze: Einfügen Tausend Trennzeichen / Kontrollkästchen / Radio Knöpfe / QR Code / Strichcode / Diagonale Linientabelle / Gleichungsbeschriftung / Bildunterschrift / Tabellenüberschrift / Mehrere Bilder / Entdecken Sie mehr im Gruppe einfügen...
🔍 Präzise Auswahl: Punktgenau bestimmte Seiten / Tabellen / Formen / Überschriften von Absätzen / Verbessern Sie die Navigation mit mehr Wählen Sie Funktionen aus...
⭐ Star-Verbesserungen: Navigieren Sie schnell zu jedem Ort / Sich wiederholenden Text automatisch einfügen / Wechseln Sie nahtlos zwischen Dokumentfenstern / 11 Konvertierungstools...
