Объект HTMLDivision (Word)
Представляет один элемент HTML DIV в веб-документе. Объект HTMLDivision является членом коллекции HTMLDivisions .
Используйте HTMLDivisions (Index), где Index ссылается на html-деление в документе, чтобы вернуть один объект HTMLDivision . Используйте свойство Borders для форматирования свойств границы для деления HTML. В этом примере форматируются три вложенных деления в активном документе. В этом примере предполагается, что активный документ является HTML-документом по крайней мере с тремя делениями.
Sub FormatHTMLDivisions()
With ActiveDocument.HTMLDivisions(1)
With .Borders(wdBorderLeft)
.Color = wdColorRed
.LineStyle = wdLineStyleSingle
End With
With .Borders(wdBorderTop)
.Color = wdColorRed
.LineStyle = wdLineStyleSingle
End With
With .HTMLDivisions(1)
.LeftIndent = InchesToPoints(1)
.RightIndent = InchesToPoints(1)
With .Borders(wdBorderRight)
.Color = wdColorBlue
.LineStyle = wdLineStyleDouble
End With
End With
With .Borders(wdBorderBottom)
.Color = wdColorBlue
.LineStyle = wdLineStyleDouble
End With
With .HTMLDivisions(1)
.LeftIndent = InchesToPoints(1)
.RightIndent = InchesToPoints(1)
With .Borders(wdBorderLeft)
.Color = wdColorBlack
.LineStyle = wdLineStyleDot
End With
With .Borders(wdBorderTop)
.Color = wdColorBlack
.LineStyle = wdLineStyleDot
End With
End With
End With
End With
End Sub
Деления HTML можно вложить в несколько разделов HTML. Используйте метод HTMLDivisionParent для доступа к родительскому разделу HTML текущего раздела HTML. Этот пример форматирует границы для двух разделов HTML в активном документе. В этом примере предполагается, что активный документ является HTML-документом по крайней мере с двумя делениями.
Sub FormatHTMLDivisions()
With ActiveDocument.HTMLDivisions(1)
With .HTMLDivisions(1)
.LeftIndent = InchesToPoints(1)
.RightIndent = InchesToPoints(1)
With .Borders(wdBorderLeft)
.Color = wdColorBlue
.LineStyle = wdLineStyleDouble
End With
With .Borders(wdBorderRight)
.Color = wdColorBlue
.LineStyle = wdLineStyleDouble
End With
With .HTMLDivisionParent
.LeftIndent = InchesToPoints(1)
.RightIndent = InchesToPoints(1)
With .Borders(wdBorderTop)
.Color = wdColorBlack
.LineStyle = wdLineStyleDot
End With
With .Borders(wdBorderBottom)
.Color = wdColorBlack
.LineStyle = wdLineStyleDot
End With
End With
End With
End With
End Sub
Справочник по объектной модели Word
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.