Word 2003 resaltar lineas para Momi

Lo necesita para poder leer tanto pantalla como impreso

Sub resaltar_lineas()
'
' resaltar_lineas Macro
' Macro grabada el 29/06/2014 por Paloma
'
' ref: https://wiki.brown.edu/confluence/pages/viewpage.action?pageId=4429
    Options.DefaultHighlightColorIndex = wdYellow
    Do
        Selection.EndKey Unit:=wdLine, Extend:=wdExtend
        Selection.Range.HighlightColorIndex = wdYellow
        Selection.MoveRight Unit:=wdCharacter, Count:=1
        If Selection.MoveDown(Unit:=wdLine, Count:=1) <> 1 Then
            Exit Do
        End If
    Loop

End Sub