Sub AutoCorrectNow2()
      ' Graham Mayor Bob Sundquist, Hans Vogelar and Charles Kenyon 2022-06-10
      ' https://eileenslounge.com/viewtopic.php?f=26&t=38297&p=296123#p296123
      ' https://www.msofficeforums.com/word-vba/29148-how-replace-wordbasic-autocorrectnow-old-macro.html
      ' Runs autocorrect on selected text as if it were being retyped
      '
      '
      Dim oWrd   As range
      Dim Entry  As Object
      Dim iCount As Long, i As Long
      On Error Resume Next
      Let iCount = Selection.Words.Count
      For i = 1 To iCount
          Set oWrd = Selection.Words(i)
          For Each Entry In Word.Application.AutoCorrect.Entries
              If oWrd.Text = Entry.Name Then
                  oWrd.Text = Entry.Value
                  Exit For
              ElseIf oWrd.Text = Entry.Name & " " Then
                  oWrd.Text = Entry.Value & " "
                  Exit For
              End If
          Next Entry
      Next i
      Set oWrd = Nothing
      Set Entry = Nothing
   End Sub