Поиск и замена в 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 - Visual Basic .NET»

textual
Imports Microsoft.Office.Interop

7   голосов, оценка 4.571 из 5


СОХРАНИТЬ ССЫЛКУ