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.