Sélectionner le 1er mot de chaque page

[gaetan40]

Bonjour,

Je souhaiterais à l'aide d'une macro extraire le 1er mot de chaque page.
J'ai essayé la chose suivante qui ne marche pas :

nom1 = ActiveDocument.Pages(1).Paragraphs(1).Range.Words(1)
nom2 = ActiveDocument.Pages(2).Paragraphs(1).Range.Words(1)

Savez-vous comment sélectionner chaque page car c'est seulement ce qui me manque ?

Merci d'avance.