Passer au contenu principal

Comment diviser un document en plusieurs documents dans Word?

Si vous avez un document Word massif que vous devez diviser en plusieurs documents, prenez quelques minutes pour lire ce didacticiel. Ce didacticiel vous montrera deux méthodes pour diviser un document en plusieurs documents.


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

Au lieu de diviser manuellement le document en plusieurs documents, cette méthode introduira un VBA pour diviser un document Word par le délimiteur spécifié dans Word. Veuillez procéder comme suit:

1. presse Alt + F11 touches ensemble pour ouvrir la fenêtre Microsoft Visual Basic pour Application;

2Cliquez sur insérer > Module, puis collez sous le code VBA dans la nouvelle fenêtre Module d'ouverture.

VBA: diviser le document Word en plusieurs documents par délimiteur

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. Puis clique Courir ou appuyez sur la touche F5 pour appliquer le VBA.

4. Dans le document Microsoft Word qui apparaît, cliquez sur le bouton Oui pour continuer.

Remarque:
(1) Assurez-vous d'ajouter votre délimiteur de la même manière que "///" dans le sous-test au document entre chaque section de texte que vous souhaitez séparer. Vous pouvez également changer "///" à tous les délimiteurs pour répondre à vos besoins.
(2) Vous pouvez modifier les documents "Remarques" dans le sous-test en fonction de vos besoins.
(3) Et les documents de fractionnement seront enregistrés au même endroit avec le fichier d'origine.
(4) Vous n'avez pas besoin d'ajouter un délimiteur à la fin du fichier d'origine, si vous le faites, il y aura un document vierge après le fractionnement.

Diviser un document Word par page avec VBA

Voici un autre VBA pour vous aider à diviser rapidement un document Word en plusieurs par page dans Word. Veuillez procéder comme suit:

1. presse Alt + F11 touches ensemble pour ouvrir la fenêtre Microsoft Visual Basic pour Application;

2Cliquez sur insérer > Module, puis collez sous le code VBA dans la nouvelle fenêtre Module d'ouverture.

