Recherche de 12 chaînes séparées avec une seule fonction

J'ai une macro qui recherche une chaîne ("janvier") et convertit l'espace vers un espace protégé. Ce que j'aimerais faire est de rechercher les autres mois de l'année aussi. Existe-t-il une façon de rechercher les autres mois dans la même fonction, plutôt que de copier et collez mon code 11 fois, recherchant un mois différent à chaque fois?

Voici mon code jusqu'à présent après quelques suggestions qui ont principalement travaillé Mais pas tout à fait et que je ne peux pas comprendre pourquoi: P>

Dim item As Variant
Dim months(1 To 12) As String
Dim str As String

    months(1) = "January ": months(2) = "February ": months(3) = "March ": months(4) = "April ": months(5) = "May ": months(6) = "June ": months(7) = "July ": months(8) = "August ": months(9) = "September ": months(10) = "October ": months(11) = "November ": months(12) = "December "

    For Each item In months
        Selection.Find.Execute item
        Do Until Selection.Find.Found = False
            Selection.MoveRight.Unit:=wdCharacter, Count:=1
            Selection.TypeBackspace
            Selection.TypeText Text:=" "
            Selection.Find.Execute
        Loop
    Next
End Sub