Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

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

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

Diviser un document Word en fichiers séparés chaque 10 ou n pages avec du code VBA

Diviser un document Word en fichiers séparés chaque page 1 avec Kutools for Word


Diviser un document Word en fichiers séparés en fonction de chaque page:

Avec Kutools for Word's Divisé fonctionnalité, vous pouvez rapidement diviser un grand document Word en plusieurs fichiers distincts basés sur Heading1, saut de page, saut de section et page.

doc split word toutes les n pages 9

Kutools for Word: avec plus de 100 compléments de Word pratique, libre d'essayer sans limitation dans les jours 60. Cliquez pour télécharger et essai gratuit maintenant!


Diviser un document Word en fichiers séparés chaque 10 ou n pages avec du code VBA

Pour diviser un document volumineux en fichiers distincts basés sur chaque page 10 ou n, le code VBA suivant peut vous être utile, veuillez faire ceci:

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 pages 10 ou n:

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, s'il vous plaît cliquez Outils > Les références, et dans le sauté Références-Projet boîte de dialogue, vérifier Microsoft VBScript Regular Expressions 5.5 option dans la Références disponibles zone de liste, voir capture d'écran:

doc split word toutes les n pages 1

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

doc split word toutes les n pages 2

5. Puis clique OK bouton, et une autre boîte d'invite est apparue pour vous rappeler d'entrer le numéro de nombre de pages que vous souhaitez fractionner en fonction, voir la capture d'écran:

doc split word toutes les n pages 3

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

doc split word toutes les n pages 4


Diviser un document Word en fichiers séparés chaque page 1 avec Kutools for Word

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

Kutools for Word : avec plus de 100 add-in Word, gratuit pour essayer sans limitation dans 60 jours.

Après l'installation de Kutools for Word, faites comme ceci:

1. Cliquez Entreprise > Divisé, voir capture d'écran:

doc split word toutes les n pages 5

2. Dans le sauté Document divisé boîte de dialogue, cliquez sur doc split word toutes les n pages 7 bouton pour sélectionner un dossier pour placer les fichiers fractionnés, puis choisissez Page du Divisé par liste déroulante, voir capture d'écran:

doc split word toutes les n pages 6

3. Après avoir terminé les réglages, veuillez cliquer OK, et le document entier sera divisé en plusieurs fichiers basés sur chaque page, voir la capture d'écran:

doc split word toutes les n pages 8

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




Outils de productivité Word recommandés

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

  • Des opérations compliquées et répétées peuvent être effectuées en une seconde.
  • Insérez plusieurs images sur des dossiers dans un document Word à la fois.
  • Fusionner et combiner plusieurs fichiers Word sur plusieurs dossiers en un seul avec votre ordre souhaité.
  • Divisez le document actuel en documents distincts en fonction de l'en-tête, du saut de section ou d'un autre critère.
  • Convertir des fichiers entre Doc et Docx, Docx et PDF, une collection d'outils pour les conversions et la sélection courantes, etc.
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Mike · 5 months ago
    For me, the VBA creates a single document that is a copy of the original and that's it.
  • To post as a guest, your comment is unpublished.
    Studia · 5 months ago
    The VBscript code made Word crash. I was trying to split a 32Mb Word file with many pages but it seems Word can't handle it through VBscript.
    Thanks anyway
    • To post as a guest, your comment is unpublished.
      skyyang · 5 months ago
      Hello, Studia,
      The VBA code may crash when there is a large document, it is not stable, so I recommend you use our Kutools for Word tool, it has updated, and support to solve this task, you can download it and free trial 30 day.
      Please try, thank you!
  • To post as a guest, your comment is unpublished.
    Sergey · 7 months ago
    VBA Script: Split a document into separate files every 10 or n pages not worked
    • To post as a guest, your comment is unpublished.
      skyyang · 6 months ago
      Hello, Sergey,
      The above code works well in my Word document, which Word version do you use?
      And which step went wrong in your operation?
  • To post as a guest, your comment is unpublished.
    Lena · 8 months ago
    i have been trying to split a word file of 166 pages and it gives 166 files each with 166 pages?