Document.SaveAsQuickStyleSet (Word)

Saves the group of quick styles currently in use.

SaveAsQuickStyleSet (FileName)

FileName: The path and file name for the quick style set file.

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