Visual Basic for Application (VBA) Инкапсуляцией называется объединение в объекте его свойств и возможных над ним операций (методов). методы свойства. - презентация

1

2 Visual Basic for Application (VBA)

3 Инкапсуляцией называется объединение в объекте его свойств и возможных над ним операций (методов). методы свойства методы

4 Классы объектов являются «шаблонами», определяющими наборы свойств, методов и событий по которым создаются объекты. Например: класс объектов документ (Document) - свойств: имя (Name), полное имя (FullName) т.д. - методов: открытие документа (Open), печать документа (PrintOut), сохранения документов (Save) и т.д. - событий: открытие документа (Document_New()), закрытие документа (Document_Close()) и т.д. Объект, созданный по «шаблону» класса объектов, является экземпляром класса и наследует весь набор свойств, методов и событий данного класса. Например: Document(«Проба1.doc») Document(«Проба2.doc»)

5 Семейство объектов представляет собой объект, содержащий несколько объектов, экземпляров одного класса. Например: Documents() Обращение к объекту, входящему в семейство, производится либо по имени, либо по индексу. ! Например: Documents(«Проба.doc») Characters(7)

6 Application (приложение) Document (документ) Selection (фрагмент документа) Character (символ) Paragraph (абзац) Table (таблица) Аpplication.Document(«Проба.doc») Document(«Проба.doc»)

7 Методы объектов Объект.Метод арг1:=значение, арг2:=значение Documents().Open FileName:=D:\Документы\проба.doc Selection.Moveright Unit:=wdCharacter, Count:=11, Extend:=wdExtend Свойства объектов Объект.Свойство = значение свойства Selection.Characters(1).Bold=True With объект.свойство1=значение свойства1.свойство2=значение свойства2 End with With Selection.Characters(1).Bold=True.Italic=True End with

8 Sub редактирование() Selection.MoveRight unit:=wdCharacter, Count:=15, Extend:=wdExtend Selection.Cut Selection.MoveRight unit:=wdCharacter, Count:=7 Selection.Paste End Sub Sub символы() Documents().Open FileName:="D:\проба.doc" Selection.MoveRight unit:=wdCharacter, Count:=11, Extend:=wdExtend For i = 1 To 11 If Selection.Characters(i) = "а" Then Selection.Characters(i).Bold = True _ Else Selection.Characters(i).Italic = True Next i Documents("проба.doc").Save Documents("проба.doc").Close End Sub Макросы