Application.NormalTemplate (Word)

Returns a Template object that represents the Normal template.

For Each entry In NormalTemplate.AutoTextEntries 
 If entry.Name = "Test" Then entry.Insert Where:=Selection.Range 
Next entry