InsideLineWidth Property Example
This example adds borders between rows and between columns in the first table in the active document.
If ActiveDocument.Tables.Count >= 1 Then
Set myTable = ActiveDocument.Tables(1)
myTable.Borders.InsideLineStyle = wdLineStyleDot
myTable.Borders.InsideLineWidth = wdLineWidth050pt
End If
This example adds dotted borders between the first four paragraphs in the active document.
Set myDoc = ActiveDocument
Set myRange = myDoc.Range(Start:=myDoc.Paragraphs(1).Range.Start, _
End:=myDoc.Paragraphs(4).Range.End)
myRange.Borders.InsideLineStyle = wdLineStyleDot
myRange.Borders.InsideLineWidth = wdLineWidth075pt