Renommer fichiers suite à publipostage et séparation pages

[vsan]

Bonjour à tous,

Sous Word2000, j'ai créer un publipostage.
Je me retrouve avec un fichier de 61 pages.
J'ai appliqué la macro qui va bien (Breakonpage trouvée sur le site de l'assistance microsoft) et j'ai maintenant 61 fichiers...
Sauf, que je souhaiterai les renommer selon la même liste de publipostage...
Vous voyez ce qu eje veux dire??
Sur la page 1, j'ai la référence "Pièce 1", etc.
Je souhaiterai donc que la macro renomme en sortie les fichiers en "Piece 1.doc"...

Je vous colle ci-dessous la macro pour séparer les pages...

Merci de votre aide!

Vincent

Sub BreakOnPage()
   ' Used to set criteria for moving through the document by page.
   Application.Browser.Target = wdBrowsePage

   For i = 1 To ActiveDocument.BuiltInDocumentProperties("Number of Pages")
      
      'Select and copy the text to the clipboard
      ActiveDocument.Bookmarks("\page").Range.Copy

      ' Open new document to paste the content of the clipboard into.
      Documents.Add
      Selection.Paste
' Removes the break that is copied at the end of the page, if any.
      Selection.TypeBackspace
      ChangeFileOpenDirectory "D:\Test Macro"
      DocNum = DocNum + 1
      ActiveDocument.SaveAs FileName:="test_" & DocNum & ".doc"
      ActiveDocument.Close

      ' Move the selection to the next page  in the document
      Application.Browser.Next
   Next i
   ActiveDocument.Close savechanges:=wdDoNotSaveChanges
End Sub