WordのVBAを使ってみたい集計業務で使用するため(数値ではなく文字)WordのVBAを使用したいと思っています｡ ExcelのVBAでは解説ｻｲﾄやｻﾝﾌﾟﾙ集が多数発見できるので…

WordのVBAを使ってみたい

集計業務で使用するため(数値ではなく文字)WordのVBAを使用したいと思っています｡
ExcelのVBAでは解説ｻｲﾄやｻﾝﾌﾟﾙ集が多数発見できるので､わからなかったら検索しながら構築していくことが可能です｡
まだやろうと思ったﾀｲﾐﾝｸﾞなんでなんとも言えませんが､WordのVBAの解説ｻｲﾄがほとんど見つかりません｡
心が折れかかっているのでご教示していただきたいのですが…

1．Word文書の最初の1文字目にｶｰｿﾙを移動させる
2．任意の位置にｶｰｿﾙを移動させる
3．文字ｶｳﾝﾄの結果を数式の中で使う

この3つを行いたいと思っています｡
実現可能でしょうか？
実現可能な場合､ｺｰﾄﾞをご教示下さい｡

Sub Macro1()

Dim buf As String
Dim res As String

buf = InputBox("ｶｳﾝﾄしたい単語を入力してください")
res = CountWord(buf)
MsgBox (res)
End Sub

Function CountWord(WordWantToCount As String) As Long

Dim cnt As Long
With ActiveDocument.Range(0, 0).Find
.Text = WordWantToCount
Do While .Execute
cnt = cnt + 1
Loop
End With

CountWord = cnt

End Function

とりあえずｶｳﾝﾄした数はﾎﾟｯﾌﾟｱｯﾌﾟに出力しました｡