'Funktionsaufruf
 
Call Einfuegen("<<Vorname>>",Peter,word)
 
'Funktion
 
Function Einfuegen(Suchen,Feld,word)
	With word.Selection
		.Find.Text = Suchen
		.Find.Wrap = 1
		.Find.execute
		If Feld = "" then
			.delete
		else
			.typetext Feld
		end if
	end with
end function