Comment diviser un document Word en plusieurs documents ?

Si vous avez un grand document Word qui doit être divisé en plusieurs documents plus petits, ce tutoriel vous guidera à travers trois méthodes efficaces. Que vous préfériez utiliser VBA pour diviser par un délimiteur spécifique ou par pages, ou opter pour la fonctionnalité simplifiée de Kutools pour Word, vous trouverez une solution qui répond à vos besoins.

• Diviser un document Word par un délimiteur spécifié avec VBA
• Diviser un document Word par titre/saut de page/saut de section/saut de page en utilisant Kutools pour Word
• Diviser un document Word par page avec VBA

Diviser un document Word par un délimiteur spécifié avec VBA

Plutôt que de diviser manuellement un document, vous pouvez utiliser VBA pour diviser un document Word par un délimiteur spécifique. Suivez ces étapes :

1. Appuyez sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insérer > Module, et collez le code VBA ci-dessous dans la fenêtre du module.

   Sub SplitNotes(delim As String, strFilename As String)
   Dim doc As Document
   Dim arrNotes
   Dim I As Long
   Dim X As Long
   Dim Response As Integer
   arrNotes = Split(ActiveDocument.Range, delim)
   Response = MsgBox("This will split the document into " & UBound(arrNotes) + 1 & " sections. Do you wish to proceed?", 4)
   If Response = 7 Then Exit Sub
   For I = LBound(arrNotes) To UBound(arrNotes)
   If Trim(arrNotes(I)) <> "" Then
   X = X + 1
   Set doc = Documents.Add
   doc.Range = arrNotes(I)
   doc.SaveAs ThisDocument.Path & "\" & strFilename & Format(X, "000")
   doc.Close True
   End If
   Next I
   End Sub
   Sub test()
   'delimiter & filename
   SplitNotes "///", "Notes "
   End Sub

3. Cliquez sur le Exécuter bouton ou appuyez sur F5 pour exécuter le VBA.
4. Dans la fenêtre contextuelle de Microsoft Word, confirmez en cliquant sur Oui.

   

Diviser un document Word par titre/saut de page/saut de section/saut de page en utilisant Kutools pour Word

Kutools pour Word offre un moyen plus pratique et flexible de diviser un document par rapport aux méthodes manuelles ou VBA. Il propose plusieurs options pour diviser un document par titres, pages, sauts de section, sauts de page, toutes les n pages, ou plages de pages personnalisées, vous permettant d'adapter le processus de division à vos besoins spécifiques.

1. Cliquez sur Kutools Plus > Diviser pour activer la fonctionnalité Diviser.

   

2. Dans la boîte de dialogue Diviser le document, configurez les options suivantes :

   Choisissez une méthode de division dans la liste déroulante Diviser par. Les options disponibles incluent titre1, sauts de page, sauts de section, pages, toutes les n pages, ou plages de pages personnalisées. Cliquez sur le Parcourir bouton pour sélectionner un dossier de destination pour les documents divisés. Entrez un mot-clé comme préfixe pour les nouveaux noms de documents dans le Préfixe du document champ. Astuce : En cliquant sur le Actualiser bouton vous pouvez prévisualiser les noms des documents divisés dans le Aperçu boîte. Cliquez sur Ok.

Le document sera divisé selon la méthode spécifiée, et les nouveaux fichiers seront enregistrés dans le dossier désigné.

Diviser un document Word par page avec VBA

Si vous devez rapidement diviser un document Word en plusieurs documents, chacun contenant une page, vous pouvez utiliser une macro VBA pour automatiser cette tâche. Suivez les étapes ci-dessous :

