![如何计算通过 VBA 应用某种样式的实例?](https://linux22.com/image/1356219/%E5%A6%82%E4%BD%95%E8%AE%A1%E7%AE%97%E9%80%9A%E8%BF%87%20VBA%20%E5%BA%94%E7%94%A8%E6%9F%90%E7%A7%8D%E6%A0%B7%E5%BC%8F%E7%9A%84%E5%AE%9E%E4%BE%8B%EF%BC%9F.png)
在 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。