Document.UpdateStyles (Word)

Copia todos los estilos de la plantilla adjunta al documento, sobrescribiendo todos aquellos estilos del documento que tengan el mismo nombre.

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