Лаботароная работа вариант 10

  • ID: 11153 
  • 47 страниц
300 рубСкачать

гарантия низкой цены

Laba2

Laba3

Laba4

Laba5

Laba6

Отчет.docx

Содержание:


Лабораторная работа № 2

Тема: Автоматическое создание макросов.

Цель работы: Создание макросов в приложениях пакета Microsoft Office с использованием средства автоматического создания макросов.

Задание

Создайте макрос в соответствии с вариантом задания, используя средство средство автоматического создания макросов. Назначьте созданный макрос какой-либо панели инструментов. Добавьте к макросу необходимые комментарии. Проверьте работу макроса. Внесите в код созданного макроса какие-либо изменения и проследите, как это отразится на его работе.

В каждом варианте необходимо создать четыре макроса: два для приложения MS Word и два для приложения MS Excel.

Варианты заданий

Макрос, преобразующий таблицу в текст.

Sub Макрос1()

Attribute Макрос1.VB_Description = "Макрос записан 27.05.2006 Anton"

Attribute Макрос1.VB_ProcData.VB_Invoke_Func = "Project.NewMacros.Макрос1"

'Преобразовать таблицу, в которой находится курсор, в текст

Selection.Rows.ConvertToText Separator:=wdSeparateByTabs, NestedTables:=True

'Выделенный текст сделать коричневым цветом

Selection.Font.Color = wdColorBrown

End Sub

Макрос, устанавливающий расстановку переносов во фрагменте текста.

Sub Макрос2()

Attribute Макрос2.VB_Description = "Макрос записан 27.05.2006 Anton"

Attribute Макрос2.VB_ProcData.VB_Invoke_Func = "Project.NewMacros.Макрос2"

With ActiveDocument

.AutoHyphenation = True 'Автоматическая расстановка переносов включена

.HyphenateCaps = True 'Включить переносы в словах из ПРОПИСНЫХ БУКВ

.HyphenationZone = CentimetersToPoints(0.63) 'Ширина зоны переносов слов: 0.63

.ConsecutiveHyphensLimit = 0 'Макс. число последовательных переносов: нет

End With

End Sub

Макрос, вставляющий формулу в ячейку.

Sub Макрос1()

Attribute Макрос1.VB_ProcData.VB_Invoke_Func = "q\n14"

'

' Макрос1 Макрос

'

' Сочетание клавиш: Ctrl+q

s = InputBox("Введите формулу") ' Ввод формулы