Dear Suzanne and All,
Thank you for your answer and attention but I've found solution in Google
Groups. These short macros maybe will useful to someone in the future:
Sub MarkSpErrors()
Set MyError = ActiveDocument.SpellingErrors
For Each oError In MyError
With oError.Font
.Color = wdColorRed
.Underline = True
.Underline = wdUnderlineWavy
End With
Next oError
End Sub
Unfortunately it dosn't work with green marks only reds.
Another macro (I modified this) work with both but mark full sentence witch
contain a green wavy underline :
Sub TagSpellingSPerrors()
Dim oSPerror
Dim SPerrors
Dim oGRerror
Dim GRerrors
Set SPerrors = ActiveDocument.SpellingErrors
Set GRerrors = ActiveDocument.GrammaticalErrors
For Each oGRerror In GRerrors
With oGRerror.Font
..Color = wdColorGreen
..Underline = True
..Underline = wdUnderlineWavy
End With
Next oGRerror
For Each oSPerror In SPerrors
With oSPerror.Font
..Color = wdColorRed
..Underline = True
..Underline = wdUnderlineWavy
End With
Next oSPerror
End Sub
Both macro run very slowly or my computer is too poor.
Tanks again your attention.
Best regards,
Joe