Практика_по_Word
.pdf15.Создайте нестандартную кнопку на инструментальной па нели макросов для запуска макроса ChangeLang. Для это го, открыв в окне Настройка вкладку Команды, выполни те те же действия, что и в задании 30. Сначала выберите для запуска макроса стандартный значок, например, зна чок левой стрелки (рис. 20), а затем в контекстном меню кнопки выберите пункт Изменить значок на кнопке и из мените его на другой - вращающуюся стрелку. Для изме нения используйте точечный рисунок новой кнопки, пред ставленный на рис. 20.
Список рекомендуемой литературы
1.В. Пасько. Word 2003 для пользователей (русская версия). -Киев, BHV, 2003.
2.Ю. Беленький. Word 2003 в подлиннике. -СПб: BHV-Санкт-Пе тербург, 2003
3.А. Хомоненко. Самоучитель MS Word 2003. -СПб: BHV-Санкт- Петербург, 2003.
4.Герцог. Word 2003 без проблем. - Бином, М.:1999.
5.Г. Харт Дэвис. Word 2003. Базовый курс - ВЕК, М.: 2003. 6.Ч. Рабин. Эффективная работа в Microsoft Word 2003. - СПб.: Питер, 2003
7.Ю. Стоцкий. Самоучитель Office 2003. - СПб.: Питер, 2003 8.В. Рычков. Microsoft Word 2003. Краткий курс. - СПб.: Питер, 2000
9.Ю. Леонтьев. Самоучитель Word 2003. - СПб.: Питер, 2003
91
Текст макропрограммы |
Приложение 1. |
Case "b": c = "и" |
|
ChangeLang.doc |
Case "n": c = "т" |
Public Sub ChangeLang() |
Case "m": c = "ь" |
Dim S$, s1$ |
Case ",": c = "б" |
S = Selection.Text |
Case ".": c = "ю" |
Dim i&, c$ |
|
For i = 1 To Len(S) |
Case "Q": c = "Й" |
c = Mid$(S, i, 1) |
Case "W": c = "Ц" |
Select Case c |
Case "E": c = "У" |
'английские буквы в русские |
Case "R": c = "К" |
Case "q": c = "й" |
Case "T": c = "Е" |
Case "w": c = "ц" |
Case "Y": c = "Н" |
Case "e": c = "у" |
Case "U": c = "Г" |
Case "r": c = "к" |
Case "I": c = "Ш" |
Case "t": c = "е" |
Case "O": c = "Щ" |
Case "y": c = "н" |
Case "P": c = "З" |
Case "u": c = "г" |
Case "{": c = "Х" |
Case "i": c = "ш" |
Case "}": c = "Ъ" |
Case "o": c = "щ" |
Case "A": c = "Ф" |
Case "p": c = "з" |
Case "S": c = "Ы" |
Case "[": c = "х" |
Case "D": c = "В" |
Case "]": c = "ъ" |
Case "F": c = "А" |
Case "a": c = "ф" |
Case "G": c = "П" |
Case "s": c = "ы" |
Case "H": c = "Р" |
Case "d": c = "в" |
Case "J": c = "О" |
Case "f": c = "а" |
Case "K": c = "Л" |
Case "g": c = "п" |
Case "L": c = "Д" |
Case "h": c = "р" |
Case ":": c = "Ж" |
Case "j": c = "о" |
Case """": c = "Э" |
Case "k": c = "л" |
Case "Z": c = "Я" |
Case "l": c = "д" |
Case "X": c = "Ч" |
Case ";": c = "ж" |
Case "C": c = "С" |
Case "'": c = "э" |
Case "V": c = "М" |
Case "z": c = "я" |
Case "B": c = "И" |
Case "x": c = "ч" |
Case "N": c = "Т" |
Case "c": c = "с" |
Case "M": c = "Ь" |
Case "v": c = "м" |
Case "<": c = "Б" |
92
Case ">": c = "Ю" |
Case "У": c = "E" |
|
Case "К": c = "R" |
'Русские буквы в английские |
Case "Е": c = "T" |
Case "й": c = "q" |
Case "Н": c = "Y" |
Case "ц": c = "w" |
Case "Г": c = "U" |
Case "у": c = "e" |
Case "Ш": c = "I" |
Case "к": c = "r" |
Case "Щ": c = "O" |
Case "е": c = "t" |
Case "З": c = "P" |
Case "н": c = "y" |
Case "Х": c = "{" |
Case "г": c = "u" |
Case "Ъ": c = "}" |
Case "ш": c = "i" |
Case "Ф": c = "A" |
Case "щ": c = "o" |
Case "Ы": c = "S" |
Case "з": c = "p" |
Case "В": c = "D" |
Case "х": c = "[" |
Case "F": c = "F" |
Case "ъ": c = "]" |
Case "П": c = "G" |
Case "ф": c = "a" |
Case "Р": c = "H" |
Case "ы": c = "s" |
Case "О": c = "J" |
Case "в": c = "d" |
Case "Л": c = "K" |
Case "а": c = "f" |
Case "Д": c = "L" |
Case "п": c = "g" |
Case "Ж": c = ":" |
Case "р": c = "h" |
Case "Э": c = """" |
Case "о": c = "j" |
Case "Я": c = "Z" |
Case "л": c = "k" |
Case "Ч": c = "X" |
Case "д": c = "l" |
Case "С": c = "C" |
Case "ж": c = ";" |
Case "М": c = "М" |
Case "э": c = "'" |
Case "И": c = "B" |
Case "я": c = "z" |
Case "Т": c = "N" |
Case "ч": c = "x" |
Case "Ь": c = "M" |
Case "с": c = "c" |
Case "Б": c = "<" |
Case "м": c = "v" |
Case "Ю": c = ">" |
Case "и": c = "b" |
End Select |
Case "т": c = "n" |
s1 = s1 & c |
Case "ь": c = "m" |
Next |
Case "б": c = "," |
Selection.TypeText Text:=s1 |
Case "ю": c = "." |
End Sub |
Case "Й": c = "Q" |
|
Case "Ц": c = "W" |
|
93