Creates a formatted AutoCorrect entry, preserving all text attributes of the specified range. Returns an AutoCorrectEntry object. The RichText property for entries added by using this method returns True. If AddRichText isn't used, inserted AutoCorrect entries conform to the current style.
expression.AddRichText(Name, Range)
expression Required. An expression that returns an AutoCorrectEntries object.
Name Required String. The text to replace automatically with Range.
Range Required Range object. The formatted text that Word will insert automatically whenever Name is typed.
Example
This example stores the selected text as a formatted AutoCorrect entry that will be inserted automatically whenever "NewText" is typed.
If Selection.Type = wdSelectionNormal Then
AutoCorrect.Entries.AddRichText "NewText", Selection.Range
Else
MsgBox "You need to select some text."
End If
This example stores the third word in the active document as a formatted AutoCorrect entry that will be inserted automatically whenever "NewText" is typed.
AutoCorrect.Entries.AddRichText "NewText", ActiveDocument.Words(3)