Изменение символа только в выбранном фрагменте Word (Макрос) - VBA
Формулировка задачи:
Напишите, пожалуйста, макрос, который изменял бы выбранные символы внутри определенного диапазона поиска.
Пример:
Первый какой-то текст с проблеами и знаками
НАЧАЛО 43 68 5321 7 63 1 9 КОНЕЦ
второй какой-то текст с проблеами и знакамиНАЧАЛО 3 760 28 КОНЕЦ
третий какой-то текст с проблеами и знакамиНАЧАЛО 232879 786 93 КОНЕЦ
четвертый какой-то текст с проблеами и знаками Нужно заменить пробелы между словами НАЧАЛО и КОНЕЦ на %20 , при этом пробелы в остальном тексте (какой-то текст с проблеами и знаками) нужно чтобы остался неизменным, чтобы в конечном итоге получилось так: Первый какой-то текст с проблеами и знакамиНАЧАЛО%2043%2068%205321%207%2063%201%209%20КОНЕЦ
второй какой-то текст с проблеами и знакамиНАЧАЛО%203%20760%2028%20КОНЕЦ
третий какой-то текст с проблеами и знакамиНАЧАЛО%20232879%20786%2093%20КОНЕЦ
четвертый какой-то текст с проблеами и знаками Заранее спасибо!Решение задачи: «Изменение символа только в выбранном фрагменте Word (Макрос)»
textual
Листинг программы
Sub Замена_в_интервалах() Dim i&, s$, A, B, Nachalo$, Konec$ Nachalo = "НАЧАЛО" Konec = "КОНЕЦ" s = ActiveDocument.Range.Text A = Split(s, Konec) s = "" For i = 0 To UBound(A) B = Split(A(i), Nachalo) If UBound(B) > 0 Then s = s & B(0) & Nachalo & Replace(B(1), " ", "%20") & Konec Else s = s & A(i) If i < UBound(A) Then s = s & Konec End If Next i ActiveDocument.Range.Text = s End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д