|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
With Selection.Borders(wdBorderTop)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth075pt
End With
This example adds a double 1.5-point border below each frame in the active document.
For Each aFrame In ActiveDocument.Frames
With aFrame.Borders(wdBorderBottom)
.LineStyle = wdLineStyleDouble
.LineWidth = wdLineWidth150pt
End With
Next aFrame
The following example applies a border around the fourth word in the active document. Applying a single border (in this example, a top border) to text applies a border around the text.
ActiveDocument.Words(4).Borders(wdBorderTop).LineStyle = wdLineStyleSingle