Replace all custom dictionary words

shmueldabomb441 · #1 10-15-2020, 03:05 PM

I have added a number of words to the AutoCorrect list of words, to change transliterated Hebrew words to the actual Hebrew words themselves. I would like to make a simple script to iterate through all of the spelling errors in the document and see if any of the words (sanitized, of course) are in the list of exact auto-correct words, and replace them. The farthest I've gotten is discovering the SpellingErrors object. I am not at all familiar with VB, but am with other languages. I would like to have some button to run this script. All help is greatly appreciated.

macropod · #2 10-15-2020, 04:37 PM

Try:

Code:

Sub AutoTransliterate()
Application.ScreenUpdating = False
Dim Rng As Range, oSuggestions As Variant
Const StrDict As String = "CustomDictionary"
For Each Rng In ActiveDocument.Range.SpellingErrors
  With Rng
    If .GetSpellingSuggestions(StrDict).Count > 0 Then
      Set oSuggestions = .GetSpellingSuggestions(StrDict)
      .Text = oSuggestions(1)
    End If
  End With
Next
Application.ScreenUpdating = True
End Sub

Replace 'CustomDictionary' with the file name of the custom dictionary.

shmueldabomb441 · #3 10-16-2020, 02:03 AM

Quote:

Originally Posted by macropod

Try:

Code:

Sub AutoTransliterate()
Application.ScreenUpdating = False
Dim Rng As Range, oSuggestions As Variant
Const StrDict As String = "CustomDictionary"
For Each Rng In ActiveDocument.Range.SpellingErrors
  With Rng
    If .GetSpellingSuggestions(StrDict).Count > 0 Then
      Set oSuggestions = .GetSpellingSuggestions(StrDict)
      .Text = oSuggestions(1)
    End If
  End With
Next
Application.ScreenUpdating = True
End Sub

Replace 'CustomDictionary' with the file name of the custom dictionary.

Great answer, thank you so much. I have confidently concluded that the auto correct entries are stored in normal.DOTM. How would the code change based on that?

macropod · #4 10-16-2020, 05:41 AM

Quote:

Originally Posted by shmueldabomb441

I have confidently concluded that the auto correct entries are stored in normal.DOTM. How would the code change based on that?

You wouldn't. The code is for making corrections based on entries in a Custom Dictionary - which is what the SpellingErrors object ordinarily applies to - and your thread title does say «Replace all custom dictionary words». Accordingly, to use the code I posted, you'd create a Custom Dictionary with the corrections concerned. Of course, that also presupposes Word would be able to recognize which 'correction' goes with what 'error'.

To work with AutoCorrect entries, you might use code like:

Code:

Sub AutoTransliterate()
Application.ScreenUpdating = False
Dim Rng As Range, ACE As AutoCorrectEntry
For Each Rng In ActiveDocument.Range.SpellingErrors
  For Each ACE In AutoCorrect.Entries
    If Rng.Text = ACE.Name Then Rng.Text = ACE.Value
  Next
Next
Application.ScreenUpdating = True
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
words underlined in red can not be added to the dictionary	Jay Bird	Word	1	09-19-2020 08:48 PM
Best way to add a large list of words into spell checker: additional custom dictionary	Swarup	Word	4	07-10-2019 05:08 PM
spelling issue, can't add new words to dictionary	Hyper-Energy Bob	Word	1	06-18-2016 08:13 PM
Custom dictionary to highlight words listed therein only?	szachraj	Word	2	01-10-2016 05:43 PM
Words added to dictionary - what happens when viewed on a different PC	cprelude	Word	1	02-05-2012 10:09 AM