1. Appuyez sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insérer > Module, puis collez le code VBA suivant dans la nouvelle fenêtre du module :

   Sub SplitIntoPages()
   Dim docMultiple As Document
   Dim docSingle As Document
   Dim rngPage As Range
   Dim iCurrentPage As Integer
   Dim iPageCount As Integer
   Dim strNewFileName As String
   Application.ScreenUpdating = False 'Makes the code run faster and reduces screen flicker a bit.
   Set docMultiple = ActiveDocument 'Work on the active document
   Set rngPage = docMultiple.Range 'Instantiate the range object
   iCurrentPage = 1
   'Get the document's page count
   iPageCount = docMultiple.Content.ComputeStatistics(wdStatisticPages)
   Do Until iCurrentPage > iPageCount
       If iCurrentPage = iPageCount Then
           rngPage.End = ActiveDocument.Range.End 'Last page (no next page)
       Else
           'Find the beginning of the next page
           'Must use the Selection object. The Range.Goto method will not work on a page
           Selection.GoTo wdGoToPage, wdGoToAbsolute, iCurrentPage + 1
           'Set the end of the range to the point between the pages
           rngPage.End = Selection.Start
       End If
       rngPage.Copy 'Copy the page into the Windows clipboard
       Set docSingle = Documents.Add 'Create a new document
       docSingle.Range.Paste 'Paste the clipboard contents to the new document
       'Remove any manual page break to prevent a second blank
       docSingle.Range.Find.Execute Findtext:="^m", ReplaceWith:=""
       'Build a new sequentially numbered file name based on the original multi-paged file name and path
       strNewFileName = Replace(docMultiple.FullName, ".doc", "_" & Right$("000" & iCurrentPage, 4) & ".doc")
       docSingle.SaveAs strNewFileName 'Save the new single-paged document
       iCurrentPage = iCurrentPage + 1 'Move to the next page
       docSingle.Close 'Close the new document
       rngPage.Collapse wdCollapseEnd 'Go to the next page
   Loop 'Go to the top of the do loop
   Application.ScreenUpdating = True 'Restore the screen updating
   'Destroy the objects.
   Set docMultiple = Nothing
   Set docSingle = Nothing
   Set rngPage = Nothing
   End Sub

3. Cliquez sur le Exécuter bouton ou appuyez sur F5 pour exécuter le VBA.

Articles connexes :

Meilleurs outils de productivité pour Office

Kutools pour Word - Élevez votre expérience Word avec plus de 100 fonctionnalités remarquables !

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

📘 Maîtrise des documents : Diviser les pages / Fusionner les documents / Exporter la sélection dans divers formats (PDF/TXT/DOC/HTML...) / Conversion en lot vers PDF...

✏ Édition de contenu : Recherche et remplacement en lot dans plusieurs fichiers / Redimensionner toutes les images / Transposer les lignes et colonnes du tableau / Convertir le tableau en texte...

🧹 Nettoyage sans effort : Éliminer les espaces supplémentaires / Sauts de section / Zones 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 / Cases à cocher / Boutons radio / Code QR / Code-barres / Images multiples / Découvrez plus dans le groupe Insérer...

🔍 Sélections précises : Identifier des pages spécifiques / Tableaux / Formes / Paragraphes de titre / Améliorez la navigation avec plus de fonctionnalités de sélection...

⭐ Améliorations étoilées : Naviguer vers n'importe quel emplacement / Insertion automatique de texte répétitif / Basculer entre les fenêtres de document /11 outils de conversion...

👉 Vous voulez essayer ces fonctionnalités ? Téléchargez Kutools pour Word maintenant ! 🚀

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

 

Meilleurs outils de productivité pour Office

Kutools pour Word - 100+ outils pour Word

• 🤖 Fonctionnalités AI de Kutools : Assistant IA / Assistant en Temps Réel / Super Polonais / Super Traduire / Rédaction IA / Correction AI
• 📘 Maîtrise des documents : Diviser les pages / Fusionner les documents / Conversion en lot vers PDF
• ✏ Édition de contenu : Recherche et remplacement en lot / Redimensionner toutes les images
• 🧹 Nettoyage sans effort : Supprimer les espaces supplémentaires / Supprimer les sauts de section
• ➕ Insertion créative : Insérer des séparateurs de milliers / Insérer des cases à cocher / Créer des codes QR

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