Поиск и замена в 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 найденное слово. Как заменить все ?


textual

Код к задаче: «Поиск и замена в MS Word - Visual Basic .NET»

Imports Microsoft.Office.Interop
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник
Похожие ответы