это быстро и бесплатно
Оформите заказ сейчас и получите скидку 100 руб.!
Ознакомительный фрагмент работы:
Отчет по лабораторной работе № 3
Тема: Создание макросов в т.р. Word.
Задание:
1. Создание макроса для оформления шаблона документа blank.dot
· Cервис - макрос – начать запись – изменение имени на МакроWA – вставка – объект WordArt- завершить макрос. Сервис – настройка – команды – добавляем макрос на панель инструментов – выделяем макрос – «изменить выделенный объект» - «текст только в меню» - «выбрать значок для кнопки».
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
Сделайте индивидуальный заказ на нашем сервисе. Там эксперты помогают с учебой без посредников 
Разместите задание – сайт бесплатно отправит его исполнителя, и они предложат цены.
Цены ниже, чем в агентствах и у конкурентов
Вы работаете с экспертами напрямую. Поэтому стоимость работ приятно вас удивит
Бесплатные доработки и консультации
Исполнитель внесет нужные правки в работу по вашему требованию без доплат. Корректировки в максимально короткие сроки
Гарантируем возврат
Если работа вас не устроит – мы вернем 100% суммы заказа
Техподдержка 7 дней в неделю
Наши менеджеры всегда на связи и оперативно решат любую проблему
Строгий отбор экспертов
К работе допускаются только проверенные специалисты с высшим образованием. Проверяем диплом на оценки «хорошо» и «отлично»
Работы выполняют эксперты в своём деле. Они ценят свою репутацию, поэтому результат выполненной работы гарантирован 
Ежедневно эксперты готовы работать над 1000 заданиями. Контролируйте процесс написания работы в режиме онлайн 
Решить 10 заданий
Отчет по практике, Искусственный интеллект (ИИ), информатика, программирование
Срок сдачи к 26 июня
Теоретические вопросы расписать по 3-4 предложения
Ответы на билеты, Ветеринария
Срок сдачи к 25 июня
Тема «Влияние особенностей детско-родительских отношений на уровень тревожности и эмоциональное состояние детей старшего дошкольного возраста. »
Курсовая, Общая психология
Срок сдачи к 29 июня
Моделирование и исследование процессов гидродинамики
Онлайн-помощь, Компьютерное моделирование технологических процессов, инженерия
Срок сдачи к 23 июня
Сделать более подробно режимы резания по образцу
Диплом, Технология машиностроения
Срок сдачи к 24 июня
Оценка уровня цифровой зрелости строительных производственных...
Курсовая, Менеджмент
Срок сдачи к 22 июня
Проблема диагностики психической травмы и посттравматического стресса
Контрольная, Психология
Срок сдачи к 23 июня
Я отпраил готовые как должно выглидить и 12 тем которые надо написать...
Отчет по практике, Все что касаеться програмирования word,java и т д
Срок сдачи к 24 июня
Экзамен дистанционно
Другое, Организация и контроль текущей деятельности служб предприятий туризма и гостеприимства
Срок сдачи к 24 июня
Ресторанный туризм России: советские столовые и мишленовские рестораны
Курсовая, Туризм
Срок сдачи к 27 июня
«Всё сдал!» — безопасный онлайн-сервис с проверенными экспертами
Используя «Свежую базу РГСР», вы принимаете пользовательское соглашение
и политику обработки персональных данных
Сайт работает по московскому времени:
Принимаем к оплате
© 2011—2026 Всё сдал!
Заполните форму и узнайте цену на индивидуальную работу!
Мы ВКонтакте 
Трейлер о сайте