Замена текста на картинку

[kain151]

Уважаемые профи, прошу вашей помощи.

Подскажите, пожалуйста, макрос, который будет находить в документе word нужные слова и заменять на определенные картинки, вставляя их в то место, где находилось искомое слово.
Например, находить "Вася" и заменять его на фото "Васи", хранящееся на компьютере, затем находить следующее слово "Таня" и заменять его на фото "Тани" и т.д.

Заранее спасибо!

[kain151]

У меня получается вот такой макрос. Но заменяет только первые найденные случаи.

    With Selection.Find
        .Text = "Вася"
        .Replacement.Text = ""
    End With
    Selection.Find.Execute
    Selection.InlineShapes.AddPicture FileName:="D:\face-vasea.jpg"

    With Selection.Find
        .Text = "Таня"
        .Replacement.Text = ""
    End With
    Selection.Find.Execute
    Selection.InlineShapes.AddPicture FileName:="D:\face-tanea.jpg"

Но не знаю, как сделать, чтобы находило и заменяло все случаи.
Подскажите, пожалуйста, что еще нужно.

[viter.alex]

Есть два пути:

1. Имена файлов соответствуют словам, которые нужно найти
2. Существует список соответствий: имя_файла - слово

При таких исходных данных задачу можно решить. И очень не сложно. Что выберете?

[kain151]

Здравствуйте, viter.alex!

Тут второй пункт "Существует список соответствий: имя_файла - слово".