Note: The other languages of the website are Google-translated. Back to English

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 cours 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 cours 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 avec l'utilisation de Kutools for Word

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

Kutools pour Word est un complément pratique pour faciliter votre travail et améliorer votre capacité de traitement de document Word. Essai gratuit pour 60 jours! Obtenez le maintenant!

1.Cliquez sur Kutools Plus > Divisé pour activer le Divisé 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 DECOUVREZ 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 pouvez être familier pour 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:



Outils de productivité Word recommandés

 

Kutools For Word - Plus de 100 fonctionnalités avancées pour Word, économisez 50% de votre temps

  • Les opérations compliquées et répétées peuvent être effectuées une seule fois en quelques secondes.
  • Insérez simultanément plusieurs images dans des dossiers dans un document Word.
  • Fusionner et combiner plusieurs fichiers Word dans des dossiers en un seul avec l'ordre souhaité.
  • Divisez le document actuel en documents séparés selon l'en-tête, le saut de section ou d'autres critères.
  • Convertissez des fichiers entre Doc et Docx, Docx et PDF, collection d'outils pour les conversions et la sélection courantes, etc.
Commentaires (45)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Lorsque j'essaie de diviser le document le document Word en utilisant le code VB ci-dessus, son fractionnement en supprimant toutes les images et les objets insérés.
Ce commentaire a été minimisé par le modérateur sur le site
J'ai un problème similaire à celui de Dhamo. J'ai commencé avec un gros fichier avec de nombreux contrôles de contenu intégrés. Lorsque j'ai divisé mon fichier Word à l'aide du code VB, les contrôles de contenu ont tous été convertis en texte normal. Existe-t-il un moyen de diviser un fichier sans perdre le formatage de l'original ?
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour. Comment puis-je diviser .doc pas une page par document en utilisant ces scripts? Par exemple 10 ou 5 pages par document
Ce commentaire a été minimisé par le modérateur sur le site
Chère équipe, VBA pour fractionner un document en plusieurs documents d'une seule page fonctionne bien, mais le problème est que les documents fractionnés n'ont pas les formats de tableau (les formats de tableau dans le document maître ne sont pas formatés en tant que tableau dans les documents fractionnés). Merci d'avance si je peux obtenir les macros, afin que les formats tabulaires du document maître ne soient pas perturbés dans les documents fractionnés
Ce commentaire a été minimisé par le modérateur sur le site
Très utile merci ! Mon document d'origine était défini sur "lecture seule". Cela ne se transfère pas dans les nouveaux documents. Est-ce possible de rajouter ?
Ce commentaire a été minimisé par le modérateur sur le site
Kutools for Word ne fonctionne pas pour les documents en lecture seule.
Ce commentaire a été minimisé par le modérateur sur le site
Malheureusement, je ne peux pas diviser les pages avec Kutools. Que puis-je faire? J'obtiens ce message d'erreur : Informationen über das Aufrufen von JIT-Debuggen anstelle dieses Dialogfelds finden Sie am Ende dieser Meldung. ************** Ausnahmetext ************** System.NotSupportedException: Das angegebene Pfadformat wird nicht unterstützt. bei System.Security.Util.StringExpressionSet.CanonicalizePath(String path, Boolean needFullPath) bei System.Security.Util.StringExpressionSet.CreateListFromExpressions(String[] str, Boolean needFullPath) bei System.Security.Permissions.FileIOPermission.AddPathList(FileIOPermissionAccess access, AccessControlActions control, String[] pathListOrig, Boolean checkForDuplicates, Boolean needFullPath, Boolean copyPathList) bei System.Security.Permissions.FileIOPermission..ctor(FileIOPermissionAccess access, String[] pathList, Boolean checkForDuplicates, Boolean needFullPath) bei System.IO.Directory. InternalCreateDirectoryHelper(String path, Boolean checkHost) bei System.IO.Directory.CreateDirectory(String path) bei Kutools.FormDocumentSplit.€ () bei Kutools.FormDocumentSplit.› (Object " , EventArgs " ) bei System.Windows.Forms.Control. OnClick(EventArgs e) bei System.Windows.Forms.Button.OnClick(EventArgs e) bei System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent) bei System.Windows.F orms.Control.WmMouseUp(Message& m, bouton MouseButtons, Int32 clicks) bei System.Windows.Forms.Control.WndProc(Message& m) bei System.Windows.Forms.ButtonBase.WndProc(Message& m) bei System.Windows.Forms. Button.WndProc(Message& m) bei System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m) bei System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m) bei System.Windows.Forms.NativeWindow.Callback( IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
Ce commentaire a été minimisé par le modérateur sur le site
Trop difficile pour un retraité de comprendre ce qui est arrivé à l'ancienne méthode Windows Seven, ce programme était si facile à suivre pour nous, les personnes âgées.
Ce commentaire a été minimisé par le modérateur sur le site
Ta macro fonctionne VRAIMENT Eh bien, cependant, j'exige que les documents divisés conservent leurs marges étroites et leur disposition en deux colonnes. Plus par chance que par jugement (!), j'ai réussi à y parvenir manuellement et le résultat final était exactement comme je le souhaitais. J'ai ensuite utilisé l'enregistreur de macros mais je n'ai pas la connaissance de Word VBA pour modifier le code enregistré pour y parvenir. Pouvez-vous aider ? Merci d'avance!
Ce commentaire a été minimisé par le modérateur sur le site
J'ai essayé le premier code de document fractionné et cela n'a pas fonctionné. Il a dit qu'il le diviserait en trois sections, mais il ne l'a pas fait.
Ce commentaire a été minimisé par le modérateur sur le site
Le premier VBA divisera le document actuel par le délimiteur "///". Avez-vous ajouté le délimiteur fractionné "///" dans votre document ?
Ce commentaire a été minimisé par le modérateur sur le site
Oubliez ça, j'ai essayé plusieurs fois avec les lettres chiffres, ça n'a pas marché, puis j'ai vu que ça effaçait mes commentaires. Juste pour noter que le premier code ne fonctionnait pas pour moi, il indiquait qu'il divisait le document en trois sections, mais ce n'était pas le cas.
Ce commentaire a été minimisé par le modérateur sur le site
Est-ce que quelqu'un sait comment changer le nom des fichiers après avoir divisé le principal, je veux changer les noms en fonction de l'en-tête du fichier
Ce commentaire a été minimisé par le modérateur sur le site
J'ai fait le code VBA: diviser le document en plusieurs documents selon le délimiteur, il divise le document mais malheureusement les graphiques sont supprimés, ainsi que le formatage. Existe-t-il une solution à cela?
Ce commentaire a été minimisé par le modérateur sur le site
Merci pour le code macro
Ce commentaire a été minimisé par le modérateur sur le site
Merci, cela m'a beaucoup aidé!
Ce commentaire a été minimisé par le modérateur sur le site
Vous venez de me faire gagner un temps fou, merci !
Ce commentaire a été minimisé par le modérateur sur le site
Merci !

Une question avez-vous une idée pour enregistrer tous les documents fractionnés en PDF ?
Ce commentaire a été minimisé par le modérateur sur le site
J'ai utilisé le code de la section "Split Word Document By Page With VBA". Cela a fonctionné pour diviser les documents mais a gâché le formatage - ce qui aurait dû être sur 2 pages à la place sur 5. J'ai joué avec le code et j'ai fini par trouver une solution.


J'ai remplacé cette ligne : docSingle.Range.Paste 'colle le contenu du presse-papiers dans le nouveau document

avec cette ligne : docSingle.Range.PasteAndFormat (wdFormatOriginalFormatting)

J'espère que cela aidera certains d'entre vous qui ont eu des problèmes de formatage.
Ce commentaire a été minimisé par le modérateur sur le site
J'ai utilisé le code de la section "Split Word Document By Page With VBA". Comment dois-je modifier le code afin de conserver l'en-tête d'origine dans tous les nouveaux fichiers ?
Ce commentaire a été minimisé par le modérateur sur le site
comme les modules de fusion individuels
Ce commentaire a été minimisé par le modérateur sur le site
La fonctionnalité Fractionner (document) de Kutools for Word peut aider les utilisateurs à fractionner un document Word en en-tête 1, saut de page, saut de section ou page.
De plus, Kutools for Word inclut également la fonctionnalité de fusion pour fusionner plusieurs documents Word en un seul.
Ce commentaire a été minimisé par le modérateur sur le site
j'ai besoin de diviser le document en utilisant la plage de pages. par exemple, je voulais diviser 1 à 10 pages dans un autre document. comment je peux le faire
Ce commentaire a été minimisé par le modérateur sur le site
Salut - j'ai la même question, une façon de faire cela?
Ce commentaire a été minimisé par le modérateur sur le site
Pouvez-vous diviser le document en fonction des styles de titre 1 comme "délimiteur".
Ce commentaire a été minimisé par le modérateur sur le site
Salut Andrew,
Le script VBA peut diviser l'intégralité du document par page. Si vous devez diviser par titre 1, nous vous suggérons d'essayer Kutools for Word's Split (Document) fonctionnalité.
Ce commentaire a été minimisé par le modérateur sur le site
Fodler téléchargé ne s'ouvre pas du tout. Attendre longtemps.
Il n'y a pas encore de commentaires postés ici
TÉLÉCHARGER PLUS
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL