全部显示

InsideLineWidth 属性

返回或设置一个对象中内部边框的线宽。如果对象中的内部边框包括一种以上的线宽，则返回值为 wdUndefined；否则返回 False 或 WdLineWidth 常量。可以设置为 True、False 或下列 WdLineWidth 常量之一。

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