Dans une série de fichiers tous construits de la même façon, comment récupérer un mot toujours situé au même endroit et d'enregistrer le fichier sous ce nom ?

Si les fichiers sont tous semblables, il suffit de connaître le numéro de la ligne et du mot à récupérer. Dans l'exemple ci-après, il s'agit du 5e mot de la 12e ligne :

 

Sub nom()
Dim nom
nom = ActiveDocument.Paragraphs(12).Range.Words(5)
ActiveDocument.SaveAs FileName:= "c:\" & nom & ".doc
End Sub