Реферат

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

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 11.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. Биография Мандельштам Осип
6. Реферат на тему Slavery Good Or Bad Essay Research Paper
7. Биография на тему Карамзин Николай Михайлович
8. Реферат на тему Hepatitis C Essay Research Paper Hepatitis C
9. Реферат на тему Shirley Jackson The Lottery Analysis Essay Research
10. Реферат Культура Стародавньої Греції та Стародавнього Риму