Estilos de Word Macro para sacar listado y seleccionar

Aquí tienes una macro en Word que te permitirá obtener un listado de los estilos aplicados en un documento junto con el número de veces que se repiten:

Sub ListarEstilos()
    Dim docOrigen As Document
    Dim docDestino As Document
    Dim tabla As Table
    Dim estilo As Style
    Dim contador As Integer
    ' Abre el documento actual
    Set docOrigen = ActiveDocument
    ' Crea un nuevo documento para el listado
    Set docDestino = Documents.Add
    ' Añade una tabla al documento de destino
    Set tabla = docDestino.Tables.Add(docDestino.Range, docOrigen.Styles.Count, 2)
    ' Configura las columnas de la tabla
    tabla.Columns(1).Width = 200
    tabla.Columns(2).Width = 100
    ' Agrega encabezados a la tabla
    tabla.Cell(1, 1).Range.Text = "Estilo"
    tabla.Cell(1, 2).Range.Text = "Repeticiones"
    ' Itera sobre los estilos del documento de origen
    contador = 2
    For Each estilo In docOrigen.Styles
        ' Ignora los estilos ocultos
        If estilo.Hidden = False Then
            ' Inserta el nombre del estilo y el número de repeticiones en la tabla
            tabla.Cell(contador, 1).Range.Text = estilo.NameLocal
            tabla.Cell(contador, 2).Range.Text = docOrigen.Styles(estilo.NameLocal).Paragraphs.Count
            contador = contador + 1
        End If
    Next estilo
    ' Muestra el documento de destino
    DocDestino. Activate
End Sub