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 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 de n'enregistrer qu'une page en cours dans un nouveau fichier Word. Normalement, vous pouvez copier et coller les données de la page en cours dans un nouveau fichier Word, puis les enregistrer. Mais dans cet article, je vais expliquer comment enregistrer la page actuelle ou chaque page sous forme de documents distincts à partir d’un fichier Word.

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

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


Enregistrez chaque page d'un document Word dans des fichiers séparés:

Avec Kutools for Word's Divisé fonction, vous pouvez rapidement enregistrer un document Word volumineux dans plusieurs fichiers distincts en fonction de Heading1, du saut de page, du saut de section et de la 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!


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

Le code VBA suivant peut vous aider à enregistrer le contenu de la page actuelle dans un nouveau fichier Word. Veuillez procéder comme suit:

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

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

Code VBA: enregistrer 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 Pour exécuter ce code, dans la boîte de dialogue qui apparaît, entrez un nom pour le nouveau fichier, voir la capture d'écran:

doc enregistrer la page en cours 1

4. Puis clique OK Cliquez sur le bouton, et dans la deuxième fenêtre déroulante, choisissez un dossier pour générer le nouveau fichier, voir la capture d'écran:

doc enregistrer la page en cours 2

5. Cliquez OK bouton, le contenu de la page actuelle a été enregistré dans un nouveau fichier Word, vous pouvez aller dans le dossier pour voir le résultat.


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

Si vous souhaitez enregistrer chaque page du document entier dans des fichiers séparés, Kutools for Word's Divisé la fonction peut vous faire une faveur.

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, s'il vous plaît faire avec les étapes suivantes:

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

doc enregistrer la page en cours 3

2. Dans le Document divisé boite de dialogue:

(1.) Cliquez sur doc enregistrer la page en cours 5 bouton pour choisir un dossier pour sortir les nouveaux fichiers;

(2.) Et puis, sélectionnez Page du Divisé par la liste déroulante.

doc enregistrer la page en cours 4

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

doc enregistrer la page en cours 6

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.

Be the first to comment.