Word VBA教程:OutsideLineStyle属性

返回或设置指定对象的外部边框。如果指定对象使用了一种以上的边框类型,则返回 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.OutsideLineStyle

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

说明

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

使用下列两条指令中的任何一条,都可删除活动文档中第一个表格的外部边框。


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

VBA示例

本示例为活动文档的第一段的周围添加 0.75 磅宽的双边框。


With ActiveDocument.Paragraphs(1).Borders
    .OutsideLineStyle = wdLineStyleDouble
    .OutsideLineWidth = wdLineWidth075pt
End With

本示例在活动文档的第一个表格周围添加边框。


If ActiveDocument.Tables.Count >= 1 Then
    Set myTable = ActiveDocument.Tables(1)
    myTable.Borders.OutsideLineStyle = wdLineStyleSingle
End If

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号