Управление документами Word и Excel на VBA - eDrive

14
Function Латиница (кир)
Select Case кир
Case "к" To "п"
Лат = Chr (Asc ("k") + Asc (кир) – Asc ("к"))
Case "К" To "П"
Лат = Chr (Asc ("K") + Asc (кир) – Asc ("К"))
Case "р" To "у"
Лат = Chr (Asc ("r") + Asc (кир) – Asc ("р"))
Case "Р" To "У"
Лат = Chr (Asc ("R") + Asc (кир) – Asc ("Р"))
Case "а": Лат = "a": Case "б": Лат = "b": Case "в": Лат = "v"
Case "г": Лат = "g": Case "д": Лат = "d": Case "е": Лат = "ye"
Case "ж": Лат = "zh": Case "з": Лат = "z": Case "и": Лат = "yi"
Case "й": Лат = "y": Case "ф": Лат = "f": Case "х": Лат = "kh"
Case "ц": Лат = "ts": Case "ч": Лат = "ch": Case "ш": Лат = "sh"
Case "щ": Лат = "shj": Case "ъ": Лат = "`": Case "ы": Лат = "i"
Case "ь": Лат = "j": Case "э": Лат = "e": Case "ю": Лат = "yu"
Case "я": Лат = "ya": Case "А": Лат = "A": Case "Б": Лат = "B"
Case "В": Лат = "V": Case "Г": Лат = "G": Case "Д": Лат = "D"
Case "Е": Лат = "YE": Case "Ж": Лат = "ZH": Case "З": Лат = "Z"
Case "И": Лат = "YI": Case "Й": Лат = "Y": Case "Ф": Лат = "F"
Case "Х": Лат = "KH": Case "Ц": Лат = "TS": Case "Ч": Лат = "CH"
Case "Ш": Лат = "SH": Case "Щ": Лат = "SHJ": Case "Ъ": Лат = "`"
Case "Ы": Лат = "I": Case "Ь": Лат = "J": Case "Э": Лат = "E"
Case "Ю": Лат = "YU": Case "Я": Лат = "YA": Case Else: Лат = кир
End Select
End Function
Function Кир (лат)
Select Case лат
Case "k" To "p"
Кир = Chr (Asc ("к") + Asc (лат) – Asc ("k"))
Case "K" To "P"
Кир = Chr (Asc ("К") + Asc (лат) – Asc ("K"))
Case "b": Кир = "б": Case "v", "w": Кир = "в"
Case "g": Кир = "г"
Case "d": Кир = "д": Case "z": Кир = "з"
Case "y": Кир = "й"
Case "f": Кир = "ф": Case "`": Кир = "ъ"
Case "r": Кир = "р"
Case "t": Кир = "т": Case "B": Кир = "Б"
Case "V","W": Кир = "В"
Case "G": Кир = "Г": Case "D": Кир = "Д"
Case "Z": Кир = "З"
Case "Y": Кир = "Й": Case "F": Кир = "Ф"
Case "I": Кир = "Ы"
Case "R": Кир = "Р": Case "T": Кир = "Т"
Case Else: Кир = лат
End Select
End Function