это быстро и бесплатно
Оформите заказ сейчас и получите скидку 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 заданиями. Контролируйте процесс написания работы в режиме онлайн
«Разработка и оптимизация моделей плана вариантного...
Лабораторная, Управление проектами
Срок сдачи к 17 сент.
Особенности художественно-публицистических жанров в материалах Вячеслава Шпаковского в сетевом издании «Военное обозрение»
Курсовая, Теория и практика массмедиа
Срок сдачи к 25 сент.
Построение экономической модели для решения профессиональных задач ООО...
Другое, Экономико-правовое обеспечение экономической безопасности
Срок сдачи к 12 сент.
Поправить курсовую по церковной социальной деятельности (читайте ТЗ внимательно, переписывать полностью пока не нужно)
Курсовая, Церковная социальная деятельность
Срок сдачи к 11 сент.
сделать файл на основании решенного задания
Решение задач, Исследование операций
Срок сдачи к 11 сент.
Выполнить практические задания
Другое, Ценообразование в капитальном строительстве
Срок сдачи к 18 сент.
Индивидуальное задание на производственную практику студента
Отчет по практике, Производственная практика
Срок сдачи к 20 сент.
Написать план работы вкр на тему «Использование корпорациями производных финансовых инструментов для хеджирования рисков»
ВКР, Финансовые рынки и финансовый инжиниринг
Срок сдачи к 18 сент.
Выполнить курсовую согласно методическим указаниям!
Курсовая, Всеобщее управление качеством
Срок сдачи к 29 сент.
Темы, демонстрирующие практическое применение навыков шитья в повседневной жизни. • «Методы ремонта одежды. «Вторая жизнь старых джинсов: от джинсовой сумки до органайзера»:
Диплом, Технология для девочек . Школьная программа
Срок сдачи к 30 сент.
Заполните форму и узнайте цену на индивидуальную работу!