Application.NormalTemplate (Word)

Renvoie un objet template qui représente le modèle normal.

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