Microsoft Office Forums - View Single Post

macropod · 11-04-2012, 02:45 AM

Hi Jennifer,

You can't have option 3. That aside, try:

Code:

Sub Borders()
Application.ScreenUpdating = False
Dim i As Long
With Selection.Sections(1)
  If .Borders(wdBorderLeft).LineStyle = wdLineStyleNone Then
    For i = 1 To 4
      With .Borders(i)
      .LineStyle = wdLineStyleSingle
      .LineWidth = wdLineWidth025pt
      .Color = wdColorAutomatic
      End With
    Next
    With .Borders
      .DistanceFrom = wdBorderDistanceFromText
      .DistanceFromTop = 1
      .DistanceFromLeft = 1
      .DistanceFromBottom = 1
      .DistanceFromRight = 1
    End With
  ElseIf .Borders.DistanceFrom = wdBorderDistanceFromText Then
    With .Borders
      .DistanceFrom = wdBorderDistanceFromPageEdge
      .DistanceFromTop = 24
      .DistanceFromLeft = 24
      .DistanceFromBottom = 24
      .DistanceFromRight = 24
    End With
  Else
    .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
    .Borders(wdBorderRight).LineStyle = wdLineStyleNone
    .Borders(wdBorderTop).LineStyle = wdLineStyleNone
    .Borders(wdBorderBottom).LineStyle = wdLineStyleNone
  End If
End With
Application.ScreenUpdating = True
End Sub