Apply Method Example

This example adds an AutoCorrect replacement entry, then applies the "sr" AutoCorrect entry to the selected text.

AutoCorrect.Entries.Add Name:= "sr", Value:= "Stella Richards"
AutoCorrect.Entries("sr").Apply Selection.Range

This example applies the "sr" AutoCorrect entry to the first word in the active document.

AutoCorrect.Entries("sr").Apply ActiveDocument.Words(1)

This example copies the formatting of shape one on the active document and applies the copied formatting to shape two on the same document.

With ActiveDocument
    .Shapes(1).PickUp
    .Shapes(2).Apply
End With