Объектная модель описывает каждый HTML-документ как набор отдельных объектов - изображений, абзацев, списков и т.д. до наинизшего уровня, даже до отдельных символов. Каждый объект может иметь свойства, которые определены в виде атрибутов.

Например, абзац P имеет атрибут выравнивания , который может иметь значения left, right или center.

В объектной модели атрибут называют свойством объекта. Объект также имеет свои методы и события, которые могут происходить с ним и влиять на него. Сегодня есть возможность управлять как содержанием HTML-документов, так и браузером.

Например, для браузера Internet Explorer с помощью объектно-ориентированных языков JScript и VBScript можно писать программы, которые называют сценариями, и вставлять их в HTML-коды. Такие сценарии размещают в специальных текстах .

Количество букв а в абзаце с номером 2 - 7.

Private Sub CommandButton1_Click()

Dim b As String

Dim k As Integer

Dim dl As Long

Dim Text As String

Dim Nab As Integer

Dim i As Long

Dim REZULTAT As Range

kol = 0

Nab = InputBox("Введите номер абзаца", "Подсчитаем буквы а")

k = ActiveDocument.Paragraphs.Count

If Nab > k Then

MsgBox "В тексте нет такого абзаца", 48, "Предупреждение"

End

End If

b = ActiveDocument.Paragraphs(Nab).Range

dl = Len(b)

For i = 1 To dl

If Mid(b, i, 1) = "а" Or Mid(b, i, 1) = "А" Then kol = kol + 1

Next i

MsgBox kol

Text = "Количество букв а в абзаце с номером " & Nab & " - " & kol & "."

ActiveDocument.Paragraphs(k).Range.InsertParagraphAfter

Set REZULTAT = ActiveDocument.Paragraphs(k + 1).Range

With REZULTAT

.InsertBefore Text

.Font.Name = "Arial"

.Font.Size = 14

.Font.ColorIndex = wdDarkRed

End With End Sub