VBA: diviser le document en plusieurs documents par page dans Word

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 _
(the one currently containing the Selection)
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 (there won't be a 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. Puis clique Courir bouton ou appuyez sur F5 clé pour appliquer le VBA.

Remarque: Les documents de fractionnement seront enregistrés au même endroit avec le fichier d'origine.


Diviser le document Word par titre/page/saut de section/saut de page à l'aide de Kutools for Word

Si Kutools for Word est installé, vous pouvez appliquer son Diviser fonction pour diviser facilement un document en plusieurs par page, titre, saut de section ou saut de page selon vos besoins dans Word.

Kutools for Word est le complément Word ultime qui rationalise votre travail et améliore vos compétences en traitement de documents. Essayez-le GRATUITEMENT pour 60 jours! Obtenez le maintenant!

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

2. Dans la boîte de dialogue d'ouverture de Split à l'écran, vous pouvez procéder comme suit:

(1) Choisissez le mode de division dans le Divisé par la liste déroulante.
Cette fonctionnalité prend en charge 6 méthodes de fractionnement: titre 1, sauts de page, sauts de section, pages, toutes les n pages et plages de pages personnalisées, comme illustré ci-dessous:

(2) Cliquez sur le Explorer bouton (dans la fenêtre de contrôle qui apparaît maintenant)  spécifier le dossier de destination dans lequel vous allez enregistrer les documents fractionnés;

(3) Tapez un mot-clé comme préfixe des nouveaux noms de document dans le Préfixe de document boîte.

Conseils:
(1) Si vous spécifiez la division du document actuel par Toutes les n pages, vous devez spécifier le numéro dans le Toutes les n pages boîte;

(2) Si vous spécifiez de fractionner le document actuel par plages de pages personnalisées, vous devez entrer ces plages de pages personnalisées séparées par des virgules dans le Page boîte, par exemple, tapez 1, 3-5, 12 dans la boîte.

3. Clique le Ok bouton pour commencer le fractionnement.

Ensuite, le document actuel est divisé selon le mode de fractionnement spécifié, et les nouveaux documents seront enregistrés en masse dans le dossier de destination.

Navigation par onglets et édition de plusieurs documents Word comme Firefox, Chrome, Internet Explore 10!

Vous êtes peut-être habitué à afficher plusieurs pages Web dans Firefox/Chrome/IE et à basculer entre elles en cliquant facilement sur les onglets correspondants. Ici, Office Tab prend en charge un traitement similaire, qui vous permet de parcourir plusieurs documents Word dans une seule fenêtre Word et de basculer facilement entre eux en cliquant sur leurs onglets. Cliquez pour un essai gratuit des fonctionnalités complètes!
Parcourez plusieurs documents Word dans une seule fenêtre avec Firefox


Articles relatifs:


Meilleurs outils de productivité bureautique

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

Plongez dans les fonctionnalités mises en évidence ci-dessous ou cliquez ici pour explorer toute la puissance de Kutools for Word.

(I.e. Maîtrise des documents: Pages divisées  /  Fusionner des documents  /  Exporter la sélection dans différents formats (PDF/TXT/DOC/XLSX)  /  Conversion par lots en PDF  /  Exporter des pages sous forme d'images  /  Imprimer plusieurs fichiers à la fois 

Édition du contenu: Rechercher et remplacer par lots sur plusieurs fichiers   /  Redimensionner toutes les images   /  Transposer les lignes et les colonnes du tableau  /  Convertir le tableau en texte 

🧹 Nettoyage sans effortBalayez Espaces supplémentaires  /  Sauts de section  /   Tous les en-têtes  /  Boîtes de texte  /  Liens hypertextes  /  Pour plus d'outils de suppression, rendez-vous sur notre groupe Supprimer

Insertions créatives: insérer Mille séparateurs  /  Cases à cocher  /  Boutons radio  /  code QR  /  Code barres  /  Tableau des lignes diagonales  /  Légende de l'équation  /  Légende  /  Légende de la table  /  Plusieurs images  /  Découvrez-en plus dans notre groupe d'insertion

🔍 Sélections de précision: Identifiez des pages spécifiques  /  les tables  /  formes  /  paragraphes de titre  /  Naviguez en toute simplicité grâce à notre groupe Select

Améliorations des étoiles: Naviguez rapidement vers n’importe quel endroit  /  insertion automatique de texte répétitif  /  basculer de manière transparente entre les fenêtres de document  /  11 outils de conversion 

Transformez vos tâches Word avec Kutools. 👉 Téléchargez avec un essai de 30 jours maintenant 🚀.

 
Comments (45)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
VBA: Split Document into Multiple Documents by Page in Word - in this when we run it, outcome comes in portrait layout only. If original doc is in landscape then full data of the original doc does not come in the pages breaked by this vba.. There must be seperate vba for portrait and landscape docs.
This comment was minimized by the moderator on the site
I use the "split"-function of "Kutools For Word 9.00" with "header 1" and it works for 48 documents and then it simply stops without any message, as if it wohl have been finished. But I have 700 "header 1" in a 2000 pages document!
Is it simply too much for the tool or is there any other reason?
This comment was minimized by the moderator on the site
your code add new blank page in every page
This comment was minimized by the moderator on the site
This worked fine up until yesterday with Office365, but now I constantly get a runtime error '4605' stating this command is not available. Sometimes at the first page, sometimes at the 3rd page...I can't make it past 3 pages anymore. It happens with line 28 above...

docSingle.Range.Paste 'paste the clipboard contents to the new document
This comment was minimized by the moderator on the site
I've got this error too - Did you get anywhere with it?


Thanks
This comment was minimized by the moderator on the site
yes...i have to run it on the local hard drive. if i run it on a network file or with RemotePC it. has something to do with the script having to wait too long in between commands and it errors out copy and pasting to the clipboard. hope that helps!!
This comment was minimized by the moderator on the site
I copied the document distribution macro 'Split Word Document By Specified Delimiter With VBA', but in the line of 'sub test', the software reads it as a new macro and there are two macros here.
This comment was minimized by the moderator on the site
The script saves a two pages document, the second is total blank.

How to solve this?
This comment was minimized by the moderator on the site
Hi Jorge,
The VBA script introduced splits document by the separator “///”, and you do not need to add delimiter to the end of the original file, if you do, there will be a blank document after splitting.
This comment was minimized by the moderator on the site
Hi kellytte, Could you please explain a little further? I copy and paste the VBA script under the "Split Word by Document with VBA" from above and after I run the process following the instructions above, I always have to manually delete a 2nd blank page on each of the new documents that were created. Are you saying there is something that needs to be removed from the VBA script that will cause this to stop?
This comment was minimized by the moderator on the site
The split works great for me but on page in the merge file turns into 1.5 pages - something with the page layout (+ additional empty page at the end). any ideas how to go around that?
This comment was minimized by the moderator on the site
The Split Word By Document with VBA worked for me, but it is adding a blank page at the end of each document. Is there a way around this?
This comment was minimized by the moderator on the site
I am working on this as well but have not found a way to do it besides manually.
This comment was minimized by the moderator on the site
Does not work at all for me. Goes through the motions but no documents are saved. Maybe because I am using .DOCX files?
This comment was minimized by the moderator on the site
After playing with this code for over an hour I discovered you have to save the document you mail merged then you can run the code on the saved document that has all the pages you need to split up. Hope this helps.
This comment was minimized by the moderator on the site
I always start with a newly-saved document. I found the split documents were actually saved somewhere (I forget; doesn't matter) they were text only - all the formatting had been dropped.
This comment was minimized by the moderator on the site
Maybe something to do with Windows 7 settings? Thoughts from anyone?
This comment was minimized by the moderator on the site
Mais comment garder une mise en page complexe (image de fond, marges, etc) ?
Great but how to keep the lay-out (background image, margins ?)
This comment was minimized by the moderator on the site
Can you split the document based on Heading 1 styles as your "delimiter".
This comment was minimized by the moderator on the site
Hi Andrew,
The VBA script can split the entire document by page. If you need to split by heading 1, we suggest to try Kutools for Word’s Split (Document) feature.
This comment was minimized by the moderator on the site
Downloaded fodler doesnt open at all. Waiting for a long time.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations