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

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

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

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

Private Sub CommandButton1_Click()

Dim k As Integer

Dim kol As Integer

Dim i As Integer

Dim Mas() As Integer

Dim otvet As String

Dim Max As Integer

Dim ind As Byte

Dim REZULTAT As Range

kol = 0: k = 0

k = ActiveDocument.Paragraphs.Count

ReDim Mas(k) As Integer

Rem Начало программы

For i = 1 To k

kol = ActiveDocument.Paragraphs(i).Range.Sentences.Count

Mas(i) = kol

Next i

Max = Mas(1)

ind = 1

For i = 2 To k

If Mas(i) > Max Then

Max = Mas(i)

ind = i

End If

Next i

Rem Вывод результатов

otvet = "Самое большое количество предложений в " & ind & " абзаце - " & Max

MsgBox otvet

Set REZULTAT = ActiveDocument.Paragraphs(ind).Range

With REZULTAT

.Font.Name = "Arial"

.Font.Size = 12

.Font.ColorIndex = wdDarkRed

End With

End Sub