Реферат: Создание макросов в т.р. Word - Refy.ru - Сайт рефератов, докладов, сочинений, дипломных и курсовых работ

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

Рефераты по информатике » Создание макросов в т.р. Word

Стельмашук Н., Б-39

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

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

Задание:

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

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

Selection.InlineShapes.AddPicture FileName:= _

"D:TEMPPROFAll UsersDocumentsMy PicturesSample PicturesWater lilies.jpg" _

, LinkToFile:=False, SaveWithDocument:=True


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

Selection.InlineShapes.AddPicture FileName:= _

"D:TEMPPROFAll UsersDocumentsMy PicturesSample PicturesSunset.jpg" _

, LinkToFile:=False, SaveWithDocument:=True


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

Selection.InlineShapes.AddPicture FileName:= _

"D:TEMPPROFAll UsersDocumentsMy PicturesSample PicturesWater lilies.jpg" _

, LinkToFile:=False, SaveWithDocument:=True

Selection.InlineShapes.AddPicture FileName:= _

"D:TEMPPROFAll UsersDocumentsMy PicturesSample PicturesSunset.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