So, how can I show you the codes?! Do you mean these: [Macro3 is defined for coloring the text blue but it does not work.]

Sub Macro1()


'
' Macro1 Macro
'
'
Options.DefaultHighlightColorIndex = wdYellow
Selection.Range.HighlightColorIndex = wdYellow
End Sub
Sub Macro2()
'
' Macro2 Macro
'
'
Options.DefaultHighlightColorIndex = wdBlack
Selection.Range.HighlightColorIndex = wdBlack
End Sub
Sub Macro3()
'
' Macro3 Macro
'
'
End Sub