Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- With ActiveDocument
- For i = .Range.End - 1 To 1 Step -1
- If .Range(i - 1, i).Text = "Ё" Or .Range(i - 1, i).Text = "ё" Or .Range(i - 1, i).Text = "а" Or .Range(i - 1, i).Text = "о" Or .Range(i - 1, i).Text = "у" Or .Range(i - 1, i).Text = "е" Or .Range(i - 1, i).Text = "ы" Or .Range(i - 1, i).Text = "э" Or .Range(i - 1, i).Text = "я" Or .Range(i - 1, i).Text = "и" Or .Range(i - 1, i).Text = "ю" Or .Range(i - 1, i).Text = "А" Or .Range(i - 1, i).Text = "О" Or .Range(i - 1, i).Text = "У" Or .Range(i - 1, i).Text = "Е" Or .Range(i - 1, i).Text = "Ы" Or .Range(i - 1, i).Text = "Э" Or .Range(i - 1, i).Text = "Я" Or .Range(i - 1, i).Text = "И" Or .Range(i - 1, i).Text = "Ю" Then .Range(i, i).InsertAfter "с" + .Range(i - 1, i).Text
- Next
- End With
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement