Question

全部显示

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

WdLineStyle 可以是下列 WdLineStyle 常量之一：

wdLineStyleDashDot

wdLineStyleDashDotDot

wdLineStyleDashDotStroked

wdLineStyleDashLargeGap

wdLineStyleDashSmallGap

wdLineStyleDot

wdLineStyleDouble

wdLineStyleDoubleWavy

wdLineStyleEmboss3D

wdLineStyleEngrave3D

wdLineStyleInset

wdLineStyleNone

wdLineStyleOutset

wdLineStyleSingle

wdLineStyleSingleWavy

wdLineStyleThickThinLargeGap

wdLineStyleThickThinMedGap

wdLineStyleThickThinSmallGap

wdLineStyleThinThickLargeGap

wdLineStyleThinThickMedGap

wdLineStyleThinThickSmallGap

wdLineStyleThinThickThinLargeGap

wdLineStyleThinThickThinMedGap

wdLineStyleThinThickThinSmallGap

wdLineStyleTriple

expression.InsideLineStyle

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