Изменение символа только в выбранном фрагменте 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4.25 из 5