object that represents an HTML division in a Web document.
expression.HTMLDivisions
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example formats three nested divisions in the active document. This example assumes that the active document is an HTML document with at least three divisions.
Sub FormatHTMLDivisions()
With ActiveDocument.HTMLDivisions(1)
With .Borders(wdBorderLeft)
.Color = wdColorRed
.LineStyle = wdLineStyleSingle
End With
With .Borders(wdBorderRight)
.Color = wdColorRed
.LineStyle = wdLineStyleSingle
End With
With .HTMLDivisions(1)
.LeftIndent = InchesToPoints(1)
.RightIndent = InchesToPoints(1)
With .Borders(wdBorderTop)
.Color = wdColorBlue
.LineStyle = wdLineStyleDouble
End With
With .Borders(wdBorderBottom)
.Color = wdColorBlue
.LineStyle = wdLineStyleDouble
End With
With .HTMLDivisions(1)
.LeftIndent = InchesToPoints(1)
.RightIndent = InchesToPoints(1)
With .Borders(wdBorderLeft)
.LineStyle = wdLineStyleDot
End With
With .Borders(wdBorderRight)
.LineStyle = wdLineStyleDot
End With
With .Borders(wdBorderTop)
.LineStyle = wdLineStyleDot
End With
With .Borders(wdBorderBottom)
.LineStyle = wdLineStyleDot
End With
End With
End With
End With
End Sub