【WordVBA】正規表現を使うには

Yahoo!知恵袋から、WordのVBAで正規表現を使う方法を紹介します。

質問

Yahoo!知恵袋で下記のような質問がありました。

ワードのマクロについて質問です。

.Text = “[００-９９]号”

Do While .Execute

MsgBox Selection.Range & vbNewLine & “hoge”

Loop End With

上のマクロを使うと１号から９号までは取得できますが、１０号以上が取得できません。どのようにワイルドカードを指定すればよいでしょうか。

https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q13271060728

質問してからだいぶ時間が経つのに、誰からも回答がついていなかったので、私が回答することにしました(1人でも回答がついていれば、私が助けなくても大丈夫だろうと思って、回答しないことにしています)。

回答

実際に作ったコードはこちらです↓

Option Explicit

Public Sub RegExeTest()
    With Selection.Find
        .MatchByte = False
        .MatchCase = False
        .MatchFuzzy = False
        .MatchPhrase = False
        .MatchWholeWord = False
        .MatchWildcards = True
        .Text = "[０-９]*号"
        Do While .Execute
    '        MsgBox Selection.Range & vbNewLine & "hoge"
            Debug.Print Selection.Range & vbNewLine & "hoge"
        Loop
    End With

End Sub

MsgBoxはループの中でいちいち表示されるのがうざかったのでコメント化してあります。

その代わりDebug.Printでイミディエイトペインに吐き出すようにしました。

解説

検索対象のドキュメントにどんな数字が含まれているか分からなかったのですけど、質問文にあるコードをみると、全角で「００」「９９」となっているから、基本的に全角文字だけで、半角数字は使っていないものと解釈しました。

元のコードにあった、[００-９９]の意味ですが、多分これを書いた人は、「００という全角数字から９９という全角数字までの間にある数字」を意図したものと思われますが、実際には、０という全角数字と、０から９までの全角数字と、９という全角数字のいずれかという意味になってしまっています。

つまり、０、１、２、３、４、５、６、７、８、９のいずれか1文字です。だから、「１号から９号までは取得」できていたけど、１０号以上は取得できなかったのです。

なので、本来やりたかったであろう正規表現にしてあげればよいだけなので、[０-９]*としました。

「*」(アスタリスク)というのは、0個以上の文字列の意味です。全角の０から９までの数字が0個以上という意味ですから、次のようなドキュメントがあったら、

法律の条文かな？

第１号（全角）

これってどういう文脈なんでしょう？２号

３号と4号

いっきにとばして

10号(半角！)

99号とか(これも半角)

100号は抽出されなくてOK？

０１号かな？

よく分からない０３号

そして０９号

どうだ！？

ここは１０号でーーーす

ここは２１号

４９号とか

マクロを実行すると、次のように抽出されます。

半角数字である「10号」「99号」「100号」は抽出されません。

もし半角数字も抽出したかったら、[0-9０-９]*とすればよいです。

まとめ

以上、WordVBAで正規表現を使う方法でした。

私はVBAについては多少分かるので、ブログの記事ネタを提供してくれるなら、今なら無料でOffice系ソフトの相談を受け付けています。

匿名でできますので、ご利用ください(ただし、すぐに回答があるとは限らないし、全部の質問に答えられるとも限りません。あと個人情報や機密情報が含まれるモノは送らないでください)。

Excel相談(ExcelだけでなくWordやパワポもOK)

https://kn-sharoushi.com/excel_consultation/