pdfの検索機能について

cat テキストファイル | grep -io "テスト" | wc -l

Sub 単語の出現回数を数えてみる()
  Dim count As Long, 数えたい文字列 As String

  数えたい文字列 = "テスト"
  count = 単語の出現回数を数える関数(数えたい文字列)

  MsgBox "「" & 数えたい文字列 & "」 の出現回数：" & count & "個"

End Sub

Function 単語の出現回数を数える関数(forString As String) As Long

  Dim myRange As Range
  Dim wP As Long
  Dim wE As Long
  Dim LastwE As Long
  Dim LastwP As Long
  Dim WordCnt As Long
  Dim GetWord As String

  LastwP = ActiveDocument.Range.Information(wdNumberOfPagesInDocument)

  ActiveDocument.Range(0, 0).Select
  Set myRange = ActiveDocument.Range(0, 0)

  With myRange.Find
      .Text = forString
      .Forward = True
      .Wrap = wdFindContinue
      .Format = True
      .MatchCase = True
      .MatchWholeWord = True
      .MatchByte = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = False
      .MatchFuzzy = False
      .MatchWildcards = False

      Do While .Execute

          With myRange
              wE = .End
              wP = .Information(wdActiveEndPageNumber)
          End With

          If wE < LastwE Or wE = LastwE Then
              Exit Do
          End If

          WordCnt = WordCnt + 1
          LastwE = wE

      Loop

  End With

  単語の出現回数を数える関数 = WordCnt

End Function