Fusion et Publipostage

Bonjour a tous
Et merci de bien vouloir m'aider.
Voici mon problème:

Question :

Apres une fusion publipostage, A l’aide du code ci-dessous je sectionne chaque page.
Chaque page est nommée par fiche et N° .je suis obligé de reprendre chaque page et de la renommer manuellement par le nom et prénom qui sert de fiche individuelle.

Je souhaiterais donc que chaque page prenne le nom et prénom des champs pour nommer la page. Es possible ? et que changer dans ce code (Trouvé sur le web) ?

Merci pour votre aide
soyez indulgent,Je ne suis pas un champion du code Vba, merci de votre compréhension.


Sub couper_sections()
Application.Browser.Target = wdBrowseSection

For i = 1 To ((ActiveDocument.Sections.Count) - 1)

'Sélectionne et copie le texte de la section dans le presse-papier
ActiveDocument.Bookmarks("\Section").Range.Copy

'Crée un nouveau document et colle le texte du presse-papier
Documents.Add
Selection.Paste

' Retire le saut de section qui a été copié
Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1

ChangeFileOpenDirectory "C:\ ‘Chemin du dossier Fiche Elèves

DocNum = DocNum + 1
ActiveDocument.SaveAs FileName:="Fiche" & DocNum & ".doc"
ActiveDocument.Close

'section suivante
Application.Browser.Next
Next i
ActiveDocument.Close savechanges:=wdDoNotSaveChanges
End Sub