Word VBA教程:InsideLineStyle属性

返回或设置指定对象的内部边框。如果指定对象使用了一种以上的边框类型,则返回 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,则将线型设置为默认线型,线宽设置为默认线宽。可用DefaultBorderLineWidthDefaultBorderLineStyle属性来设置默认线型和线宽。

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


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

VBA示例

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


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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号