Как считать случаи, когда определенный стиль был применен через VBA?

Question

В Word можно щелкнуть раскрывающееся меню стиля в окне стилей, и оно показывает, как часто этот стиль применяется во всем активном документе. Так что это информация, которая легко доступна.

Есть ли способ получить эту информацию через VBA?

Answer 1

Вы не указали, как именно вы хотите его использовать, но это должно помочь вам начать. Нашел это на TechArchive.net - Количество экземпляров стиля. Это два сабвуфера VBA, которые, с небольшими изменениями, вы можете посчитать стиль, который вы ищете.

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

Не уверен, какую версию вы используете, но это работало с Word 2010.