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

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

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

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

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

от 25%

Подписываем

договор

Имя

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

Принимаю Политику конфиденциальности

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

Отчет по лабораторной работе № 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

Bukvasha