しっぽり明朝の外字の位置をずらすマクロ

しっぽり明朝の外字はPDF化する際に必ず位置がずれてしまうので、以下のようなマクロで処理をしたというメモです。
通常の置換機能でもある程度はできるんですが、私が上手く操作できなかったのでマクロにしました。Wordの使い方を習得したい。
以下のマクロは標準モジュールに貼り付けて実行することが出来ます。

Sub findAndChangeFontPosition()
    With Selection.Find
        .Text = "[-]" 'うまく表示されていませんが、[A - B]という形で「この範囲の文字」という指定をしています。
        .MatchFuzzy = False 'あいまい検索をオフにしないとエラーになります
        .MatchWildcards = True 'ワイルドカード検索をオンにします
        Do While .Execute
            Selection.Font.Position = 2 '該当した文字の位置をずらします。しっぽり明朝の濁点かな等は2ptずらすと良いです。
        Loop
    End With
End Sub