Document.UpdateStyles (Word)

Copie dans le document tous les styles du modèle attaché, en écrasant tout style précédent qui porte le même nom.

For Each aDoc In Documents 
 aDoc.UpdateStyles 
 aDoc.Close SaveChanges:=wdSaveChanges 
Next aDoc