This example displays a message box that lists the names of all the styles that are currently being used in the active document.
Set mydoc = ActiveDocument
msg = "Styles in use:" & vbCr
For Each sty In mydoc.Styles
If sty.InUse = True Then
With mydoc.Content.find
.ClearFormatting
.Text = ""
.Style = sty
.Execute Format:=True
If .Found = True Then
msg = msg & sty & vbCr
End If
End With
End If
Next sty
MsgBox msg