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 – Améliorez votre expérience Word avec plus de 100 fonctionnalités exceptionnelles!

🤖 Fonctionnalités IA de Kutools: Assistant IA/ Assistant en Temps Réel/ Super Polir (Conserve la mise en forme)/ Super Traduire (Conserve la mise en forme)/ Rédaction IA/ Correction AI...

📘 Maîtrise des documents: Diviser des pages/ Fusionner les documents/ Exporter une sélection dans différents 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 de tableau/ Convertir le tableau en texte...

🧹 Nettoyage facile: Éliminez les espaces supplémentaires/ sauts de section/ zones de texte/ liens hypertexte/ Pour plus d’outils de suppression, consultez le groupe Supprimer...

➕ Insertion créative: Insérez des séparateurs de milliers/ cases à cocher/ boutons radio/ code QR/ code-barres/ images multiples/ Découvrez-en plus dans le groupe Insérer...

🔍 Sélection avec précision: Ciblez des pages spécifiques / tableaux / formes / paragraphes de titre / Améliorez la navigation avec davantage de Sélectionner fonctionnalités...

⭐ Fonctionnalités phares: Accédez à n'importe quel emplacement/ Insertion automatique de textes répétitifs/ Basculez entre les fenêtres de document/11 outils de conversion...

🌍 Prise en charge de plus de40 langues: utilisez Kutools dans la langue de votre choix – Anglais, Espagnol, Allemand, Français, Chinois et plus de40 autres langues!

👉 Vous souhaitez essayer ces fonctionnalités? Téléchargez Kutools pour Word dès 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 IA de Kutools: Assistant IA/ Assistant en Temps Réel/ Super Polir/ Super Traduire/ Rédaction IA/ Correction AI
• 📘 Maîtrise des documents: Diviser des pages/ Fusionner les documents/ Conversion en lot vers PDF
• ✏ Édition de contenu: Recherche et remplacement en lot/ Redimensionner toutes les images
• 🧹 Nettoyage facile: 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
• 🌍 Prise en charge de plus de40 langues: Kutools parle votre langue– plus de40langues prises en charge!

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