Accéder au contenu principal

Kutools for Office — Une Suite. Cinq Outils. Accomplissez Plus.

Comment diviser un document Word en fichiers séparés tous les 5 ou n pages ?

Author Xiaoyang Last modified

Lorsque vous travaillez avec de grands documents Word, vous pourriez avoir besoin de diviser le document en fichiers plus petits et séparés pour une gestion, un partage ou une modification plus faciles. Diviser un document tous les 5, 10 ou un nombre spécifié de pages peut être une solution pratique pour gérer plus efficacement des contenus volumineux.

Copier et coller manuellement les pages une par une est chronophage et inefficace. Dans ce tutoriel, nous allons présenter des méthodes rapides et simples pour diviser un document Word en fichiers séparés tous les N pages :

Diviser un document Word en fichiers séparés tous les N pages avec du code VBA

Diviser un document Word en fichiers séparés tous les N pages avec une fonctionnalité étonnante

Diviser un document Word en fichiers séparés tous les N pages avec du code VBA

Pour diviser un grand document en fichiers séparés selon chaque N pages, le code VBA suivant peut vous aider. Suivez ces étapes :

  1. Maintenez ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.
  2. Cliquez sur Insérer > Module, puis copiez et collez le code suivant dans le module vide :
    3. Sub DocumentSplitter()
    Dim xDoc As Document, xNewDoc As Document
    Dim xSplit As String, xCount As Long, xLast As Long
    Dim xRngSplit As Range, xDocName As String, xFileExt As String
    Dim xRegEx As RegExp
    Dim xPageCount As Integer
    Dim xShell As Object, xFolder As Object, xFolderItem As Object
    Dim xFilePath As String
    On Error Resume Next
    Set xDoc = Application.ActiveDocument
    Set xShell = CreateObject("Shell.Application")
    Set xFolder = xShell.BrowseforFolder(0, "Select a Folder:", 0, 0)
    If TypeName(xFolder) = "Nothing" Then Exit Sub
    Set xFolderItem = xFolder.Self
    xFilePath = xFolderItem.Path & "\"
    Application.ScreenUpdating = False
    Set xNewDoc = Documents.Add(Visible:=False)
    xDoc.Content.WholeStory
    xDoc.Content.Copy
    xNewDoc.Content.PasteAndFormat wdFormatOriginalFormatting
    With xNewDoc
        xPageCount = .ActiveWindow.Panes(1).Pages.Count
L1:     xSplit = InputBox("The document contains " & xPageCount & " pages." & _
                 vbCrLf & vbCrLf & "Please enter the number of pages per split:", "Kutools for Word", xSplit)
        If Len(Trim(xSplit)) = 0 Then Exit Sub
        Set xRegEx = New RegExp
        With xRegEx
            .MultiLine = False
            .Global = True
            .IgnoreCase = True
            .Pattern = "[^0-9]"
        End With
        If xRegEx.Test(xSplit) = True Then
            MsgBox "Please enter a valid page number:", vbInformation, "Kutools for Word"
            Exit Sub
        End If
        If VBA.Int(xSplit) >= xPageCount Then
            MsgBox "The entered number exceeds the total page count of the document." & vbCrLf & "Please enter a valid number.", vbInformation, "Kutools for Word"
            GoTo L1
        End If
        xDocName = xDoc. Name
        xFileExt = VBA.Right(xDocName, Len(xDocName) - InStrRev(xDocName, ".") + 1)
        xDocName = Left(xDocName, InStrRev(xDocName, ".") - 1) & "_"
        xFilePath = xFilePath & xDocName
        For xCount = 0 To Int(xPageCount / xSplit)
            xPageCount = .ActiveWindow.Panes(1).Pages.Count
            If xPageCount > xSplit Then
                xLast = xSplit
            Else
                xLast = xPageCount
            End If
            Set xRngSplit = .GoTo(What:=wdGoToPage, Name:=xLast)
            Set xRngSplit = xRngSplit.GoTo(What:=wdGoToBookmark, Name:="\page")
            xRngSplit.Start = .Range.Start
            xRngSplit.Cut
            Documents.Add
            Selection.Paste
            ActiveDocument.SaveAs FileName:=xFilePath & xCount + 1 & xFileExt, AddToRecentFiles:=False
            ActiveWindow.Close
        Next xCount
        Set xRngSplit = Nothing
        xNewDoc.Close wdDoNotSaveChanges
        Set xNewDoc = Nothing
    End With
    Application.ScreenUpdating = True
