Как заменить символы в выделенном фрагменте текста, находящиеся на определенных позициях?

@Htext · Регистрация: 08.01.2015

Author24 — интернет-сервис помощи студентам

Есть выделенный фрагмент текста:
Selection.Find.Text = "Здравствуйте, ...... и т.д.".
Надо заменить символы, находящиеся, скажем, на позициях 3...9 (это будут "равству") на другие. Я знаю, как делать замену, указав конкретные символы. Но вот как сделать - через указание номеров позиций, на которых символы (неважно, какие конкретно) находятся в выделенном фрагменте текста.

Добавлено через 1 час 40 минут
Например,
Selection.Font.Color = 10027161
работает (делает ВЕСЬ выделенный текст фиолетовым цветом). А, скажем, как сделать, чтобы фиолетовым цветом окрашивались только символы, находящиеся на позициях 3...9?

Добавлено через 1 час 1 минуту
Угадал, что ли?...
Надо вначале установить
Set rr = Selection.Range (проблема была в этом)
А затем
ActiveDocument.Range(rr.Start +3, rr.Start +9).Font.Color = 10027161
Да к сожалению, в условиях отсутствия нормальной литературы по VBA приходится именно - УГАДЫВАТЬ. Добро, хоть VBA, в отличие от С, легче поддается угадыванию.
Ну, может, хоть кто посоветует нормальную литературу по VBA?

@kalbasiatka · 29.08.2015, 15:03

Visual Basic

Sub uuu()    
    With ActiveCell 'с активной ячейкой
        .Value = Replace(.Value, Mid(.Value, 3, 7), "XXX") 'заменяем значение 7-ми символов начиная с 3-го
        .Characters(Start:=3, Length:=3).Font.Color = -16776961 'меняем цвет 3-х символов начиная с 3-го
    End With
End Sub

@Htext 357 / 118 / 20 Регистрация: 08.01.2015 Сообщений: 1,361 Записей в блоге: 1
		1
	Как заменить символы в выделенном фрагменте текста, находящиеся на определенных позициях? 29.08.2015, 13:35. Показов 2300. Ответов 1 Метки нет (Все метки) Есть выделенный фрагмент текста: Selection.Find.Text = "Здравствуйте, ...... и т.д.". Надо заменить символы, находящиеся, скажем, на позициях 3...9 (это будут "равству") на другие. Я знаю, как делать замену, указав конкретные символы. Но вот как сделать - через указание номеров позиций, на которых символы (неважно, какие конкретно) находятся в выделенном фрагменте текста. Добавлено через 1 час 40 минут Например, Selection.Font.Color = 10027161 работает (делает ВЕСЬ выделенный текст фиолетовым цветом). А, скажем, как сделать, чтобы фиолетовым цветом окрашивались только символы, находящиеся на позициях 3...9? Добавлено через 1 час 1 минуту Угадал, что ли?... Надо вначале установить Set rr = Selection.Range (проблема была в этом) А затем ActiveDocument.Range(rr.Start +3, rr.Start +9).Font.Color = 10027161 Да к сожалению, в условиях отсутствия нормальной литературы по VBA приходится именно - УГАДЫВАТЬ. Добро, хоть VBA, в отличие от С, легче поддается угадыванию. Ну, может, хоть кто посоветует нормальную литературу по VBA? 0

	29.08.2015, 15:03