Proofing

[Jeanette]

Hi all.
I'm usually an excel person but have to proof a report in word. I use Windows 8.1 and Word 2007. I have a weird problem and I can barely see the red and blue underlines when words are spelt incorrectly. Which is a huge issue as I have to go over the document again and again.

Is there a setting where I can make sure the underline are bright and easy to see??

I've tried just about everything. Your help is appreciated

Thanks heaps
Jeanette

[Rudi]

Hi Jeanette

I don't think there is a way to control the formatting of the spelling and grammar error lines directly from the Word interface or options, barring the fact that they can be switched on/off. I can suggest two things things though:

1. Run this macro (below) that will add bold to the wavy underlines for spelling and grammar. You can reverse (remove) the formatting with the second macro.
~OR~ (if you don't like working with macros...
2. Change the zoom factor of your document as this will help to see the lines better.

MARCO:

Code: Select all

Sub HighlightErrors()
Dim rng As Range
Dim docSourse As Document
    Set docSource = ActiveDocument
    'Highlight all misspelled words.
    For Each rng In docSource.SpellingErrors
        rng.Font.Underline = wdUnderlineWavyHeavy
        rng.Font.UnderlineColor = wdColorRed
    Next
    'Highlight all grammar errors.
    For Each rng In docSource.GrammaticalErrors
        rng.Font.Underline = wdUnderlineSingle
        rng.Font.UnderlineColor = wdColorBlue
    Next
End Sub

Sub RemoveErrorEmphasis()
Dim rng As Range
Dim docSourse As Document
    Set docSource = ActiveDocument
    'Remove misspelled words formatting.
    For Each rng In docSource.SpellingErrors
        rng.Font.Underline = wdUnderlineNone
    Next
    'Remove grammar error formatting.
    For Each rng In docSource.GrammaticalErrors
        rng.Font.Underline = wdUnderlineNone
        rng.Font.UnderlineColor = wdColorAutomatic
    Next
End Sub

[Jeanette]

Hi Rudi
Thanks for the macros..
Sorry for the late reply but time differences and all that..

The first macro works wonderful, however, when I do a grammar check and change the error, run the second macro the bold underline stays.. But I will definitely use them.
Having the document zoomed into 150% is not too nice to work with

Thanks again

[HansV]

Rudi's second macro RemoveErrorEmphasis will only work if you haven't corrected any of the spelling/grammar errors yet. Once you have done that, the macro won't find the words any more. Assuming that you don't have other text with heavy wavy red underlining or single blue underlining, you could use the following version instead:

Code: Select all

Sub RemoveErrorEmphasis()
    'Remove misspelled words formatting.
    With ActiveDocument.Content.Find
        .Font.Underline = wdUnderlineWavyHeavy
        .Font.UnderlineColor = wdColorRed
        .Replacement.Font.Underline = wdUnderlineNone
        .Replacement.Font.UnderlineColor = wdColorAutomatic
        .Execute Replace:=wdReplaceAll
    End With
    'Remove grammar error formatting.
    With ActiveDocument.Content.Find
        .Font.Underline = wdUnderlineSingle
        .Font.UnderlineColor = wdColorBlue
        .Replacement.Font.Underline = wdUnderlineNone
        .Replacement.Font.UnderlineColor = wdColorAutomatic
        .Execute Replace:=wdReplaceAll
    End With
End Sub

[Jeanette]

Thanks heaps that works fantastic !!!!

Cheers
Jeanette