#1
|
|||
|
|||
Replace all custom dictionary words
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. |
#2
|
||||
|
||||
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
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#3
|
|||
|
|||
Quote:
|
#4
|
||||
|
||||
Quote:
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
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
Tags |
spelling |
|
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 |