AddRichText Method

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   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)