用VBA在Word中输入各种段尾下划线

一、效果

二、代码

Sub 输入段尾下划线()
    '双下划线
    With Selection.Range.Paragraphs.Item(1).Format.Borders(wdBorderBottom)
        .LineStyle = wdLineStyleDouble
        .LineWidth = wdLineWidth050pt
        .ColorIndex = 2
    End With
    '波浪线
    With Selection.Range.Paragraphs.Item(1).Format.Borders(wdBorderBottom)
        .LineStyle = wdLineStyleSingleWavy
        .LineWidth = wdLineWidth075pt
        .ColorIndex = 3
    End With
    '虚线
    With Selection.Range.Paragraphs.Item(1).Format.Borders(wdBorderBottom)
        .LineStyle = wdLineStyleDashLargeGap
        .LineWidth = wdLineWidth025pt
        .ColorIndex = 4
    End With
    '单下划线
    With Selection.Range.Paragraphs.Item(1).Format.Borders(wdBorderBottom)
        .LineStyle = wdLineStyleSingle
        .LineWidth = wdLineWidth150pt
        .ColorIndex = 5
    End With
End Sub