Application.Templates(ThisDocument.FullName). _ BuildingBlockEntries("Quick1").Insert _ Where:=orng, _ RichText:=True