Нужен макрос, обрабатывающий текст - 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