Question

全部显示

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

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

wdLineWidth025pt

wdLineWidth050pt

wdLineWidth075pt

wdLineWidth100pt

wdLineWidth150pt

wdLineWidth225pt

wdLineWidth300pt

wdLineWidth450pt

wdLineWidth600pt

expression.InsideLineWidth

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

示例

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

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