Document.SaveAsQuickStyleSet (Word)

Salva o grupo de estilos rápidos atualmente em uso.

SaveAsQuickStyleSet (FileName)

FileName: O caminho e o nome do arquivo definido no estilo rápido.

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