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"