Реферат

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

Работа добавлена на сайт bukvasha.net: 2015-10-28

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 23.11.2024





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


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

Задание:

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

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

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 и сохранили под именем МакроWAR
: сервис  - макрос – макросы – выбираем макрос Макро
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

1. Сочинение на тему Островский а. н. - Сила характера катерины в драме а. н. островского гроза
2. Контрольная работа Предмет и объект социально-экономической статистики
3. Курсовая Восприятие как фактор поведения потребителей
4. Сочинение Стихотворение Гумилева Заблудившийся трамвай
5. Реферат на тему Reapers Essay Research Paper ReapersJean Toomer
6. Доклад Психоаналитический концепт взгляда
7. Диплом на тему Религиозный туризм
8. Реферат на тему English Essay Research Paper Hamlet RevengeDenmark is
9. Реферат на тему Shawshank Redemption
10. Реферат на тему Is AIDS Taking Over The World Essay