If Selection.Type = wpsSelectionNormal Then Selection.Font.Borders(wpsBorderBottom).LineStyle = wpsLineStyleDashDotEnd If