Selection.Find.ClearFormatting
Selection.Find.Replacement.Text = "2005"
Selection.Find.Replacement.ClearFormatting
Selection.Find.Execute Replace:=wdReplaceAll
Sub primer()
With Selection.Find
.ClearFormatting 'поис без учета форматирования
.Text = "сформировать" 'отыскиваемый текст
.Execute 'выполнение поиска
If .Found = True Then 'если текст найден то удаление текста
Selection.Delete
End If
Selection.Find.Execute Replace:=wdReplaceAll 'применить ко всему тексту
End With
End Sub
№31 Иерархические объекты Visual Basic for
Application в Microsoft Office Access.
Модель обьектов Access отлична от моделей обьектов, рассмотренных в предыдущих главах приложений. Она включает в себя две модели: модель обьектов приложения Access, и модель доступа к данным (DAO, Data Access Object), обьекты которые используются для работы с данными. Модель обьектов приложения Access содержит обьекты, управляющие текущим сеансом работы. Эта модель используется для создания интерфейса базы данных, открытия формы либо отчета в другом приложении.
ОбъектыApplication ТипОбьект Ссылается на активное приложение Microsoft Access. Используется для управления приложением. Аналогичен обьекту Application других приложений
Forms Семейство. Содержит обьект Form, соответствующие всем открытым в данный момент формам в базе данных Access.
Reports Семейство. Содержит обьект Report, соответствующие всем открытым в данный момент формам в базе данных Access.
Controls Семейство Содержит обьекты Control, представляющие все элементы управления в конкретной форме, отчете или секции, вложенные или присоединенные элементы управления.
Modules Семейство . Содержит обьекты Module, соответствующие всем открытым в данный момент стандартным модулям классов в базе данных Access.
Screen Обьект Представляет ссобой ссылку на конкретную форму, отчет или элемент управления, который в данный момент имеен фокус.
DoCmd Объект Позволяет выполнить макрокоманду из процедуры на Visual Basic/
References Семейство Содержит объекты Reference, представляющие собой установленные ссылки в приложении Access. С помощью этих ссылок можно использовать внешние библиотеки других приложений
Другая часть модели обьектов Access- это модель DAO. Эти обьекты позволяют работать со структурой базы данных с помощью VBA. К обьектам непосредственного доступа к данным относятся таблицы, запросы, связи, индексы. Обьекты DAO обеспечивают доступ и обработку данных в базах данных, управления базами данных и их обьектами с помощью свойств и методов, так же позволяет создавать новые обьекты, изменять структуры базы данных.
Public Sub CommandButton1_Click()
Dim a, b, r, n As Integer
a = Int(10 * Rnd())
b = Int(10 * Rnd())
If a > b Then
Label1.Caption = a
Label3.Caption = b
Else
Label1.Caption = b
Label3.Caption = a
End If
End Sub
Public Sub CommandButton2_Click()
a = CInt(Label1.Caption)
b = CInt(Label3.Caption)
r = Abs(a - b)
n = CInt(TextBox1.Text)
If r = n Then
Label5.Caption = "Верно"
Else
Label5.Caption = "Ошибка"
End If
End Sub
№ 32 Иерархические объекты Visual Basic for Application в Microsoft Office PowerPoint
Power Point — программа работы с презентациями (то есть наборами графических изображений — слайдов, иногда со звуковым сопровождением). Чаще всего приходится программным способом выполнять следующие действия:
автоматически создавать презентации (например, на основе набора изображений в каталоге);
производить обработку презентаций — менять формат изображения, добавлять или изменять аудиосопровождение и т.п. Чаще всего подобные действия приходится производить в тех ситуациях, когда презентации были связаны с внешними файлами и эти файлы изменяются.
В PowerPoint система объектов выглядит следующим образом:
объект самого высокого уровня — Application, с набором свойств и методов, очень похожим на аналогичные объекты в Word и Excel;
на уровень ниже — коллекция Presentations с объектами Presentation. Можно сказать, что эти объекты по месту в иерархии примерно аналогичны объекту Workbook в Excel;
в объект Presentation встроена коллекция Slides с объектами Slide (в качестве примерного аналога можно привести листы в книгах Excel);
в объект Slide встроена коллекция Shapes с объектами Shape. Объекты Shape представляют все элементы слайда (всего их 22 типа) — изображение, надпись, диаграмма, заголовок, таблица, автофигура и т.п.
Вокруг этих четырех объектов — Application, Presentation, Slide и Shape и строится вся объектная модель Power Point.
Sub Макрос1()
Documents. Add. Template:=”C:/primer.doc.”
Documents. Open File Name:="C:/primer.doc.”