【WordVBA】選択範囲で検索→見つけた文字列の1文字目のフォントを変えたい

Question

前提・実現したいこと

論文用に、Wordにて「μm」を手早く入力or変換する方法を考えています。

現在、選択範囲に「mm」があるか検索し、
見つけた場合その1文字目のフォントをSymbolに変更する、という構想を練り、コードを書いてみましたが、うまく動作していません。

参考にしたコードでは検索→変更→ループがうまくいっているようなのですが、
私の環境では選択範囲内の1つ目の「mm」は「μm」になりますが、以降は「mm」のままで、ループが機能していません。

理由が分からず困っています。解決策を教えていただきたく思います。

該当のソースコード

Sub Trial()

Application.ScreenUpdating = False

Dim MU As String
Dim Rng As Range

MU = "mm"

Do While Selection.Find.Execute(MU)

        Set Rng = Selection.Range
        Rng.Characters(1).Font.Name = "Symbol"
    
Loop

Set Rng = Nothing

Application.ScreenUpdating = True

End Sub

補足情報（FW/ツールのバージョンなど）

Windows10
Word 2021

Answer 1

まず場所をおぼえておいて後で変更するのはどうでしょう。

Dim dic As Object
Set dic = CreateObject("Scripting.Dictionary")

Do While Selection.Find.Execute(MU)
    dic.Add dic.Count, Selection.Range
Loop

Dim k
For Each k In dic
    Set Rng = dic(k)
    Rng.Characters(1).Font.Name = "Symbol"
Next

Comments

[netz-eng]

迅速なご回答ありがとうございます。
ご提示いただいたコードで、問題なくできました！
初めて辞書を使いましたが、こんな使い方ができるんですね。勉強になりました。