word range html,Range.HTMWord (的 LDivisions)

Range.HTMWord (的 LDivisions)

06/08/2017

本文内容

返回一 个 HTMLDivisions 对象，该对象代表 Web 文档中的 HTML 划分。

语法

expression. HTMLDivisions

表达式 是必需的。 一个代表

示例

以下示例设置活动文档中三个嵌套划分的格式。 本示例假定该活动文档为具有至少三个划分的 HTML 文档。

Sub FormatHTMLDivisions()

With ActiveDocument.Range.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

另请参阅

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。