Macro for autocorrect (Word 2010)... ?

Sickorax · #1 01-06-2022, 01:09 PM

I'm not very familiar with VBA tools in general, but I'm wondering if anyone knows if there's a script in existence for performing this very common-sense task in Word 2010:

Namely, in cases where something is mis-spelled, and there is ONLY ONE substitution suggested by Word, that substitution should be applied automatically, without having to be added (or perhaps by being added automatically) to the autocorrect list.

Maybe this already exists somewhere, though I couldn't find any reference to it. But, if not, would it be straightforward to create?

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

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
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