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

Comment diviser un document Word en fichiers séparés toutes les 5 ou n pages?

Si vous avez un grand document Word qui contient des centaines de pages, et maintenant, vous souhaitez diviser ce document en fichiers séparés toutes les 10 ou n pages. Existe-t-il un moyen rapide et facile de résoudre ce travail sans copier et coller les pages une par une?

Divisez un document Word en fichiers séparés toutes les 10 ou n pages avec le code VBA

Divisez un document Word en fichiers séparés toutes les 10 ou n pages avec une fonctionnalité étonnante


Divisez un document Word en fichiers séparés toutes les 10 ou n pages avec le code VBA

Pour diviser un grand document en fichiers séparés sur la base de toutes les 10 ou n pages, le code VBA suivant peut vous rendre service, procédez comme suit:

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Et puis, cliquez insérer > Module, copiez et collez le code ci-dessous dans le module vide ouvert:

Code VBA: divisez un document en fichiers séparés toutes les 10 ou n pages:

Sub DocumentSplitter()
    Dim xDoc As Document, xNewDoc As Document
    Dim xSplit As String, xCount As Long, xLast As Long
    Dim xRngSplit As Range, xDocName As String, xFileExt As String
    Dim xRegEx As RegExp
    Dim xPageCount As Integer
    Dim xShell As Object, xFolder As Object, xFolderItem As Object
    Dim xFilePath As String
    On Error Resume Next
    Set xDoc = Application.ActiveDocument
    Set xShell = CreateObject("Shell.Application")
    Set xFolder = xShell.BrowseforFolder(0, "Select a Folder:", 0, 0)
    If TypeName(xFolder) = "Nothing" Then Exit Sub
    Set xFolderItem = xFolder.Self
    xFilePath = xFolderItem.Path & "\"
    Application.ScreenUpdating = False
    Set xNewDoc = Documents.Add(Visible:=False)
    xDoc.Content.WholeStory
    xDoc.Content.Copy
    xNewDoc.Content.PasteAndFormat wdFormatOriginalFormatting
    With xNewDoc
        xPageCount = .ActiveWindow.Panes(1).Pages.Count
L1:     xSplit = InputBox("The document contains " & xPageCount & " pages." & _
                 vbCrLf & vbCrLf & " Please enter the page count you want to split:", "Kutools for Word", xSplit)
        If Len(Trim(xSplit)) = 0 Then Exit Sub
        Set xRegEx = New RegExp
        With xRegEx
            .MultiLine = False
            .Global = True
            .IgnoreCase = True
            .Pattern = "[^0-9]"
        End With
        If xRegEx.Test(xSplit) = True Then
            MsgBox "Please enter the page number:", vbInformation, "Kutools for Word"
            Exit Sub
        End If
        If VBA.Int(xSplit) >= xPageCount Then
            MsgBox "The number is greater than the document number." & vbCrLf & "Please re-enter", vbInformation, "Kutools for Word"
            GoTo L1
        End If
        xDocName = xDoc. Name
        xFileExt = VBA.Right(xDocName, Len(xDocName) - InStrRev(xDocName, ".") + 1)
        xDocName = Left(xDocName, InStrRev(xDocName, ".") - 1) & "_"
        xFilePath = xFilePath & xDocName
        For xCount = 0 To Int(xPageCount / xSplit)
            xPageCount = .ActiveWindow.Panes(1).Pages.Count
            If xPageCount > xSplit Then
                xLast = xSplit
            Else
                xLast = xPageCount
            End If
            Set xRngSplit = .GoTo(What:=wdGoToPage, Name:=xLast)
            Set xRngSplit = xRngSplit.GoTo(What:=wdGoToBookmark, Name:="\page")
            xRngSplit.Start = .Range.Start
            xRngSplit.Cut
            Documents.Add
            Selection.Paste
            ActiveDocument.SaveAs FileName:=xFilePath & xCount + 1 & xFileExt, AddToRecentFiles:=False
            ActiveWindow.Close
        Next xCount
        Set xRngSplit = Nothing
        xNewDoc.Close wdDoNotSaveChanges
        Set xNewDoc = Nothing
    End With
    Application.ScreenUpdating = True
