Change the color of the underlines in Word

[Casudl]

hey

I just find that all the underlines in my word document is black. It looks not that good.
I want to change them all into red. How can I batch change the color of all underlins in a word 2010 document? Any ideas? Thanks.

 

[Marc]

On the right side of the underline button there's a drop down menu.
At the bottom of this drop down menu you can change the colors of the lines

 

[Auskns]

For the exsiting underlines , you can use VBA to batch change the color. Try below

Sub ChangeUnderlineColor()
Dim objDoc As Document
Dim objRange As Range

Set objDoc = ActiveDocument
Set objRange = objDoc.Range

objRange.Find.ClearFormatting
With objRange.Find
.Font.Underline = wdUnderlineSingle
.text = ""
.Replacement.text = ""
.Replacement.Font.UnderlineColor = wdColorBlue
.Execute Format:=True, Replace:=wdReplaceAll
End With
End Sub

More ways you can google the article

"2 Quick Ways to Batch Change the Color of Multiple Underlines in Your Word Document"

Hope it helps