Благодаря технологии экранного видео, сегодня Вы можете изучить фотошоп и начать использовать его на полную катушку в три раза быстрее своего конкурента, который будет пыхтеть над книгами и рвать на себе волосы из-за того, что не может добиться нужного результата.
Необходимо реализовать замену нескольких пробелов в тексте на один, при этом не использовать диалог "Найти и заменить" (даже программно), то есть реализовать надо макросом с простым перебором в цикле. Помогите, пожалуйста.
Sub ReplaceMultiSpaces()
Dim oChar As Range
For Each oChar In ActiveDocument.Characters
If oChar.Text = " " Then
While oChar.Next(wdCharacter).Text = " "
oChar.Next(wdCharacter).Delete
Wend
End If
Next
End Sub
17
Новых Авторских Видеокурсов по сайтостроению и работе с графикой, Которые За 2205 минут Чистого
Времени Быстро, Просто, Наглядно Покажут и Расскажут Вам Все
Технические Моменты Деятельности Онлайн Бизнесмена.