Toggle spell checker

Question

At one time, I had a command on the quick access toolbar that would toggle the spell checker on/off. My computer had to be re-imaged, so I lost it. When turned on, it would place red lines under the misspelled words. WHen off, the red lines would go away. This prevented me from having to go into options and turn it off and on.

Does anyone know how I can get it back on my toolbar

Answer 1

The following macro will do the job

Sub ToggleSpellingErrors()

Dim oRng As Range

ActiveDocument.ShowSpellingErrors = Not ActiveDocument.ShowSpellingErrors

Set oRng = Selection.Range

oRng.Collapse wdCollapseEnd

oRng.Text = Chr(32)

oRng.Text = ""

End Sub

I'm sure this would work but I was able to do it before without a macro. I just went to options / customize ribbon  and under choose from commands I added it to a custom tab I had created. Problem is I can't remember the name of the command.

I found it, Hide Spelling Errors. Click once, red wavy lines show, click again, they disappear.

I prefer this to automatic spell checking

Answer 2

You are correct. That will work also - I had overlooked the fact that this was available as a built-in command. The macro simply duplicates the built-in function :(

Answer 3

The following macro will do the job

Sub ToggleSpellingErrors()

Dim oRng As Range

ActiveDocument.ShowSpellingErrors = Not ActiveDocument.ShowSpellingErrors

Set oRng = Selection.Range

oRng.Collapse wdCollapseEnd

oRng.Text = Chr(32)

oRng.Text = ""

End Sub

I'm sure this would work but I was able to do it before without a macro. I just went to options / customize ribbon  and under choose from commands I added it to a custom tab I had created. Problem is I can't remember the name of the command.

Answer 4

The following macro will do the job

Sub ToggleSpellingErrors()

Dim oRng As Range

ActiveDocument.ShowSpellingErrors = Not ActiveDocument.ShowSpellingErrors

Set oRng = Selection.Range

oRng.Collapse wdCollapseEnd

oRng.Text = Chr(32)

oRng.Text = ""

End Sub