EnableFirstPageInSection Property
True if page borders are enabled for the first page in the section. Read/write Boolean.
Example
This example adds a border around the first page in the first section in the selection.
Dim borderLoop As Border
With Selection.Sections(1)
.Borders.EnableFirstPageInSection = True
.Borders.EnableOtherPagesInSection = False
For Each borderLoop In .Borders
borderLoop.ArtStyle = wdArtPeople
borderLoop.ArtWidth = 15
Next borderLoop
End With