【Word VBA】簡易文書解析マクロ▽ソースコード

Option Explicit

Option Base 0

'

Public Sub 簡易文書解析マクロ()

    Dim Ip As Integer, intDcn() As Integer

    Dim varKwd As Variant, strMsg As String

    '

    'キーワード設定

    varKwd = Array("", "、", "。", "日本", "国民")

    ReDim intDcn(UBound(varKwd, 1))

    '

    'カウンタークリア

    For Ip = LBound(intDcn, 1) To UBound(intDcn, 1)

        intDcn(Ip) = 0

    Next Ip

    '

    With ActiveDocument

        '*総文字数取得

        intDcn(0) = .Range.ComputeStatistics(wdStatisticCharacters)

        '*キーワードの出現数取得

        For Ip = 1 To UBound(intDcn, 1)

            With .Range(0, 0).Find

                 .MatchFuzzy = False

                 .MatchWildcards = True

                 .Text = CStr(varKwd(Ip))

                 Do While .Execute

                    intDcn(Ip) = intDcn(Ip) + 1 'Count up

                 Loop

           End With

        Next Ip

    End With

    '*表示文字列作成

    strMsg = "総文字数= " _

    & Format(intDcn(0), "#,##0") & " 文字" & vbCrLf & vbCrLf

    For Ip = 1 To UBound(intDcn, 1)

        strMsg = strMsg & "「" & CStr(varKwd(Ip)) & "」= "

        strMsg = strMsg & Format(intDcn(Ip), "#,##0") & " 個" & vbCrLf

    Next Ip

    '*結果をメッセージボックスで表示

    MsgBox strMsg, vbOKOnly + vbInformation, "簡易文書解析マクロ"

End Sub

《蛇足》

　なお、解析文書として使ったのは、日本国憲法の前文です。