Реферат по предмету "Информатика"


Создание макросов в т.р. Word

Отчет по лабораторной работе № 3


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


Задание:


1. Создание макроса для оформления шаблона документа blank.dot


· Cервис - макрос – начать запись – изменение имени на МакроWA – вставка – объект WordArt- завершить макрос. Сервис – настройка – команды – добавляем макрос на панель инструментов – выделяем макрос – «изменить выделенный объект» - «текст только в меню» - «выбрать значок для кнопки».


Selection.InlineShapes.AddPicture FileName:= _


"D:\TEMP\PROF\All Users\Documents\My Pictures\Sample Pictures\Water lilies.jpg" _


, LinkToFile:=False, SaveWithDocument:=True


· Создали макрос аналогично макросу МакроWA, который вставлял бы рисунок, Присвоили имя макросу МакроРис
.


Selection.InlineShapes.AddPicture FileName:= _


"D:\TEMP\PROF\All Users\Documents\My Pictures\Sample Pictures\Sunset.jpg" _


, LinkToFile:=False, SaveWithDocument:=True


· На основе двух созданных макросов создали один, используя редактор VBA и сохранили под именем МакроWA
R
: сервис - макрос – макросы – выбираем макрос Макро
WA
– «изменить» - копируем текст макрома Макро Рис и вставляем после текста макроса Макро
WA
.
Для вызова создали кнопку: Сервис – настройка – команды – добавляем макрос на панель инструментов – выделяем макрос – «изменить выделенный объект» - «текст только в меню» - «выбрать значок для кнопки».


Selection.InlineShapes.AddPicture FileName:= _


"D:\TEMP\PROF\All Users\Documents\My Pictures\Sample Pictures\Water lilies.jpg" _


, LinkToFile:=False, SaveWithDocument:=True


Selection.InlineShapes.AddPicture FileName:= _


"D:\TEMP\PROF\All Users\Documents\My Pictures\Sample Pictures\Sunset.jpg" _


, LinkToFile:=False, SaveWithDocument:=True


· Создали макрос, который: добавляет страницу в текст ( вставка – разрыв – «начать новую страницу») и необходимо, чтобы ориентация этой страницы была альбомная ( файл – параметры страницы – ориентация альбомная). Присвоили имя макросу МакроПС.


Selection.InsertBreak Type:=wdPageBreak


With ActiveDocument.Styles(wdStyleNormal).Font


If .NameFarEast = .NameAscii Then


.NameAscii = ""


End If


.NameFarEast = ""


End With


With ActiveDocument.PageSetup


.LineNumbering.Active = False


.Orientation = wdOrientLandscape


.TopMargin = CentimetersToPoints(3)


.BottomMargin = CentimetersToPoints(1.5)


.LeftMargin = CentimetersToPoints(2)


.RightMargin = CentimetersToPoints(2)


.Gutter = CentimetersToPoints(0)


.HeaderDistance = CentimetersToPoints(1.25)


.FooterDistance = CentimetersToPoints(1.25)


.PageWidth = CentimetersToPoints(29.7)


.PageHeight = CentimetersToPoints(21)


.FirstPageTray = wdPrinterDefaultBin


.OtherPagesTray = wdPrinterDefaultBin


.SectionStart = wdSectionNewPage


.OddAndEvenPagesHeaderFooter = False


.DifferentFirstPageHeaderFooter = False


.VerticalAlignment = wdAlignVerticalTop


.SuppressEndnotes = False


.MirrorMargins = False


.TwoPagesOnOne = False


.BookFoldPrinting = False


.BookFoldRevPrinting = False


.BookFoldPrintingSheets = 1


.GutterPos = wdGutterPosLeft


End With



Не сдавайте скачаную работу преподавателю!
Данный реферат Вы можете использовать для подготовки курсовых проектов.

Поделись с друзьями, за репост + 100 мильонов к студенческой карме :

Пишем реферат самостоятельно:
! Как писать рефераты
Практические рекомендации по написанию студенческих рефератов.
! План реферата Краткий список разделов, отражающий структура и порядок работы над будующим рефератом.
! Введение реферата Вводная часть работы, в которой отражается цель и обозначается список задач.
! Заключение реферата В заключении подводятся итоги, описывается была ли достигнута поставленная цель, каковы результаты.
! Оформление рефератов Методические рекомендации по грамотному оформлению работы по ГОСТ.

Читайте также:
Виды рефератов Какими бывают рефераты по своему назначению и структуре.

Сейчас смотрят :

Реферат Comedy Part 2 19291959 Essay Research Paper
Реферат Региональные особенности регулирования цен
Реферат Репутация врача ветеринарной медицины
Реферат Wounded Chimera Essay Research Paper This page
Реферат Ответы на вопросы по западноевропейской философии 19 века философского факультета СПбГУ
Реферат «Пермская государственная медицинская академия имени академика Е. А. Вагнера Федерального агентства по здравоохранению и социальному развитию»
Реферат Анемии различного генеза у больных ревматоидным артритом 14. 01. 22 ревматология
Реферат Управление экономикой
Реферат Международные неправительственные организации и проблемы приватизации в России
Реферат Проектирование вертикального цилиндрического резервуара для нефтепродуктов 2
Реферат Распространение и профилактика гиподерматоза крупного рогатого скота в СПК Некрасовское, Нижнеомского района, Омской области
Реферат Смерть в экзистенциализме
Реферат Иннокентий Смоктуновский
Реферат Багатопартійність як необхідна умова становлення демократичного процесу
Реферат Маркетингова діяльність Call-центру Окі-Токі ТОВ "Масском"