Поиск и замена в MS Word - Visual Basic .NET

Формулировка задачи:

            Dim Word As Object
            Word = CreateObject("Word.Application")
            Word.Documents.Open("C:\Users\Ильнар\Desktop\Квитанция на оплату.doc") 'открываем документ
            Word.Visible = True
 
            With Word.Selection.Find
                .Execute(Replace("Ф!И!О", 0, 0)) 'что ищем
                Word.Selection.Text = TextBoxX4.Text & " " & TextBoxX1.Text & " " & TextBoxX2.Text 'на что меняем
            End With

Так заменяет только 1 найденное слово. Как заменить все ?

Решение задачи: «Поиск и замена в MS Word»

textual
                            Листинг программы 
                        
                            Imports Microsoft.Office.Interop