Comment diviser un document Word en fichiers séparés toutes les 5 ou n pages?
Lorsque vous travaillez avec des documents Word volumineux, vous devrez peut-être diviser le document en fichiers plus petits et séparés pour faciliter la manipulation, le partage ou la modification. Diviser un document toutes les 5 ou 10 ou un nombre spécifié de pages peut être une solution pratique pour gérer plus efficacement un contenu long.
Copier et coller manuellement les pages une par une prend du temps et est inefficace. Dans ce didacticiel, nous présenterons des méthodes simples et rapides pour diviser un document Word en fichiers séparés toutes les N pages :
Divisez un document Word en fichiers séparés toutes les N pages avec le code VBA
Divisez un document Word en fichiers séparés toutes les N pages avec une fonctionnalité étonnante
Divisez un document Word en fichiers séparés toutes les N pages avec le code VBA
Pour diviser un document volumineux en fichiers séparés toutes les N pages, le code VBA suivant peut vous aider. Suivez ces étapes :
- maintenez ALT + F11 ouvrir le Microsoft Visual Basic pour applications fenêtre.
- Cliquez sur insérer > Module, et copiez et collez le code suivant dans le module vide :
- Après avoir collé le code, toujours dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur Outils > Références. Dans le Références - Projet boîte de dialogue, vérifiez le Expressions régulières Microsoft VBScript 5.5 Option de Références disponibles liste. Voir les captures d'écran :
- Cliquez sur OK, puis appuyez F5 pour exécuter le code.
- A Parcourir pour le dossier Une boîte de dialogue apparaît. Sélectionnez le dossier dans lequel vous souhaitez enregistrer les fichiers fractionnés, puis cliquez sur OK.
- Une autre invite apparaîtra vous demandant le nombre de pages que vous souhaitez diviser. Entrez le nombre de pages souhaité et cliquez sur OK.
- Le document sera divisé en fichiers séparés toutes les N pages. Accédez au dossier spécifié pour afficher les résultats.
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 number of pages per 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 a valid page number:", vbInformation, "Kutools for Word"
Exit Sub
End If
If VBA.Int(xSplit) >= xPageCount Then
MsgBox "The entered number exceeds the total page count of the document." & vbCrLf & "Please enter a valid number.", 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
Divisez un document Word en fichiers séparés toutes les N pages avec une fonctionnalité étonnante
Kutools for Word fournit un puissant Diviser Fonction qui vous permet de diviser rapidement un document Word volumineux en plusieurs fichiers distincts en fonction du titre 1, des sauts de page, des sauts de section ou des pages. Cette fonctionnalité simplifie ce qui serait autrement un processus manuel fastidieux.
- Cliquez sur Kutools Plus > Diviser.
- Dans la boîte de dialogue qui s’affiche, configurez les options suivantes selon vos besoins :
- Sélectionnez le Toutes les n pages Option de Divisé par menu.
- Spécifie le n valeur dans la zone de saisie.
- Choisissez un emplacement de sauvegarde.
- Spécifiez un préfixe pour les documents divisés.
- Après avoir terminé les réglages, cliquez sur OKLe document sera divisé en plusieurs fichiers en fonction de l'option sélectionnée (par exemple, toutes les 7 pages).
Le Diviser La fonctionnalité de Kutools pour Word rend la division de documents volumineux en fichiers plus petits et gérables à la fois simple et efficace.
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 !
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 !