Keith,

There is a lot more to building blocks than just autotext:
http://gregmaxey.mvps.org/Word2007_B...s_AutoText.htm

You can be very specific with which buildingblock you want to insert by using the template, gallery type, catetory and name:

Dim oTmp as Template
Set oTmp = "Whatever"
oTmp.BuildingBlockTypes(wdTypeAutoText).Categories("General").BuildingBlock s("Test").Insert Selection.Range