全部显示

InsideLineStyle 属性

返回或设置指定对象的内部边框。如果指定对象使用了一种以上的边框类型，则返回 wdUndefined；否则将返回 False 或常量 WdLineStyle。可将该属性设置为 True、False 或 WdLineStyle 常量。

expression   必需。该表达式返回一个 Border 对象。

说明

如果为 True，则将线型设置为默认线型，线宽设置为默认线宽。可用 DefaultBorderLineWidth 和 DefaultBorderLineStyle 属性来设置默认线型和线宽。

可用下列任何一种指令删除活动文档中第一个表格的内部边框。

ActiveDocument.Tables(1).Borders.InsideLineStyle = wdLineStyleNone
ActiveDocument.Tables(1).Borders.InsideLineStyle = False

示例

本示例在活动文档的第一个表格中的行列之间添加边框。

Dim tableTemp As Table

If ActiveDocument.Tables.Count >= 1 Then
    Set tableTemp = ActiveDocument.Tables(1)
    tableTemp.Borders.InsideLineStyle = True
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)

With rngTemp.Borders
    .InsideLineStyle = wdLineStyleSingle
    .InsideLineWidth = wdLineWidth150pt
End With