View Single Post
 
Old 10-15-2020, 04:37 PM
macropod's Avatar
macropod macropod is offline Windows 10 Office 2010
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,956
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

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.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote