AddRichText Method

Microsoft Word Visual Basic

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)