Управление документами Word и Excel на VBA - eDrive
Управление документами Word и Excel на VBA - eDrive
Управление документами Word и Excel на VBA - eDrive
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
12<br />
End If<br />
Selection.MoveRight Unit:=wdCharacter, Count:=1<br />
If текст = vbCancel Then Exit Sub<br />
Do Until Len (Selection.Text) = дл<strong>и</strong><strong>на</strong> Or дл<strong>и</strong><strong>на</strong> < 1<br />
буква = ЧтоМенять<br />
If функц<strong>и</strong>я = "К<strong>и</strong>р" Then<br />
новыйТекст = К<strong>и</strong>р<strong>и</strong>лл<strong>и</strong>ца (буква) & новыйТекст<br />
Else<br />
новыйТекст = Лат<strong>и</strong>н<strong>и</strong>ца (буква) & новыйТекст<br />
End If<br />
Loop<br />
Selection.TypeText (новыйТекст)<br />
End Sub<br />
Function К<strong>и</strong>р<strong>и</strong>лл<strong>и</strong>ца (буква)<br />
текст = К<strong>и</strong>р (буква)<br />
Select Case буква<br />
Case "e", "i", "u", "a"<br />
втораяБуква = ЧтоМенять<br />
If втораяБуква "y" Then<br />
Call Вернуться<br />
Select Case буква<br />
Case "e": текст = "э": Case "i": текст = "ы"<br />
Case "u": текст = "у": Case "a": текст = "а"<br />
End Select<br />
ElseIf буква = "e" Then: текст = "е"<br />
ElseIf буква = "i" Then: текст = "<strong>и</strong>"<br />
ElseIf буква = "u" Then: текст = "ю"<br />
ElseIf буква = "a" Then: текст = "я"<br />
Else<br />
Call Вернуться<br />
End If<br />
Case "j"<br />
текст = "ь"<br />
втораяБуква = ЧтоМенять<br />
If втораяБуква = "h" Then<br />
третьяБуква = ЧтоМенять<br />
If третьяБуква = "s" Then текст = "щ" Else _<br />
Call Вернуться<br />
Else<br />
Call Вернуться<br />
End If<br />
Case "s"<br />
текст = "с"<br />
втораяБуква = ЧтоМенять<br />
If втораяБуква = "t" Then текст = "ц" Else Call Вернуться<br />
Case "h"<br />
текст = "х"<br />
втораяБуква = ЧтоМенять<br />
If втораяБуква = "k" Then: текст = "х"