Word VBA教程:LineWidth属性

返回或设置对象边框的线宽。如果对象中没有边框,则返回WdLineWidth 常量;如果对象中包括一种以上的线宽,则返回 wdUndefined 常量。可读写。

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

expression.LineWidth

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

说明

如果指定的线宽对边框线型无效,则此属性将产生一个错误。若要确定对特定线型有效的线宽,请参阅“格式”菜单中的“边框和底纹”对话框。

VBA示例

本示例为活动文档的第一个表格的第一行添加底边边框。


If ActiveDocument.Tables.Count >= 1 Then
    With ActiveDocument.Tables(1).Rows(1).Borders(wdBorderBottom)
        .LineStyle = wdLineStyleSingle
        .LineWidth = wdLineWidth050pt
    End With
End If

本示例为所选内容的左边添加红色波浪线边框。


With Selection.Borders(wdBorderLeft)
    .LineStyle = wdLineStyleSingleWavy
    .LineWidth = wdLineWidth075pt
    .ColorIndex = wdRed
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号