Sub BorderColor()

Dim oBrdr As Variant
Dim MyColor As Long
    
    Application.ScreenUpdating = False
    MyColor = InputBox("Specify color code", "Border Color")

    For Each oBrdr In Array(wdBorderLeft, wdBorderRight, wdBorderTop, wdBorderBottom)
        With Selection.ParagraphFormat.Borders(oBrdr)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = MyColor
        End With
    Next oBrdr
    Application.ScreenUpdating = True
End Sub