Comment supprimer plusieurs pages spécifiques dans un document Word?

Dans un document Word, vous pouvez sélectionner le contenu de la page actuelle, puis appuyez sur la touche Suppr pour supprimer facilement la page actuelle. Mais, si vous devez supprimer plusieurs pages d'un gros fichier Word, comment pouvez-vous le résoudre rapidement?

Supprimer une plage de pages dans un document Word avec la fonctionnalité Atteindre

Supprimer plusieurs pages spécifiques dans un document Word avec le code VBA

Supprimer une plage de pages dans un document Word avec la fonctionnalité Atteindre

Si vous souhaitez supprimer une plage de pages consécutives d'un document Word, la fonctionnalité Atteindre peut vous rendre service.

1. Lancez le document Word dont vous souhaitez supprimer des pages.

2. Puis appuyez F5 clé pour ouvrir le Rechercher et remplacer boîte de dialogue, sous la Aller à onglet, cliquez sur Page dans l' Aller à quoi zone de liste, puis entrez le numéro de la page de démarrage à supprimer, puis appuyez sur Entrer touche pour accéder à la page spécifique, voir capture d'écran:

2. Ensuite, fermez ceci Rechercher et remplacer boîte de dialogue et appuyez sur F8 pour activer le Mode d'extension.

3. Continuez d'appuyer F5 clé pour ouvrir le Rechercher et remplacer boîte de dialogue, cette fois, entrez le numéro de la page de fin à supprimer, puis appuyez sur Entrer clé. Toutes les pages de 15 à 20 ont été sélectionnées en même temps. Voir la capture d'écran:

4. Enfin, appuyez sur Supprimer touchez directement pour supprimer ces pages à la fois.

Supprimer plusieurs pages spécifiques dans un document Word avec le code VBA

Pour supprimer plusieurs pages spécifiques d'un fichier Word qui ne sont pas consécutives, le code VBA suivant peut vous aider.

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Moduleet collez le code suivant dans la fenêtre Module.

Code VBA: supprimez plusieurs pages spécifiques du fichier 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. Puis appuyez F5 clé pour exécuter ce code, et une boîte de dialogue s'affiche pour vous rappeler d'entrer les numéros de page que vous souhaitez supprimer, veuillez séparer les numéros de page par une virgule, voir capture d'écran:

4. Et puis, cliquez OK , toutes les pages que vous avez spécifiées ont été supprimées en même temps.

Meilleurs outils de productivité bureautique

Kutools for Word - Élevez votre expérience Word avec Over 100 Caractéristiques remarquables !

🤖 Assistant IA Kutools: Transformez votre écriture avec l'IA - Générer du contenu  /  Réécrire le texte  /  Résumer des documents  /  Demander des informations basé sur le document, le tout dans Word

(I.e. Maîtrise des documents: Pages divisées  /  Fusionner des documents  /  Exporter la sélection dans différents formats (PDF/TXT/DOC/HTML...)  /  Conversion par lots en PDF  /  Exporter des pages sous forme d'images  /  Imprimer plusieurs fichiers à la fois

✏ Édition du contenu: Rechercher et remplacer par lots sur plusieurs fichiers  /  Redimensionner toutes les images  /  Transposer les lignes et les colonnes du tableau  /  Convertir le tableau en texte

🧹 Nettoyage sans effort : balayer Espaces supplémentaires  /  Sauts de section  /  Tous les en-têtes  /  Boîtes de texte  /  Liens hypertextes  / Pour plus d'outils de suppression, rendez-vous sur notre Supprimer le groupe

➕ Insertions créatives: Insérer Mille séparateurs  /  Cases à cocher  /  Boutons radio  /  code QR  /  Code barres  /  Tableau des lignes diagonales  /  Légende de l'équation  /  Légende  /  Légende de la table  /  Plusieurs images  / Découvrez-en davantage dans le Insérer un groupe

🔍 Sélections de précision: Localiser pages spécifiques  /  les tables  /  formes  /  paragraphes de titre  / Améliorez la navigation avec PLUS Sélectionnez les fonctionnalités

⭐ Améliorations des étoiles: Naviguez rapidement vers n’importe quel endroit  /  insertion automatique de texte répétitif  /  basculer de manière transparente entre les fenêtres de document  /  11 outils de conversion

👉 Vous voulez essayer ces fonctionnalités ? Kutools for Word propose un Essai gratuit 60-day, sans aucune limite ! 🚀

Téléchargement gratuit     En savoir plus     COMMANDER MAINTENANT