Voici macro qui va sauvegarder chaque page d'un document en un fichier indépendant.
Attention, la macro suivante ne fonctionnera pas sil le document est séparé par des sauts de section, comme les documents qui résultent d'un publipostage. Pour ce cas, veuillez voir la macro de cet article.
Sub coupe_pages()
Application.Browser.Target = wdBrowsePage
For i = 1 To ActiveDocument.BuiltInDocumentProperties("Number of Pages")
'sélectionne et copie le texte vers le presse papier
ActiveDocument.Bookmarks("\page").Range.Copy
' Ouvre un nouveau document et colle le texte du presse papier
Documents.Add
Selection.Paste
' ôte le saut de page si nécessaire
Selection.TypeBackspace
ChangeFileOpenDirectory "C:\"
DocNum = DocNum + 1
ActiveDocument.SaveAs FileName:="test_" & DocNum & ".doc"
ActiveDocument.Close
' page suivante
Application.Browser.Next
Next i
ActiveDocument.Close savechanges:=wdDoNotSaveChanges
End Sub