単語マクロ内の複数の文字の色を変更する

Question

すべての母音の色を変更する必要があります。一定のコードを見つけました。これをa、e、i、あ、そう？

Sub ChangeLetterColor() 
    Const LETTER_TO_CHANGE = "a" 
    Const COLOR_TO_CHANGE_TO = wdRed 

    For i = 1 To ThisDocument.Range.Characters.Count 
     If ThisDocument.Range.Characters(i) = LETTER_TO_CHANGE Then 
      ThisDocument.Range.Characters(i).Font.ColorIndex = COLOR_TO_CHANGE_TO 
     End If 
    Next 
End Sub 

Answer 1

最も簡単なのは、文字列の中への色を変更し、それがその文字列に含まれているかどうか、あなたの文字列内の各文字をチェックしたいすべての文字を入れて次のようになります。

Sub ChangeLetterColor() 
    Const LETTERS_TO_CHANGE = "aeiou" 
    Const COLOR_TO_CHANGE_TO = wdRed 

    Dim i As Integer 
    Dim currentLetter As String 

    For i = 1 To ActiveDocument.Range.Characters.Count 
     currentLetter = ActiveDocument.Range.Characters(i) 
     If InStr(1, LETTERS_TO_CHANGE, currentLetter, vbTextCompare) Then 
      ActiveDocument.Range.Characters(i).Font.ColorIndex = COLOR_TO_CHANGE_TO 
     End If 
    Next 
End Sub