2 façons rapides d'extraire des pages individuelles de votre document Word

Dans cet article, nous souhaitons partager avec vous deux méthodes rapides pour extraire des pages individuelles de votre document Word.

Parfois, dans un document Word, chaque page peut contenir un contenu assez indépendant, comme un tableau. Et vous devrez probablement envoyer différentes tables à différentes personnes. Ensuite, vous devrez enregistrer chaque tableau correspondant à chaque page, dans un fichier séparé.

La première idée qui nous vient à l'esprit devrait être le classique copier-coller. Pourtant, tout ce qui implique une sélection peut parfois être ennuyeux, car faire glisser et sélectionner peut facilement faire qu'on se termine sans aucune sélection. Pour cette raison, nous vous recommandons 2 méthodes rapides utilisant une macro pour faire le travail.

Méthode 1 : Extraire la page actuelle et l'enregistrer en tant que nouveau document

1. Avant toute chose, placez votre curseur sur la page que vous souhaitez extraire.
2. Cliquez sur l'onglet "Développeur", puis cliquez sur "Visual Basic" pour appeler l'éditeur VBA. Si le "Développeur" n'est pas activé, appuyez simplement sur "Alt + F11" à la place.
3. Deuxièmement, allez au projet "Normal" en cliquant dessus.
4. Cliquez ensuite sur l'onglet "Insérer" et choisissez "Module".
5. Double-cliquez sur le nouveau module pour ouvrir la zone d'édition.
6. Collez-y ensuite les codes suivants :

Sub SaveCurrentPageAsANewDoc()
  Dim objNewDoc As Document
  Dim objDoc As Document
  Dim strFileName As String
  Dim strFolder As String
 
  '  Initialization
  Set objDoc = ActiveDocument
 
  strFolder = InputBox("Enter folder path here: ")
  strFileName = InputBox("Enter file name here: ")
 
  '  Copy current page.
  objDoc.Bookmarks("\Page").Range.Select
  Selection.Copy
 
  '  Open a new document to paste the selection.
  Set objNewDoc = Documents.Add
  Selection.Paste
 
  objNewDoc.SaveAs FileName:=strFolder & "\" & strFileName & ".docx"
  objNewDoc.Close
End Sub

7. Enfin, cliquez sur le bouton "Exécuter".

Maintenant, il y aura 2 champs de saisie. Entrez le chemin où vous souhaitez stocker le nouveau document dans la première zone de saisie. Et entrez le nouveau nom du document sur le second.

Méthode 2 : Extrayez chaque page et enregistrez-la en tant que nouveau document

La macro suivante vous permettra d'extraire chaque page individuelle d'un document.

1. Tout d'abord, appuyez sur "Ctrl + Accueil" pour aller au tout début de votre document.
2. Suivez ensuite les mêmes étapes que dans la méthode 1 pour installer et exécuter une macro.
3. Cette fois, remplacez la macro par celle-ci :

Sub SaveEachPageAsADoc()
  Dim objNewDoc As Document
  Dim objDoc As Document
  Dim nPageNumber As Integer
  Dim strFolder As String
  Dim objFileName As Range
 
  '  Initialization
  Set objDoc = ActiveDocument
 
  strFolder = InputBox("Enter folder path here: ")
 
  '  Copy each page in the document to paste it into a new one.
  For nPageNumber = 1 To ActiveDocument.ComputeStatistics(wdStatisticPages)
    Application.Browser.Target = wdBrowsePage
    ActiveDocument.Bookmarks("\page").Range.Select
    Selection.Copy
 
    Set objNewDoc = Documents.Add
    Selection.Paste
 
    '  Save new doc with the name of "Page" & nPageNumber and get the first 20 characters of the new doc as part of the file name.
    Set objFileName = objNewDoc.Range(Start:=0, End:=20)
    objNewDoc.SaveAs FileName:=strFolder & "\" & "Page " & nPageNumber & " " & objFileName & ".docx"
    objNewDoc.Close
    Application.Browser.Next
  Next nPageNumber
End Sub

Traiter les problèmes de mots

Il existe et il existera toujours divers problèmes avec Word. L'important est d'apprendre à les résoudre correctement. La méthode la plus recommandée est, bien sûr, de se procurer un logiciel avancé. Récupération de mots outil. Vous devez saisir chaque minute pour récupérer vos données avant qu'il ne soit trop tard.

Introduction de l'auteur:

Vera Chen est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris xlsx corrompu et pdf réparer les produits logiciels. Pour plus d'informations, visitez www.datanumen.com