Отчет по лабораторной работе № 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
Забиваем Сайты В ТОП КУВАЛДОЙ - Уникальные возможности от SeoHammer
Каждая ссылка анализируется по трем пакетам оценки: SEO, Трафик и SMM.
SeoHammer делает продвижение сайта прозрачным и простым занятием.
Ссылки, вечные ссылки, статьи, упоминания, пресс-релизы - используйте по максимуму потенциал SeoHammer для продвижения вашего сайта.
Что умеет делать SeoHammer
— Продвижение в один клик, интеллектуальный подбор запросов, покупка самых лучших ссылок с высокой степенью качества у лучших бирж ссылок.
— Регулярная проверка качества ссылок по более чем 100 показателям и ежедневный пересчет показателей качества проекта.
— Все известные форматы ссылок: арендные ссылки, вечные ссылки, публикации (упоминания, мнения, отзывы, статьи, пресс-релизы).
— SeoHammer покажет, где рост или падение, а также запросы, на которые нужно обратить внимание.
SeoHammer еще предоставляет технологию Буст, она ускоряет продвижение в десятки раз,
а первые результаты появляются уже в течение первых 7 дней.
Зарегистрироваться и Начать продвижение
.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
|
