Comment enregistrer la page actuelle ou chaque page en tant que document Word séparé?

S'il y a plusieurs pages dans votre document Word, il vous suffit maintenant d'enregistrer une seule page actuelle en tant que nouveau fichier Word. Normalement, vous pouvez copier et coller les données de la page en cours dans un nouveau fichier Word, puis l'enregistrer. Mais, dans cet article, je vais parler de la façon d'enregistrer la page actuelle ou chaque page en tant que documents séparés à partir d'un fichier Word.

Enregistrer la page actuelle en tant que nouveau document Word avec le code VBA

Enregistrez chaque page en tant que documents Word distincts avec Kutools for Word

Enregistrer la page actuelle en tant que nouveau document Word avec le code VBA

Le code VBA suivant peut vous aider à enregistrer le contenu d'une page actuelle dans un nouveau fichier Word, procédez comme suit:

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

2Cliquez sur insérer > Moduleet collez le code suivant dans la fenêtre Module.

Code VBA: enregistrez la page actuelle en tant que nouveau document Word:

Sub SaveCurrentPageAsANewDoc()
    Dim xDoc As Document
    Dim xNewDoc As Document
    Dim xFileName As String
    Dim xFolderPath As Variant
    Dim xDlg As FileDialog
    Set xDoc = ActiveDocument
    xFileName = InputBox("Enter file name here: ", "KuTools for Word")
    If xFileName = "" Then Exit Sub
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show = -1 Then
        xFolderPath = xDlg.SelectedItems(1)
        xDoc.Bookmarks("\Page").Range.Select
        Selection.Copy
        Set xNewDoc = Documents.Add
        Selection.Paste
        xNewDoc.SaveAs xFolderPath & "\" & xFileName & ".docx"
        xNewDoc.Close
    End If
End Sub

3. Et puis, appuyez sur F5 clé pour exécuter ce code, dans la boîte de dialogue qui apparaît, entrez un nom pour le nouveau fichier, voir capture d'écran:

4. Puis clique OK bouton, et dans la deuxième fenêtre pop-out, veuillez choisir un dossier pour sortir le nouveau fichier, voir capture d'écran:

5Cliquez sur OK , le contenu de la page actuelle a été enregistré en tant que nouveau fichier Word, vous pouvez aller dans le dossier pour afficher le résultat.

Enregistrez chaque page en tant que documents Word distincts avec Kutools for Word

Si vous souhaitez enregistrer chaque page de l'ensemble du document sous forme de fichiers séparés, le Kutools for Word's Diviser la fonction peut vous rendre service.

Après l'installation de Kutools for Word, veuillez suivre les étapes suivantes:

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

2. Dans le Diviser le document boite de dialogue:

(1.) Sélectionnez Page du Divisé par la liste déroulante;

(1.) Cliquez sur bouton pour choisir un dossier pour sortir les nouveaux fichiers;

(2.) Et puis, spécifiez le préfixe pour les nouveaux fichiers enregistrés selon vos besoins.

3. Après avoir terminé les réglages, cliquez sur OK pour commencer le fractionnement, puis toutes les pages du document Word ont été enregistrées en tant que fichiers séparés dans le dossier spécifique, comme illustré ci-dessous:

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

Meilleurs outils de productivité bureautique

Kutools for Word - Élevez votre expérience Word avec Over 100 Caractéristiques remarquables !

🤖 Assistant IA Kutools: Transformez votre écriture avec l'IA - Générer du contenu  /  Réécrire le texte  /  Résumer des documents  /  Demander des informations basé sur le document, le tout dans Word

(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  /  Exporter des pages sous forme d'images  /  Imprimer plusieurs fichiers à la fois

✏ Édition du contenu: Rechercher et remplacer 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  /  Tous les en-têtes  /  Boîtes de texte  /  Liens hypertextes  / Pour plus d'outils de suppression, rendez-vous sur notre Supprimer le groupe

➕ Insertions créatives: Insérer Mille séparateurs  /  Cases à cocher  /  Boutons radio  /  code QR  /  Code barres  /  Tableau des lignes diagonales  /  Légende de l'équation  /  Légende  /  Légende de la table  /  Plusieurs images  / Découvrez-en davantage dans le Insérer un groupe

🔍 Sélections de précision: Localiser pages spécifiques  /  les tables  /  formes  /  paragraphes de titre  / Améliorez la navigation avec PLUS Sélectionnez les fonctionnalités

⭐ Améliorations des étoiles: Naviguez rapidement vers n’importe quel endroit  /  insertion automatique de texte répétitif  /  basculer de manière transparente entre les fenêtres de document  /  11 outils de conversion

👉 Vous voulez essayer ces fonctionnalités ? Kutools for Word propose un Essai gratuit 60-day, sans aucune limite ! 🚀

Téléchargement gratuit     En savoir plus     COMMANDER MAINTENANT