Les documents Microsoft Word peuvent contenir des pages individuelles qui conviendraient mieux à leurs propres documents. Par exemple, un document peut contenir des dizaines de pages de formulaires, dont la plupart vont à un service distinct pour traitement. Pour extraire une page individuelle, vous pouvez la copier dans un fichier vierge. Pour extraire toutes les pages d'un document, vous devez copier et coller chacun de ses fichiers, ce qui peut prendre beaucoup de temps et d'efforts. Toutefois, vous pouvez automatiser le processus d'extraction en écrivant une macro Visual Basic.
1
Appuyez sur "Alt-F11" pour ouvrir l'éditeur Visual Basic de Word.
2
Cliquez sur le module "NewMacros" dans le dossier Modules de la fenêtre Projet, si Word ne l'ouvre pas automatiquement.
3
Tapez ce qui suit pour ouvrir une nouvelle macro:
Sous mcrExtractPages ()
4
Ajoutez le code suivant pour définir la macro pour parcourir le document par page:
Application.Browser.Target = wdBrowsePage
5
Ajoutez le code suivant, qui ouvre une boucle qui s'exécute sur chaque page du document:
Pour i = 1 To ActiveDocument.BuiltInDocumentProperties ("Nombre de pages")
6
Ajoutez ce qui suit pour copier le contenu de la page sélectionnée:
ActiveDocument.Bookmarks (" page"). Range.Copy
7
Ajoutez le code suivant pour créer un nouveau document:
Documents.Add
8
Ajoutez le code suivant pour coller le code copié dans le nouveau document:
Selection.Paste
9
Ajoutez le code suivant pour définir le répertoire dans lequel Word enregistrera les pages extraites:
ChangeFileOpenDirectory "C: Users Ryan Documents"
10
Remplacez "C: Users Ryan Documents" par le répertoire de votre choix.
11
Ajoutez le code suivant pour enregistrer le nouveau document en tant que nouveau fichier dans le répertoire choisi:
DocNum = DocNum + 1 ActiveDocument.SaveAs FileName: = "ExtraitePage_" & DocNum & ".docx"
12
Remplacez "ExtracedPage_" par le nom que vous souhaitez attribuer aux pages extraites.
13
Ajoutez le code suivant pour fermer le nouveau document et passer à la page suivante du document principal:
ActiveDocument.Close Application.Browser.Next
14
Ajoutez le code suivant pour fermer la boucle:
Suivant i
15
Ajoutez le code suivant pour fermer la macro:
End Sub
16
Appuyez sur "F5" pour exécuter la macro.