Управление документами Word и Excel на VBA - eDrive
Управление документами Word и Excel на VBA - eDrive Управление документами Word и Excel на VBA - eDrive
12 End If Selection.MoveRight Unit:=wdCharacter, Count:=1 If текст = vbCancel Then Exit Sub Do Until Len (Selection.Text) = длина Or длина < 1 буква = ЧтоМенять If функция = "Кир" Then новыйТекст = Кириллица (буква) & новыйТекст Else новыйТекст = Латиница (буква) & новыйТекст End If Loop Selection.TypeText (новыйТекст) End Sub Function Кириллица (буква) текст = Кир (буква) Select Case буква Case "e", "i", "u", "a" втораяБуква = ЧтоМенять If втораяБуква "y" Then Call Вернуться Select Case буква Case "e": текст = "э": Case "i": текст = "ы" Case "u": текст = "у": Case "a": текст = "а" End Select ElseIf буква = "e" Then: текст = "е" ElseIf буква = "i" Then: текст = "и" ElseIf буква = "u" Then: текст = "ю" ElseIf буква = "a" Then: текст = "я" Else Call Вернуться End If Case "j" текст = "ь" втораяБуква = ЧтоМенять If втораяБуква = "h" Then третьяБуква = ЧтоМенять If третьяБуква = "s" Then текст = "щ" Else _ Call Вернуться Else Call Вернуться End If Case "s" текст = "с" втораяБуква = ЧтоМенять If втораяБуква = "t" Then текст = "ц" Else Call Вернуться Case "h" текст = "х" втораяБуква = ЧтоМенять If втораяБуква = "k" Then: текст = "х"
13 ElseIf втораяБуква = "s" Then: текст = "ш" ElseIf втораяБуква = "c" Then: текст = "ч" ElseIf втораяБуква = "z" Then: текст = "ж" Else Call Вернуться End If Case "E", "I", "U", "A" втораяБуква = ЧтоМенять If втораяБуква "Y" Then Call Вернуться Select Case буква Case "E": текст = "Э": Case "I": текст = "Ы" Case "U": текст = "У": Case "A": текст = "А" End Select ElseIf буква = "E" Then: текст = "Е" ElseIf буква = "I" Then: текст = "И" ElseIf буква = "U" Then: текст = "Ю" ElseIf буква = "A" Then: текст = "Я" Else Call Вернуться End If Case "J" текст = "Ь" втораяБуква = ЧтоМенять If втораяБуква = "H" Then третьяБуква = ЧтоМенять If третьяБуква = "S" Then текст = "Щ" Else _ Call Вернуться Else Call Вернуться End If Case "S" текст = "С" втораяБуква = ЧтоМенять If втораяБуква = "T" Then текст = "Ц" Else Call Вернуться Case "H" текст = "Х" втораяБуква = ЧтоМенять If втораяБуква = "K" Then: текст = "Х" ElseIf втораяБуква = "S" Then: текст = "Ш" ElseIf втораяБуква = "C" Then: текст = "Ч" ElseIf втораяБуква = "Z" Then: текст = "Ж" Else Call Вернуться End If End Select Кириллица = текст End Function
- Page 1 and 2: В. М. Водовозов Упра
- Page 3 and 4: Оглавление VISUAL BASIC F
- Page 5 and 6: 5 • ActiveWritingStyle — акт
- Page 7 and 8: 7 • свойство End указ
- Page 9 and 10: 9 Sub ИзменитьПервую
- Page 11: 11 Sub Красный () ‘ Отд
- Page 15 and 16: 15 Sub Поиск () Selection.Home
- Page 17 and 18: 17 имя (0, 50) = "n": имя (0,
- Page 19 and 20: 19 представляющим п
- Page 21 and 22: 21 Range ("a6").Value = "Приве
- Page 23 and 24: 23 End With End Sub Sub Удале
- Page 25 and 26: 25 ‘ выражая его в д
- Page 27 and 28: 27 For Each фигура In Лис
- Page 29 and 30: 29 .Add Type:=msoControlEdit .Add T
- Page 31 and 32: 31 ActiveWindow.ActivePane.View.Typ
13<br />
ElseIf втораяБуква = "s" Then: текст = "ш"<br />
ElseIf втораяБуква = "c" Then: текст = "ч"<br />
ElseIf втораяБуква = "z" Then: текст = "ж"<br />
Else<br />
Call Вернуться<br />
End If<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: текст = "И"<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: текст = "Х"<br />
ElseIf втораяБуква = "S" Then: текст = "Ш"<br />
ElseIf втораяБуква = "C" Then: текст = "Ч"<br />
ElseIf втораяБуква = "Z" Then: текст = "Ж"<br />
Else<br />
Call Вернуться<br />
End If<br />
End Select<br />
К<strong>и</strong>р<strong>и</strong>лл<strong>и</strong>ца = текст<br />
End Function
Change language