返回或设置一个对象中内部边框的线宽。如果对象中的内部边框包括一种以上的线宽,则返回值为 wdUndefined;否则返回 False 或 WdLineWidth 常量。可以设置为 True、False 或下列 WdLineWidth 常量之一。
WdLineWidth 可以是下列 WdLineWidth 常量之一: |
wdLineWidth025pt |
wdLineWidth050pt |
wdLineWidth075pt |
wdLineWidth100pt |
wdLineWidth150pt |
wdLineWidth225pt |
wdLineWidth300pt |
wdLineWidth450pt |
wdLineWidth600pt |
expression.InsideLineWidth
expression 必需。该表达式返回一个 Border 对象。
本示例在活动文档的第一个表格中的行列之间添加边框。
Dim tableTemp As Table
If ActiveDocument.Tables.Count >= 1 Then
Set tableTemp = ActiveDocument.Tables(1)
tableTemp.Borders.InsideLineStyle = wdLineStyleDot
tableTemp.Borders.InsideLineWidth = wdLineWidth050pt
End If
本示例在活动文档中的前 4 段之间添加点线型边框。
Dim docActive As Document Dim rngTemp As Range Set docActive = ActiveDocument Set rngTemp
=
docActive
.Range( _ Start:=
docActive
.Paragraphs(1).Range.Start, _ End:=
docActive
.Paragraphs(4).Range.End) rngTemp.Borders.InsideLineStyle = wdLineStyleDot rngTemp.Borders.InsideLineWidth = wdLineWidth075pt