Word文書内の複数の文字列をイタリックに変換する方法


Word文書内の複数の文字列をイタリックに変換する方法を探しております。  
例えばword文書内に

[code]

    文字列1
    文字列2
    文字列1
    文字列3
    ・
    ・
    ・
    
[/code]

とある場合に、"文字列1"のみであれば、以下のWordVBAのコードで変換できるのですが、複数単語（"文字列2"，"文字列3"のように）でもイタリックに変換できるようなコードを書きたいと思っております。  
方法をお教えいただけますと幸いです。  
何卒よろしくお願い申し上げます。

[code]

    Sub findText()
    
    With Selection.Find
        .Text = "文字列1"
        Do While .Execute
            Selection.Font.Italic = True
        Loop
    End With
    
    End Sub
    
[/code]




cubik♦さま、kunifさま、コメント頂きありがとうございました。  
VBAは初めてで完全に横着して質問をしてしまったのですが、少し勉強して以下のように解決することができました。

斜体にしたい文字列のレコードをcsvで作成し、VBA上でcsvファイルの参照・一致を確認・イタリックに置換の3ステップを経ました。

なお、list.csvの中身は、1列目に"文字列１"、"文字列２"、"文字列３"を記載したものとなっております。もう少しやり方があるのかもしれませんが、目的は一旦達成しました。

[code]

    Sub 斜体変換()
    
        '参照元のcsvファイルを開く
        Open "list.csv" For Input As #1
        While Not EOF(1)
        Line Input #1, a
        s = Split(a, ",")
        MsgBox s(0) & " " & s(0)
        'イタリックに変換したい変数Targetの宣言
        Dim Target As String
        
        '文書の先頭を選択
        ActiveDocument.Range(0, 0).Select
        
        'Targetにcsvファイルの1列目を指定
        Target = s(0)
        
        '条件クリア
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        
        '斜体設定
        Selection.Find.Replacement.Font.Italic = True
        
        '斜体変換を実行
    With Selection.Find
        .Text = Target
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindStop
        .MatchCase = True
        .Execute Replace:=wdReplaceAll
      End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Wend
    Close #1
    End Sub
    
[/code]

