Document.UpdateStyles (Word)

Copia todos os estilos do modelo anexado para o documento, sobrescrevendo quaisquer estilos existentes no documento que tenham o mesmo nome.

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