End Sub

3. Après avoir collé le code ci-dessus, toujours dans le Microsoft Visual Basic pour applications fenêtre, veuillez cliquer Outils > Références, et dans le sauté Références-Projet boîte de dialogue, cochez Expressions régulières Microsoft VBScript 5.5 option dans la Références disponibles zone de liste, voir capture d'écran:

4. Puis clique OK bouton, puis appuyez sur F5 clé pour exécuter ce code, et un Parcourir pour le dossier boîte de dialogue s'affiche, veuillez sélectionner un dossier dans lequel vous souhaitez placer les fichiers fractionnés, voir capture d'écran:

5. Puis clique OK bouton, et une autre boîte de dialogue apparaît pour vous rappeler de saisir le nombre de pages sur lequel vous souhaitez diviser, voir capture d'écran:

6. Et puis cliquez OK bouton, le document Word actif a été divisé en fichiers séparés toutes les 10 pages, vous pouvez aller dans le dossier spécifié pour voir les résultats:


Divisez un document Word en fichiers séparés toutes les 10 ou n pages avec une fonctionnalité étonnante

Kutools pour Word comprend une fonctionnalité puissante Divisé fonction, avec cet utilitaire, vous pouvez rapidement diviser un grand document Word en plusieurs fichiers séparés basés sur Heading1, saut de page, saut de section et page.

Conseils:Appliquer cette Divisé fonctionnalité, tout d'abord, vous devez télécharger le Kutools pour Word, puis appliquez la fonction rapidement et facilement.

Après l'installation de Kutools pour Word, veuillez faire comme ceci:

1Cliquez sur Kutools Plus > Divisé, voir capture d'écran:

2. Dans la boîte de dialogue qui apparaît, veuillez définir les opérations suivantes selon vos besoins, voir capture d'écran:

3. Après avoir terminé les réglages, veuillez cliquer sur OK, et l'ensemble du document sera divisé en plusieurs fichiers en fonction de chaque page, voir capture d'écran:

Cliquez pour télécharger Kutools for Word et un essai gratuit maintenant!


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 (8)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
J'ai essayé de diviser un fichier Word de 166 pages et cela donne 166 fichiers chacun avec 166 pages ?
Ce commentaire a été minimisé par le modérateur sur le site
Script VBA : Diviser un document en fichiers séparés toutes les 10 ou n pages non travaillées
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Sergey,
Le code ci-dessus fonctionne bien dans mon document Word, quelle version de Word utilisez-vous ?
Et quelle étape a mal tourné dans votre opération ?
Ce commentaire a été minimisé par le modérateur sur le site
Le code VBscript a fait planter Word. J'essayais de diviser un fichier Word de 32 Mo avec de nombreuses pages, mais il semble que Word ne puisse pas le gérer via VBscript.
Merci quand même
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Studie,
Le code VBA peut se bloquer lorsqu'il y a un document volumineux, il n'est pas stable, je vous recommande donc d'utiliser notre outil Kutools for Word, il a été mis à jour et prend en charge la résolution de cette tâche, vous pouvez le télécharger et un essai gratuit de 30 jours.
S'il vous plaît essayez, merci!
Ce commentaire a été minimisé par le modérateur sur le site
Pour moi, le VBA crée un seul document qui est une copie de l'original et c'est tout.
Ce commentaire a été minimisé par le modérateur sur le site
ce code donne une erreur de compilation qui montre que le type défini par l'utilisateur n'est pas défini
Ce commentaire a été minimisé par le modérateur sur le site
bonnes choses. Je l'ai utilisé pour diviser avec 1 page 1 document Word, c'était réussi sauf que chaque document (après division), il a 2 pages au total bien que la 2ème page soit toujours vierge. 
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés