Macro for autocorrect (Word 2010)... ?

Guessed · #2 01-10-2022, 07:01 PM

Most people don't have the same degree of trust in Microsoft's ability to offer perfect suggestions as you do. This macro would do what you asked for...

Code:

Sub MrFixit()
  Dim iErr As Integer, i As Integer, aRng As Range
  iErr = ActiveDocument.Range.SpellingErrors.Count
  For i = iErr To 1 Step -1
    Set aRng = ActiveDocument.Range.SpellingErrors(i)
    If aRng.GetSpellingSuggestions.Count = 1 Then
      aRng.Text = aRng.GetSpellingSuggestions.Item(1).Name
    End If
  Next i
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Word 97 Macro autocorrect help	Genericname1111	Word VBA	0	09-15-2019 11:56 PM
Formatted autocorrect not saving, Word 2010	Silkaline	Word	16	10-04-2016 12:19 PM
How to import a list of autocorrect entries into Word 2010?	gn4619	Word VBA	2	05-08-2015 01:04 PM
help with autocorrect utility in word 2010	dj3642	Word	1	10-21-2012 09:57 AM
Anybody know a macro that applies autocorrect to pasted content?	dennisk	Word VBA	1	06-09-2011 12:26 AM