VBA를 통해 특정 스타일이 적용된 인스턴스를 계산하는 방법은 무엇입니까?

Word에서는 스타일 창에서 스타일의 풀다운 메뉴를 클릭 할 수 있으며 활성 문서 전체에서 해당 스타일이 적용되는 빈도를 보여줍니다. 이것은 쉽게 이용할 수있는 정보입니다.

VBA를 통해이 정보를 얻을 수있는 방법이 있습니까?

사용 방법을 정확히 지정하지 않았지만 시작해야합니다. TechArchive.net- Style Instance Count 에서이 값을 찾았습니다 . 이들은 약간 수정하면 원하는 스타일을 셀 수있는 두 개의 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에서 작동했습니다.