КАТЕГОРИИ: Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748) |
Текст программы
Public Sub CommandButton1_Click() Dim k As Integer Dim Text As String Dim ZAGOLOVOK As Range Dim REZULTAT As Range k = ActiveDocument.Paragraphs.Count Text = "Количество абзацев в этом документе - " & k & "." ActiveDocument.Paragraphs(k).Range.InsertParagraphAfter ActiveDocument.Paragraphs(k + 1).Range.InsertBefore Text Set REZULTAT = ActiveDocument.Paragraphs(k + 1).Range With REZULTAT.Font.Name = "Arial".Font.Size = 14 .Font.ColorIndex = wdDarkRed End With Set ZAGOLOVOK = ActiveDocument.Range(Start:=0, End:=0) With ZAGOLOVOK .InsertBefore "Протоколы" .Font.Name = "Arial" .Font.Size = 24 .InsertParagraphAfter .Font.Name = "Arial" .Font.Size = 24 .InsertParagraphAfter End With End Sub
Практическая работа № 3 “Количество букв “а” (русских) в абзаце” Эта практическая работа выполняется с тем же документом, что и работа № 9–2 (с документом, который состоит из нескольких абзацев). Задача заключается в том, чтобы программно определить номер абзаца, в котором будет происходить подсчет букв а; подсчитать их количество; в конце документа (или после абзаца, в котором происходил подсчет) вывести сообщение о количестве букв. Порядок работы. 1. Вызвать панель элементов управления “Вид | Панели инструментов | Элементы управления”.
2. Подготовить кнопку на рабочем листе ниже текста “CommandButton2”. 3. Переименовать кнопку в “Количество букв а в абзаце”. 4. Придать кнопке формат обтекания по контуру, чтобы ее можно было перемещать по листу. 5. Выбрать в контекстно-зависимом меню этого объекта пункт “Исходныйтекст” или два раза щелкнуть по кнопке (мы попадем в редактор в режим написания программы). Алгоритм выполнения задания следующий: 1. Объявить переменные: a) b — строковая переменная для размещения в ней выбранного абзаца в документе; b) k — переменная для хранения количества абзацев в документе; c) dl — переменная для хранения длины абзаца; d) Text — переменная для формирования текста-ответа о количестве символов а в абзаце; e) Nab — переменная для ввода номера абзаца, в котором будет происходить подсчет; f) I — переменная для организации цикла; g) kol — переменная для подсчета символов а; h) REZULTAT — переменная, которая определит область для вывода заголовка. 2. Ввести номер абзаца, используя диалоговое окно. 3. Определить количество абзацев в документе. 4. Проверить существование введенного номера абзаца и выдать сообщение об ошибке, если такого нет. 5. В переменную b занести текст всего абзаца. 6. Определить длину абзаца. 7. Организовать цикл по нахождению символа а. 8. Сформировать текст вывода сообщения. 9. Вставить дополнительный абзац после последнего абзаца документа для вывода сообщения. 10. Вывести текст-сообщение в подготовленный абзац. 11. Установить определенный шрифт, размер и цвет текста-сообщения.
Дата добавления: 2017-02-01; Просмотров: 72; Нарушение авторских прав?; Мы поможем в написании вашей работы! Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет |