Нужен макрос, обрабатывающий текст - VBA
Формулировка задачи:
Здравствуйте Помогите написать макрос, который должен:
1. Удалить все пустые строки
2. Заменить двойные, тройные, четверные пробелы на 1 пробел.
3. Расставить везде точку в конце предложений, если её там нет.
4. Удалить символы: №;#;*;·;^;Δ;Φ
5. Заменить символы:
→;↔;←; на -
± на +-
“ на "
÷ на /
Решение задачи: «Нужен макрос, обрабатывающий текст»
textual
Листинг программы
- Sub AutoFormatText()
- Selection.Find.ClearFormatting
- Selection.Find.Replacement.ClearFormatting
- Set sText = ActiveDocument.Range
- vFindText = Array("№", "#", "*", "·", "^", ChrW(934), ChrW(916), "^p^p^p^p", "^p^p^p", "^p^p", " ", " ", " ")
- vReplText = Array("", "", "", "", "", "", "", "^p", "^p", "^p", " ", " ", " ")
- With sText.Find
- .Forward = True
- .Wrap = wdFindStop
- .Format = True
- For i = LBound(vFindText) To UBound(vFindText)
- .Text = vFindText(i)
- .Replacement.Text = vReplText(i)
- .Execute Replace:=wdReplaceAll
- Next i
- End With
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
