Текст задания 

В текстовом файле поменять все слова "Дима" на "Петров Д. М.".

Решение

Рядом с книгой Excel необходимо расположить файл 2.18.txt (это номер задания и методички). После запуска макроса все вхождения слова "Дима" в этом файле будут заменены. Ниже представлен код самого макроса, если же Вам нужно готовое решение, то добавляйте эту задачу в корзину и оформляйте заказ. Сразу же после оплаты работы Вы сможете скачать готовое решение.

Код макроса:

Sub Кнопка8_Щелчок()
Open ActiveWorkbook.Path & "\2-18.txt" For Input As #1
   Dim S As String
   Dim s1(100) As String
   Dim i As Integer
   i = 0
   While Not EOF(1)
     Input #1, S
     i = i + 1
     s1(i) = Replace(S, "Дима", "Петров Д.М.")
    Wend
   Close #1
   Open ActiveWorkbook.Path & "\2-18.txt" For Output As #1
   For j = 1 To i
      Print #1, s1(j)
   Next j
   Close #1
End Sub