Document.UpdateStyles (Word)

Copies all styles from the attached template into the document, overwriting any existing styles in the document that have the same name.

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