InsideLineWidth Property

expression.InsideLineWidth

expression    Required. An expression that returns a Border object.

Example

This example adds borders between rows and between columns in the first table in the active document.

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

This example adds dotted borders between the first four paragraphs of the active document.

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