Application.AutoCorrectEmail (Word)

Retorna um objeto AutoCorrect que representa correções automáticas feitas para mensagens de email.

Sub AutoCorrectEMailAddress() 
 With Application.AutoCorrectEmail 
 .Entries.Add Name:="allways", Value:="always" 
 .Entries.Add Name:="hte", Value:="the" 
 .Entries.Add Name:="hwen", Value:="when" 
 End With 
End Sub