Insert Method Example

This example inserts the formatted AutoText entry named "one" after the selection.

Selection.Collapse Direction:=wdCollapseEnd
ActiveDocument.AttachedTemplate.AutoTextEntries("one").Insert _
    Where:=Selection.Range, RichText:=True

This example adds a Size 10 envelope to the active document by using the addresses stored in the tAddr and fAddr variables.

rtn = VbCr
tAddr = "Max Benson" & rtn & "123 Skye St." _
    & rtn & "OurTown, WA 98107"
fAddr = "Paul Borm" & rtn & "456 Erde Lane" _
    & rtn & "OurTown, WA 98107"
ActiveDocument.Envelope.Insert Address:=fAddr, _
    ReturnAddress:=tAddr, Size:="Size 10"