Autocorreção via VBA

[Eliézer Guedes de Oliveira Junior]

Pessoal, minha ideia e criar uma macro que permita a autorreção no documento word sem interação do usuário. Para isso, seja usada a palvra sugerida no "autocorreção" do Word.

Montei o seguinte código:

Sub tempo1()
'
' tempo Macro
'
Dim oWord As Range
Dim StoryRange As Range
For Each StoryRange In ActiveDocument.StoryRanges
    Application.CheckSpelling Word:=StoryRange
    For Each oWord In StoryRange.Words
        If Not Application.CheckSpelling(Word:=oWord.Text) Then
            oWord.Font.Color = wdColorRed
        End If
    Next oWord
Next StoryRange
End Sub

A estrutura funcionou. Eu consegui deixar cada palavra identificada como incorreta em vermelho. Mas não consegui que instrução fosse aplicar a autocorreção na palavra.

Alguém teria uma ideia?

Desde já, muito obrigado.