Como contar as instâncias que um determinado estilo foi aplicado via VBA?

Question

No Word, pode-se clicar no menu suspenso de um estilo na janela de estilo e mostrar com que frequência esse estilo foi aplicado em todo o documento ativo. Então esta é uma informação que está prontamente disponível.

Existe alguma maneira de obter essa informação via VBA?

    

Answer 1

Você não especificou exatamente como queria usá-lo, mas isso deve começar. Achei isso em TechArchive.net - Contagem de instâncias de estilo . Estes são dois subs do VBA que, com pequenas modificações, você pode contar o estilo que você procura.

Sub CountStyle()
Dim l As Long
ResetSearch
With ActiveDocument.Range.Find
   .Style = "Strong" 'Replace with the name of the style you are counting
   While .Execute
      l = l + 1
      If l > ActiveDocument.Range.Paragraphs.Count Then
         Stop
      End If
   Wend
End With
MsgBox l
ResetSearch
End Sub

Public Sub ResetSearch()
With Selection.Find
   .ClearFormatting
   .Replacement.ClearFormatting
   .Text = ""
   .Replacement.Text = ""
   .Forward = True
   .Wrap = wdFindContinue
   .Format = False
   .MatchCase = False
   .MatchWholeWord = False
   .MatchWildcards = False
   .MatchSoundsLike = False
   .MatchAllWordForms = False
   ' plus some more if needed
   .Execute
End With
End Sub

Não tenho certeza sobre qual versão você está usando, mas isso funcionou com o Word 2010.