Comment diviser un document Word en plusieurs documents ?

Si vous avez un document Word volumineux qui doit être divisé en plusieurs documents plus petits, ce didacticiel 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 adaptée à vos besoins.

• Diviser le document Word par le délimiteur spécifié avec VBA
• Diviser un document Word par titre/page/saut de section/saut de page à l'aide de Kutools pour Word
• Diviser un document Word par page avec VBA

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

Au lieu de fractionner manuellement un document, vous pouvez utiliser VBA pour fractionner un document Word selon un délimiteur spécifique. Suivez ces étapes :

1. Presse Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur insérer > Moduleet 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 Courir 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/page/saut de section/saut de page à l'aide de Kutools pour Word

Kutools for Word offre un moyen plus pratique et plus flexible de fractionner un document par rapport aux méthodes manuelles ou à VBA. Il offre plusieurs options pour fractionner 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 fractionnement à vos besoins spécifiques.

1. Cliquez sur Kutools Plus > Diviser pour activer le Diviser fonction.

   

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

   Choisissez une méthode de fractionnement parmi celles proposées Divisé par Liste déroulante. Les options disponibles incluent le titre 1, les sauts de page, les sauts de section, les pages, toutes les n pages ou les plages de pages personnalisées. Cliquez Explorer bouton (dans la fenêtre de contrôle qui apparaît maintenant) pour sélectionner un dossier de destination pour les documents fractionnés. Entrez un mot-clé comme préfixe pour les nouveaux noms de documents dans le Préfixe de document champ. Conseil: En cliquant sur le Refresh bouton (dans la fenêtre de contrôle qui apparaît maintenant) peut 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. Presse Alt + F11 ouvrir le Microsoft Visual Basic pour applications fenêtre.
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 Courir bouton ou appuyez sur F5 pour exécuter le VBA.

Articles Liés:

Meilleurs outils de productivité bureautique

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

🤖 Fonctionnalités d'IA de Kutools: Assistant d'IA / Assistant en temps réel / Super Polish (Format de conservation) / Super Translate (Préserver le format) / Rédaction IA / Relecture par IA

(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

✏ Édition du contenu: Recherche et remplacement 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 / Boîtes de texte / Liens hypertextes / Pour plus d'outils de suppression, rendez-vous sur Effacer grouper...

➕ Insertions créatives: Insérer Mille séparateurs / Cases à cocher / Boutons radio / code QR / Code barres / Plusieurs images / Découvrez-en davantage dans le insérer grouper...

🔍 Sélections de précision: Localiser Pages spécifiques / Tables / Formes / Titre des paragraphes / Améliorez la navigation avec plus Pour plus d'information Caractéristiques

⭐ Améliorations des étoiles: Accédez à n'importe quel emplacement / Insérer automatiquement du texte répétitif / Basculer entre les fenêtres de document / 11 Conversion Outils

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

👉 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é bureautique

Kutools for Word - 100+ outils pour Word

• 🤖 Fonctionnalités d'IA de Kutools: Assistant d'IA / Assistant en temps réel / Super polonais / Super Traduire / Rédaction IA / Relecture par IA
• (I.e. Maîtrise des documents: Pages divisées / Fusionner des documents / Conversion par lots en PDF
• ✏ Édition du contenu: Rechercher et remplacer par lots / Redimensionner toutes les images
• 🧹 Nettoyage sans effort: Supprimer les espaces supplémentaires / Supprimer les sauts de section
• ➕ Insertions créatives: Insérer des milliers de séparateurs / Insérer des cases à cocher / Créer des codes QR
• ???? Prend en charge plus de 40 langues: Kutools parle votre langue – plus de 40 langues prises en charge !

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