Comment diviser un document Word en fichiers séparés tous les 5 ou n pages ?
Lorsque vous travaillez avec de grands documents Word, vous pourriez avoir besoin de diviser le document en fichiers plus petits et séparés pour une gestion, un partage ou une modification plus faciles. Diviser un document tous les 5, 10 ou un nombre spécifié de pages peut être une solution pratique pour gérer plus efficacement des contenus volumineux.
Copier et coller manuellement les pages une par une est chronophage et inefficace. Dans ce tutoriel, nous allons présenter des méthodes rapides et simples pour diviser un document Word en fichiers séparés tous les N pages :
Diviser un document Word en fichiers séparés tous les N pages avec du code VBA
Diviser un document Word en fichiers séparés tous les N pages avec une fonctionnalité étonnante
Diviser un document Word en fichiers séparés tous les N pages avec du code VBA
Pour diviser un grand document en fichiers séparés selon chaque N pages, le code VBA suivant peut vous aider. Suivez ces étapes :
- Maintenez ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.
- Cliquez sur Insérer > Module, puis copiez et collez le code suivant dans le module vide :
- Après avoir collé le code, restez dans Microsoft Visual Basic for Applications fenêtre, cliquez sur Outils > Références. Dans la Références - Projet boîte de dialogue, cochez l'option Microsoft VBScript Regular Expressions 5.5 depuis la liste des Références disponibles . Consultez les captures d'écran :
- Cliquez sur OK, puis appuyez sur F5 pour exécuter le code.
- Une boîte de dialogue Parcourir un dossier apparaîtra. Sélectionnez le dossier où vous souhaitez enregistrer les fichiers divisés, puis cliquez sur OK.
- Une autre invite apparaîtra, demandant le nombre de pages à diviser. Entrez le nombre de pages souhaité et cliquez sur OK.
- Le document sera divisé en fichiers séparés tous les N pages. Accédez au dossier spécifié pour voir 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
Diviser un document Word en fichiers séparés tous les N pages avec une fonctionnalité étonnante
Kutools for Word fournit une fonctionnalité puissante de division qui vous permet de diviser rapidement un grand document Word en plusieurs fichiers séparés basés sur Titre 1, sauts de page, sauts de section ou pages. Cette fonction simplifie ce qui serait autrement un processus manuel fastidieux.
- Cliquez sur Kutools Plus > Diviser.
- Dans la boîte de dialogue qui apparaît, configurez les options suivantes selon vos besoins :
- Sélectionnez l'option Toutes les n pages depuis le menu Diviser par.
- Spécifiez la valeur de n dans la zone de saisie.
- Choisissez un emplacement de sauvegarde.
- Spécifiez un préfixe pour les documents divisés.
- Après avoir complété les paramètres, cliquez sur OK. Le document sera divisé en plusieurs fichiers basés sur l'option sélectionnée (par exemple, toutes les 7 pages).
Utiliser la fonctionnalité Diviser dans Kutools for Word rend la division de grands documents en fichiers plus petits et gérables à la fois simple et efficace.
Meilleurs outils de productivité pour Office
Kutools pour Word – Améliorez votre expérience Word avec plus de 100 fonctionnalités exceptionnelles!
🤖 Fonctionnalités IA de Kutools: Assistant IA/ Assistant en Temps Réel/ Super Polir (Conserve la mise en forme)/ Super Traduire (Conserve la mise en forme)/ Rédaction IA/ Correction AI...
📘 Maîtrise des documents: Diviser des pages/ Fusionner les documents/ Exporter une sélection dans différents formats (PDF/TXT/DOC/HTML...)/ Conversion en lot vers PDF...
✏ Édition de contenu: Recherche et remplacement en lot dans plusieurs fichiers/ Redimensionner toutes les images/ Transposer les lignes et colonnes de tableau/ Convertir le tableau en texte...
🧹 Nettoyage facile: Éliminez les espaces supplémentaires/ sauts de section/ zones de texte/ liens hypertexte/ Pour plus d’outils de suppression, consultez le groupe Supprimer...
➕ Insertion créative: Insérez des séparateurs de milliers/ cases à cocher/ boutons radio/ code QR/ code-barres/ images multiples/ Découvrez-en plus dans le groupe Insérer...
🔍 Sélection avec précision: Ciblez des pages spécifiques / tableaux / formes / paragraphes de titre / Améliorez la navigation avec davantage de Sélectionner fonctionnalités...
⭐ Fonctionnalités phares: Accédez à n'importe quel emplacement/ Insertion automatique de textes répétitifs/ Basculez entre les fenêtres de document/11 outils de conversion...
🌍 Prise en charge de plus de40 langues: utilisez Kutools dans la langue de votre choix – Anglais, Espagnol, Allemand, Français, Chinois et plus de40 autres langues!
Meilleurs outils de productivité pour Office
Kutools pour Word – 100+ outils pour Word
- 🤖 Fonctionnalités IA de Kutools: Assistant IA/ Assistant en Temps Réel/ Super Polir/ Super Traduire/ Rédaction IA/ Correction AI
- 📘 Maîtrise des documents: Diviser des pages/ Fusionner les documents/ Conversion en lot vers PDF
- ✏ Édition de contenu: Recherche et remplacement en lot/ Redimensionner toutes les images
- 🧹 Nettoyage facile: Supprimer les espaces supplémentaires/ Supprimer les sauts de section
- ➕ Insertion créative: Insérer des séparateurs de milliers/ Insérer des cases à cocher/ Créer des codes QR
- 🌍 Prise en charge de plus de40 langues: Kutools parle votre langue– plus de40langues prises en charge!