Word VBA教程:InsideLineWidth属性

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

WdLineWidth 可以是下列 WdLineWidth 常量之一:
wdLineWidth025pt
wdLineWidth050pt
wdLineWidth075pt
wdLineWidth100pt
wdLineWidth150pt
wdLineWidth225pt
wdLineWidth300pt
wdLineWidth450pt
wdLineWidth600pt

expression.InsideLineWidth

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

VBA示例

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


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

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号