Sub KTableH()
Dim i As Integer
With Options
  .DefaultBorderLineStyle = wdLineStyleSingle
  .DefaultBorderLineWidth = wdLineWidth050pt
  .DefaultBorderColor = 8284228
End With
With Selection.Tables(1)
  For i = 1 To 8
    Select Case i
      Case 1, 3 - 8
        With .Borders(i)
          .LineStyle = Options.DefaultBorderLineStyle
          .LineWidth = Options.DefaultBorderLineWidth
          .Color = Options.DefaultBorderColor
        End With
      Case Else
        With .Borders(i)
          .LineStyle = wdLineStyleNone
        End With
    End Select
  Next i
  With .Rows(1).Range
    With .Shading
      .Texture = wdTextureNone
      .ForegroundPatternColor = wdColorAutomatic
      .BackgroundPatternColor = 8284228
    End With
    .Borders.Shadow = False
    With .Cells.Borders(wdBorderVertical)
      .LineStyle = wdLineStyleSingle
      .LineWidth = wdLineWidth050pt
      .Color = -603914241
    End With
  End With
End With
With Options
  .DefaultBorderLineStyle = wdLineStyleSingle
  .DefaultBorderLineWidth = wdLineWidth050pt
  .DefaultBorderColor = -603914241
End With
End Sub