word VBAで【】内の数字を+1する方法について。

Question

###word　VBAで【】内の数字を+1する方法について。
お世話になっております。
題目通り、word　VBAで【】内の数字を+1する方法について困っています。

私は以前、この掲示板である方から「カーソルより下に出てくる全ての数字に1を足す」コードについてアドバイスをいただきました。
それは上手く機能し、本当に感謝しかありません。

しかし、ついさっき、「カーソルより下に出てくる全ての数字に1を足す」のではなく、「カーソルより下に出てくる全ての[]内の数字に1を足す」動作をさせる必要が出てきました。

これはどうすれば実現できるのでしょうか？
検索するところまでは自力でできたのですが、+1するところでこけました。

以下に「カーソルより下に出てくる全ての数字に1を足す」コード、また、私が改良を試み、上手くいかなかった「カーソルより下に出てくる全ての[]内の数字に1を足す」コードを記したいと思います。

どうかご教授いただけると助かります・・・！

「カーソルより下に出てくる全ての数字に1を足す」

Sub PlusNumber()
    Dim sel As Word.Selection
    Set sel = Selection

    '「カーソルより下を検索する部分」
    Do
        With sel.Find
            .Text = "([0-9]{1,3})"
            .MatchFuzzy = False
            .MatchWildcards = True

            '.Execute()がTrueなら該当文字列が見つかった
            If Not .Execute() Then
                'Falseなら見つからなかった
                Exit Do
            End If
        End With 'sel.Find

       
        '「数字に+1」
        sel.Text = sel.Text + 1

        sel.Collapse Direction:=wdCollapseEnd
  Loop

End Sub

「カーソルより下に出てくる全ての[]内の数字に1を足す」コード(上手くいかなかった・・・)

Sub PlusNumber kakko()
    Dim sel As Word.Selection
    Set sel = Selection

    '「カーソルより下を検索する部分」
    Do
        With sel.Find
            .Text = "[" & "([0-9]{1,3})" & "]"
            .MatchFuzzy = False
            .MatchWildcards = True

            '.Execute()がTrueなら該当文字列が見つかった
            If Not .Execute() Then
                'Falseなら見つからなかった
                Exit Do
            End If
        End With 'sel.Find

       
        '「数字に+1」
        sel.Text = "ここをどうすればいいのか分からない。"

        sel.Collapse Direction:=wdCollapseEnd
  Loop

End Sub

Answer 1

Find.Textに設定した()で括った部分が取得できるといいのですが、調べてもわかりませんでした。
なので無理やりですが、[]付きで取得した値から、前後の[]を削除して＋１したあと、また[]を前後につけるようにしてみました。

        sel.Text = "[" & (Mid(Left(sel.Text, Len(sel.Text) - 1), 2) + 1) & "]"

WordのVBAは普段使わないので他に良い手段があるかもしれません。
参考程度にしてください。

ちなみに.Textのところは&で分ける必要はないです。

            .Text = "[" & "([0-9]{1,3})" & "]"
　　　　　　　　　↓
            .Text = "[([0-9]{1,3})]"

わかりやすさのために敢えてそうしていたのならスルーしてください。

Comments

[hood]

回答ありがとうございます！
ご回答いただいたコードを試してみたら、上手くいきました！
&で分ける部分も、私の知識不足のせいです・・・ご指摘ありがとうございます・・

＞WordのVBAは普段使わない
確かに本屋さんにいっても書籍がありませんでした・・・(amazonで買ったけど、ほぼほぼ役に立たないという・・)
現状、文書処理はwordが一番使い勝手がいいかなと思ったんですけど、また検討が必要ですね・・・
ともかくこういったアドバイスもいただけて嬉しいです。
重ね重ねになりますが、ありがとうございました！

[ttyp03]

ただ単に私の仕事環境ではWord文書に対して何かを自動化する必要性がないだけでして、世の中には必要としている人もいるんですよね。
でもやっぱりExcelに比べたら極めて少数でしょうね。

[hood]

なるほど・・・