Текстовый редактор MS WordРефераты >> Программирование и компьютеры >> Текстовый редактор MS Word
3. В окне проекта выделите мышью проект текущего документа, например Project (This Document) и вставьте в него новый программный модуль. Для этого выполните команду Insert|Module. На экране появится еще одно окно с названием Module1(Code) для ввода текста (кода) макроса на языке Visual Basic.
4. Упорядочите расположение окон редактора, выполнив команду WINDOWS|Tile Horizontally (ОКНО|По горизонтали).
5. Измените имя модуля на имя ChangeLang. Для этого в окне проекта выделите Module1 и нажмите клавишу F4 или выполните команду VIEW|Properties Window (ВИД|Окно свойств). Откроется окно свойств модуля. Выделите в строке со свойством (Name) имя Module1 и введите новое имя ChangeLang. Нажмите клавишу Enter и закройте окно свойств. Новое имя модуля появится в окнах проекта и программы.
6. Перейдите в окно программы (клавиша F7) и введите код макропрограммы на языке Visual Basic в соответствии с приложением 1.
7. Проверьте введенный текст, выполнив компиляцию программы с помощью команды DEBUG|Compile Project (ОТЛАДКА|Компилировать проект). Если при компиляции будут обнаружены ошибки, исправьте их сличением с исходным текстом и повторите компиляцию. Когда ошибки будут устранены, перейдите к следующему пункту.
8. Перейдите в окно документа Word. Для этого щелкните по соответствующей кнопке либо на панели задач, либо на инструментальной панели редактора. В окне Word убедитесь, что в списке макросов текущего документа появился макрос ChangeLang. Для этого выполните команду СЕРВИС|Макрос|Макросы. Закройте окно макросов.
9. Проверьте правильность работы созданного макроса. Для этого введите слово "велосипед" при английской раскладке клавиатуры. На экране Вы увидите "dtkjcbgtl". Выделите это слово и выполните макрос. Для этого с помощью команды СЕРВИС|Макрос|Макросы откройте окно Макрос. Выделите в списке макросов макрос ChangeLang и щелкните на кнопке Выполнить. Слово должно воспроизвестись символами кириллицы. Повторно примените макрос. Слово отобразится символами латиницы.
10. Скопируйте созданный макрос в общий шаблон. Для этого откройте окно Организатора, выполнив команду СЕРВИС|Макрос|Макросы, изатемщелкните на кнопке Организатор. В окне Организатор выделите в левом списке имя ChangeLang и, щелкнув на кнопке Копировать, скопируйте его в правый список
11. Создайте стандартную кнопку на инструментальной панели макросов для запуска макроса ChangeLang
12. Проверьте работу макроса для преобразования английского текста, набранного кириллицей и русского текста, набранного латиницей, с использованием созданной кнопки на инструментальной панели.
13.
13)
13)Подведите указатель мыши к созданной кнопке. Вы должны увидеть подпись под кнопкой ChangeLang. Измените подпись под кнопкой. Для этого с помощью организатора удалите макрос ChangeLang из общего шаблона. Удалите кнопку запуска макроса с инструментальной панели. Откройте окно программы в редакторе VBA и замените имя подпрограммы в первой строке кода программы. Вместо имени ChangeLang введите имя Кодировка, при этом первая строка программы будет иметь вид: Public Sub Кодировка ()
Рис. 20. Окно редактора кнопок с точечным рисунком новой кнопки
14. Выполните компиляцию программы. Скопируйте с помощью организатора новый макрос из документа в общий шаблон. Создайте кнопку для запуска макроса и проверьте ее работу. Подпись под кнопкой при установке на нее указателя мыши станет Кодировка
15. Создайте нестандартную кнопку на инструментальной панели макросов для запуска макроса ChangeLang. Для этого, открыв в окне Настройка вкладку Команды, выполните те же действия, что и в задании 30. Сначала выберите для запуска макроса стандартный значок, например, значок левой стрелки (рис. 20), а затем в контекстном меню кнопки выберите пункт Изменить значок на кнопке и измените его на другой - вращающуюся стрелку. Для изменения используйте точечный рисунок новой кнопки, представленный на рис. 20.
Список рекомендуемой литературы
1. В. Пасько. Word 2000 для пользователей (русская версия). -Киев, BHV, 2000.
2. Ю. Беленький. Word 2000 в подлиннике. -СПб: BHV-Санкт-Петербург, 2000
3. А. Хомоненко. Самоучитель MS Word 2000. -СПб: BHV-Санкт-Петербург, 2000.
4. Герцог. Word 2000 без проблем. - Бином, М.:1999.
5. Г. Харт Дэвис. Word 2000. Базовый курс - ВЕК, М.: 2000.
6. Ч. Рабин. Эффективная работа в Microsoft Word 2000. - СПб.: Питер, 2000
7. Ю. Стоцкий. Самоучитель Office 2000. - СПб.: Питер, 2000
8. В. Рычков. Microsoft Word 2000. Краткий курс. - СПб.: Питер, 1999
9. Ю. Леонтьев. Самоучитель Word 2000. - СПб.: Питер, 2000
Приложение 1.
Текст макропрограммы ChangeLang.doc
Public Sub ChangeLang()
Dim S$, s1$
S = Selection.Text
Dim i&, c$
For i = 1 To Len(S)
c = Mid$(S, i, 1)
Select Case c
'английские буквы в русские
Case "q": c = "й"
Case "w": c = "ц"
Case "e": c = "у"
Case "r": c = "к"
Case "t": c = "е"
Case "y": c = "н"
Case "u": c = "г"
Case "i": c = "ш"
Case "o": c = "щ"
Case "p": c = "з"
Case "[": c = "х"
Case "]": c = "ъ"
Case "a": c = "ф"
Case "s": c = "ы"
Case "d": c = "в"
Case "f": c = "а"
Case "g": c = "п"
Case "h": c = "р"
Case "j": c = "о"
Case "k": c = "л"
Case "l": c = "д"
Case ";": c = "ж"
Case "'": c = "э"
Case "z": c = "я"
Case "x": c = "ч"
Case "c": c = "с"
Case "v": c = "м"
Case "b": c = "и"
Case "n": c = "т"
Case "m": c = "ь"
Case ",": c = "б"
Case ".": c = "ю"
Case "Q": c = "Й"
Case "W": c = "Ц"
Case "E": c = "У"
Case "R": c = "К"
Case "T": c = "Е"
Case "Y": c = "Н"
Case "U": c = "Г"
Case "I": c = "Ш"
Case "O": c = "Щ"
Case "P": c = "З"
Case "{": c = "Х"
Case "}": c = "Ъ"
