Application.NormalTemplate (Word)

Retorna um objeto Template que representa o modelo normal.

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