WordVBA：段落スタイルの使用をチェック

Sub 段落スタイル使用チェック()
'
' 段落スタイル使用チェック
'
Dim para As Paragraph
Const pStyleStd As String = "標準"    '段落 標準


Dim pStyleCount As Integer      '段落 スタイル数（除く標準）

pStyleCount = 0                 '段落 スタイル数初期化　= 0
For Each para In ActiveDocument.Paragraphs  '段落ごとに処理：循環開始
    With para.range
        Debug.Print .Style                  'イミディエイトウインドウに段落スタイル名を表示
        If .Style <> pStyleStd Then
            pStyleCount = pStyleCount + 1   '「標準」以外の段落スタイル累計を加算
        End If
    End With
Next                                        '段落ごとに処理：循環終了
    
Debug.Print pStyleStd & "以外の段落スタイル数：" & pStyleCount  '「標準」以外の段落スタイル累計表示
End Sub

Wordを使っている方は多いのですが、意外と少ないのが「段落スタイル」の使用状況。でも、中には、ちゃんと使っている方がいるかもしれません。そういう方のWordというのは、別段で考えないと折角の文書構造を壊してしまうことになりかねません。チェックするVBAが必要だろうと…。
ということで、「標準」以外の「段落スタイル」がいくつあるか、イミディエイト・ウインドウに表示するという、簡単なスクリプトです。