Application.AutoCorrect (Word)

Returns an AutoCorrect object that contains the current AutoCorrect options, entries, and exceptions.

AutoCorrect.Entries.Add Name:= "sr", Value:= "Stella Richards"