замена дореволюционной орфографии

[caute]

требуется поменять по всему тексту буквы
ѣ, Ѣ, і, І, ѳ, Ѳ, ѵ, Ѵ
на
е, Е, и, И, ф, Ф, и, И
нарисуйте макрос, люди добрые?

[viter.alex]

Можно нарисовать

Sub ReplaceOldLetters()
    Dim i As Integer
    Dim sOldLetters As String
    Dim sNewLetters As String
    sOldLetters = ChrW(1123) & ChrW(1122) & ChrW(1110) & ChrW(1030) & ChrW(1139) & ChrW(1138) & ChrW(1141) & ChrW(1140)
    sNewLetters = "еЕиИфФиИ"
    For i = 1 To Len(sNewLetters)
        With ActiveDocument.Range.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = Mid(sOldLetters, i, 1)
            .Replacement.Text = Mid(sNewLetters, i, 1)
            .Execute Replace:=wdReplaceAll
        End With
    Next
End Sub

[caute]

вот спасибо! оказывается надо было не запятой символы разделять, а этой штукой &

[Smitt&Wesson]

Сообщение от caute

.... а этой штукой &

Эта штука называется - амперсанд.

[caute]

благодарю и вас, смит амперсандович вессон
без этого штриха мое образование было бы неполным