Program AutoNew;
// příklad jednoduchého makra AutoNew

var 
  S1, S2 : string[100];

begin
  S1:= GetDocWndTittle;
  S2:= "Tento text v dokumentu " + 
        S1 + 
       " ma na svědomí makro AutoNew";
  InsertText(S2);
end.