InUse Property Example

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