在 Word 中,可以单击样式窗口中样式的下拉菜单,它会显示该样式在整个活动文档中的应用频率。所以这是一项随时可用的信息。
有没有办法通过 VBA 获取这些信息?
答案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。