vba - VBA を使用して "ChrW(n)" アジア フォント文字の配列をリストするのではなく検索して強調表示する方法

Question

ドキュメントをスキャンし、特定のアジア フォント文字 (ピリオド [ChrW(65294)]、アポストロフィ [ChrW(65287)] など) を強調表示する、同僚が作成したマクロを使用しています。それは問題なく動作し、まさに私が必要としている (アジアのフォント文字を強調表示する) ことを行いますが、時間の経過とともに石畳になって追加されたため、信じられないほど長く、あまりエレガントではありません。

他の同僚と共有する必要がある場合がありますが、このような長いマクロを使用するのは面倒です。

コードのサンプルを次に示します (実際のコードは数百行の長さです)。

Sub HighlightAsianCharacters
Selection.Find.ClearFormatting
    With Selection.Find
'full stop
        .Text = ChrW(65294)
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        .MatchFuzzy = False
    End With
    Selection.Find.Execute
    While Selection.Find.Found
    Options.DefaultHighlightColorIndex = wdTurquoise
    Selection.range.HighlightColorIndex = wdTurquoise
    Selection.Find.Execute
    Wend
    Selection.Find.ClearFormatting
    With Selection.Find
'apostrophe
        .Text = ChrW(65287)
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        .MatchFuzzy = False
    End With
    Selection.Find.Execute
    While Selection.Find.Found
    Options.DefaultHighlightColorIndex = wdTurquoise
    Selection.range.HighlightColorIndex = wdTurquoise
    Selection.Find.Execute
    Wend
End Sub

マクロがページとページの長さである必要がないように、文字コードを配列に入れる方法を知っている人はいますか?

助けてくれてありがとう！