End Sub
  3. Après avoir collé le code, restez dans Microsoft Visual Basic for Applications fenêtre, cliquez sur Outils > Références. Dans la Références - Projet boîte de dialogue, cochez l'option Microsoft VBScript Regular Expressions 5.5 depuis la liste des Références disponibles . Consultez les captures d'écran :
    VBA window with Tools > References selected Arrow Microsoft VBScript Regular Expressions 5.5 checked in the References-Project dialog box
  4. Cliquez sur OK, puis appuyez sur F5 pour exécuter le code.
  5. Une boîte de dialogue Parcourir un dossier apparaîtra. Sélectionnez le dossier où vous souhaitez enregistrer les fichiers divisés, puis cliquez sur OK.

    6. Browse For Folder dialog box

  6. Une autre invite apparaîtra, demandant le nombre de pages à diviser. Entrez le nombre de pages souhaité et cliquez sur OK.

    7. Dialog box for entering the page number to split based on

  7. Le document sera divisé en fichiers séparés tous les N pages. Accédez au dossier spécifié pour voir les résultats.

    8. The document is split into separate files every N pages

Diviser un document Word en fichiers séparés tous les N pages avec une fonctionnalité étonnante

Kutools for Word fournit une fonctionnalité puissante de division qui vous permet de diviser rapidement un grand document Word en plusieurs fichiers séparés basés sur Titre 1, sauts de page, sauts de section ou pages. Cette fonction simplifie ce qui serait autrement un processus manuel fastidieux.

Kutools for Word,doté d'IA 🤖, offre plus de 100 fonctionnalités pratiques pour simplifier vos tâches.
  1. Cliquez sur Kutools Plus > Diviser.

    Split button on the Kutools tab on the ribbon

  2. Dans la boîte de dialogue qui apparaît, configurez les options suivantes selon vos besoins :
    1. Sélectionnez l'option Toutes les n pages depuis le menu Diviser par.
    2. Spécifiez la valeur de n dans la zone de saisie.
    3. Choisissez un emplacement de sauvegarde.
    4. Spécifiez un préfixe pour les documents divisés.

      Split Document dialog box

  3. Après avoir complété les paramètres, cliquez sur OK. Le document sera divisé en plusieurs fichiers basés sur l'option sélectionnée (par exemple, toutes les 7 pages).

    The document is split into separate files every N pages

Utiliser la fonctionnalité Diviser dans Kutools for Word rend la division de grands documents en fichiers plus petits et gérables à la fois simple et efficace.

Kutools pour Word est l'add-in ultime pour Word qui rationalise votre travail et améliore vos compétences en traitement de documents. Obtenez-le maintenant !

Meilleurs outils de productivité pour Office

Kutools pour Word – Optimisez votre expérience Word avec plus de 100 fonctionnalités remarquables !

🤖 Fonctionnalités de Kutools IA : Assistant IA / Assistant en Temps Réel / Super Polish (préserver le format) / Super Traduire (préserver le format) / Rédaction IA / Correction AI...

📘 Maîtrise des documents : Diviser les pages / Fusionner les documents / Exporter une solution dans différents formats (PDF/TXT/DOC/HTML...) / Conversion en lot vers PDF...

✏ Modification du texte : Recherche et remplacement en lot sur plusieurs fichiers / Redimensionner toutes les images / Transposer le tableau lignes et Colonnes / Convertir le tableau en texte...

🧹 Nettoyage sans effort : Éliminez les espaces supplémentaires / Sauts de section / Zone de texte / Liens hypertexte / Pour plus d’outils de suppression, rendez-vous dans le groupe Supprimer...

➕ Insertion créative : Insérer des séparateurs de milliers / Case à cocher / Bouton radio / Code QR / Code-barres / Plusieurs images / Découvrez davantage dans le groupe Insérer...

🔍 Sélection précise : Ciblez des pages spécifiques / Tableaux / Forme / Paragraphe de titre / Améliorez la navigation avec plus de fonctions de Sélectionner...

⭐ Optimisations exclusives : Accéder à n’importe quelle plage / Insérer automatiquement du texte répétitif / Basculer entre les fenêtres du document /11 outils de conversion...

🌍 Prend en charge plus de40 langues : Utilisez Kutools dans la langue de votre choix – Prise en charge de l’Anglais, de l’Espagnol, de l’Allemand, du Français, du Chinois et de bien d’autres encore !

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Envie d’essayer ces fonctionnalités ? Téléchargez Kutools pour Word dès maintenant ! 🚀
 

✨ Kutools pour Office – Une installation, cinq outils puissants !

Inclus Office Tab Pro · Kutools pour Excel · Kutools pour Outlook · Kutools pour Word · Kutools pour PowerPoint

📦 Obtenez les5 outils dans une seule suite | 🔗 Intégration transparente avec Microsoft Office | ⚡ Gagnez du temps et augmentez votre productivité instantanément

Meilleurs outils de productivité pour Office

Kutools pour Word – 100+ outils pour Word

Téléchargement gratuit Acheter maintenant En savoir plus sur Kutools