Document.SaveAsQuickStyleSet (Word)

Guarda el grupo de estilos rápidos que se usan actualmente.

SaveAsQuickStyleSet (FileName)

FileName: Ruta de acceso y nombre de archivo del archivo del conjunto de estilos rápidos.

Dim strFileName As String: strFileName =  
ActiveDocument.SaveAsQuickStyleSet FileName:=strFileName