如何计算通过 VBA 应用某种样式的实例?

如何计算通过 VBA 应用某种样式的实例?

在 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。

相关内容