Automatic full document spell check and correction without user intervention

macropod · #1 09-22-2017, 09:23 PM

Quote:

Originally Posted by tonyony

Do I have to run the Spell&Grammar check and go through one by one?

Apparently. Although a macro could be used, the best it might do is highlight the issues; you'd then have to decide what to do about them.

tonyony · #2 09-22-2017, 09:31 PM

Quote:

Originally Posted by macropod

Apparently. Although a macro could be used, the best it might do is highlight the issues; you'd then have to decide what to do about them.

Thanks very much for your help

I would have 2 last questions if you could be so kind as to reply

1. What would be the difference between the macro you have posted above and this macro below?

Sub AcceptSpellingSuggestions()
Dim er As Range
For Each er In ActiveDocument.SpellingErrors
If er.GetSpellingSuggestions.Count > 0 Then
er.Text = er.GetSpellingSuggestions.Item(1).Name
End If
Next
End Sub

2. would there be a way to integrate any of these two macros so that they would ignore words that begin with a capital letter that are being picked up as spelling mistakes , so that those remain unchanged ?

macropod · #3 09-22-2017, 09:47 PM

Quote:

Originally Posted by tonyony

1. What would be the difference between the macro you have posted above and this macro below?

Two fundamental difference are that my code:
1. highlights (in Pink) any spelling errors for which there are no suggested corrections; and
2. provides for certain words to be added to an exclusions list so they're highlighted (Green) instead of being replaced.
That's obvious from even a cursory read of the code.

Quote:

Originally Posted by tonyony

2. would there be a way to integrate any of these two macros so that they would ignore words that begin with a capital letter that are being picked up as spelling mistakes , so that those remain unchanged ?

There's nothing to integrate; your macro already does only part of what mine does. As for excluding words with a first capital, you might try something based on:

Code:

Sub AutoSpellCorrect()
Dim Rng As Range, oSuggestions As Variant, StrExcl As String
StrExcl = ",word1,word2,word3,"
For Each Rng In ActiveDocument.Range.SpellingErrors
  With Rng
    If LCase(.Characters.First) = .Characters.First Then
      If InStr(StrExcl, "," & .Text & ",") = 0 Then
        If .GetSpellingSuggestions.Count > 0 Then
          Set oSuggestions = .GetSpellingSuggestions
          .Text = oSuggestions(1)
        Else
          .HighlightColorIndex = wdPink
        End If
      Else
        .HighlightColorIndex = wdBrightGreen
      End If
    Else
      .HighlightColorIndex = wdYellow
    End If
  End With
Next
End Sub

Whether you use any of the highlights is, of course, optional; simply comment-out/delete the ones you don't want.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Protected Document (Form) that allows Spell Check	beve56	Word	3	03-21-2014 06:15 PM
Spell check checking only part of document	Adeyo	Word	1	02-24-2013 10:49 PM
Spell Check without User intervention	looney001	Outlook	0	01-10-2013 12:41 AM
Spell Check Not Working For Particular User	newman	Outlook	0	11-18-2012 08:45 PM