Visual Basic for Application (VBA)
Инкапсуляцией называется объединение в объекте его свойств и возможных над ним операций (методов). методы свойства методы
Классы объектов являются «шаблонами», определяющими наборы свойств, методов и событий по которым создаются объекты. Например: класс объектов документ (Document) - свойств: имя (Name), полное имя (FullName) т.д. - методов: открытие документа (Open), печать документа (PrintOut), сохранения документов (Save) и т.д. - событий: открытие документа (Document_New()), закрытие документа (Document_Close()) и т.д. Объект, созданный по «шаблону» класса объектов, является экземпляром класса и наследует весь набор свойств, методов и событий данного класса. Например: Document(«Проба1.doc») Document(«Проба2.doc»)
Семейство объектов представляет собой объект, содержащий несколько объектов, экземпляров одного класса. Например: Documents() Обращение к объекту, входящему в семейство, производится либо по имени, либо по индексу. ! Например: Documents(«Проба.doc») Characters(7)
Application (приложение) Document (документ) Selection (фрагмент документа) Character (символ) Paragraph (абзац) Table (таблица) Аpplication.Document(«Проба.doc») Document(«Проба.doc»)
Методы объектов Объект.Метод арг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
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 Макросы