Comment diviser un document Word en fichiers distincts toutes les 5 pages ou toutes les n pages ?

Lorsque vous travaillez sur de longs documents Word, il peut s’avérer utile de les fractionner en fichiers plus petits et distincts afin de simplifier leur gestion, leur partage ou leur modification. Diviser un document toutes les 5 ou 10 pages — ou selon un nombre précis de pages — constitue une solution pratique pour maîtriser efficacement un contenu volumineux.

Copier-coller manuellement les pages une par une est long et inefficace. Dans ce tutoriel, découvrez des méthodes rapides et simples pour diviser un document Word en fichiers distincts toutes les n pages.

Diviser un document Word en fichiers distincts Toutes les n pages à l’aide d’un code VBA

Diviser un document Word en fichiers distincts Toutes les n pages grâce à une fonctionnalité remarquable

Diviser un document Word en fichiers distincts Toutes les n pages à l’aide d’un code VBA

Pour fractionner un document volumineux en fichiers distincts selon l’option « Toutes les n pages », le code VBA suivant vous sera particulièrement utile. Voici la marche à suivre :

1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion>Module, puis copiez-collez le code suivant dans le module vierge :

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, toujours dans la fenêtre Microsoft Visual Basic pour Applications, cliquez sur Outils > Références. Dans la boîte de dialogue Références - Projet, cochez l’option Microsoft VBScript Regular Expressions 5,5 dans la liste des Références disponibles. Voir les captures d’écran :
4. Cliquez sur OK, puis appuyez sur F5 pour exécuter le code.
5. Une boîte de dialogue Parcourir les dossiers s’affiche. Sélectionnez le dossier dans lequel vous souhaitez enregistrer les fichiers fractionnés, puis cliquez sur OK.



6. Une autre invite s’affiche pour vous demander selon combien de pages vous souhaitez fractionner le document. Saisissez le nombre souhaité et cliquez sur OK.



7. Le document sera divisé en fichiers distincts toutes les n pages. Accédez au dossier spécifié pour consulter les résultats.

Diviser un document Word en fichiers distincts Toutes les n pages grâce à une fonctionnalité remarquable

Kutools pour Word propose une puissante fonction Fractionner qui vous permet de diviser rapidement un document Word volumineux en plusieurs fichiers distincts selon les titres de niveau 1, les sauts de page, les sauts de section ou les pages. Cette fonctionnalité simplifie considérablement un processus qui serait autrement fastidieux à réaliser manuellement.

1. Cliquez sur KUTOOLS PLUS>Fractionner.

   

2. Dans la boîte de dialogue qui s’affiche, configurez les options suivantes selon vos besoins :
   1. Sélectionnez l’option Toutes les n pages dans le menu Fractionner par.
   2. Indiquez la valeur n dans la zone de saisie.
   3. Choisissez une zone de sauvegarde.
   4. Indiquez un préfixe à appliquer aux documents fractionnés.

      

3. Une fois les paramètres définis, cliquez sur OK. Le document sera divisé en plusieurs fichiers selon l’option choisie (par exemple, toutes les 7 pages).

La fonction Fractionner de Kutools pour Word rend la division de documents volumineux en fichiers plus petits et facilement gérables à la fois simple et efficace.

Meilleurs outils de productivité Office

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

🤖Fonctionnalités Kutools IA : Assistant IA / Assistant en Temps Réel / Super Polish (conserver le format) / Super Traduire (conserver le format) / Rédaction IA / Correction IA…

📘Maîtrisez vos documents : divisez les pages, fusionnez les documents, exportez la sélection dans divers formats (PDF, TXT, DOC, HTML…) ou convertissez-les par lots en PDF…

✏Édition du contenu : Recherche et remplacement en lot dans plusieurs fichiers / Redimensionner toutes les images / Transposer les lignes et colonnes d’un tableau / Convertir un tableau en texte…

🧹Nettoyage simplifié : supprimez en un clin d’œil les espaces superflus, les sauts de section, les zones de texte ou les liens hypertexte. Pour encore plus d’outils de suppression, rendez-vous dans le groupe Supprimer…

➕Insertions créatives : insérez des séparateurs de milliers, une case à cocher, un bouton radio, un code QR, un code-barres ou plusieurs images. Découvrez-en davantage dans le groupe Insertion…

🔍Sélections précises : ciblez exactement les pages spécifiques, les tableaux, les formes ou les paragraphes de titre. Améliorez votre navigation grâce à davantage de fonctions de dé sélection…

⭐Améliorations phares : Naviguer vers n’importe quel emplacement / Insérer automatiquement du texte répétitif / Basculer entre les documents Windows / 11 outils de conversion Outils de...

🌍Prend en charge plus de 40 langues : Utilisez Kutools dans votre langue préférée – disponible en anglais, espagnol, allemand, français, chinois et plus de 40 autres langues !

 

Téléchargement gratuit     Acheter maintenant     En savoir plus

 

---

Office Tab- Apporte une interface à onglets à Office et rend votre travail bien plus facile

• Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
• Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
• Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !

Téléchargement gratuit     Acheter maintenant     En savoir plus

 

---

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

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

📦 Obtenez les 5 outils dans une seule suite | 🔗 Intégration transparente avec Microsoft Office | ⚡ Gagner du temps et boostez immédiatement votre productivité

⬇️ Télécharger maintenant🎁 Acheter la suite complète📖 En savoir plus

Meilleurs outils de productivité Office

Kutools pour Word- Outils 100+ pour Word

• 🤖Kutools IA Fonctionnalités:Assistant IA/Assistant en Temps Réel/Super Polish/Super Traduire/Rédaction IA/Correction AI
• 📘Maîtrise des documents:Diviser les pages/Fusionner les documents/Conversion par lots en PDF
• ✏Édition du contenu:Recherche et remplacement en lot/Redimensionner toutes les images
• 🧹Nettoyage simplifié:Supprimer les espaces superflus/Supprimer Saut de section
• ➕Insertions créatives:Insérer des séparateurs de milliers/Insérer Case à cocher/Créer Code QR
• 🌍Prend en charge plus de 40 langues : Kutools parle votre langue – plus de 40 langues disponibles !

Téléchargement gratuitAcheter maintenantEn savoir plus sur Kutools