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