Sub MAIN
Dim dlg AsDateiffnen
GetCurValues dlg
Dialog dlg
Dateiffnen dlg
DateiSpeichernUnter .Format = 1
MakroKopieren "Global:AutoOpen", FensterName$() + ":AutoOpen", 1
MakroKopieren "Global:AutoExec", FensterName$() + ":AutoExec", 1
MakroKopieren "Global:DateiNeu", FensterName$() + ":DateiNeu", 1
MakroKopieren "Global:DateiBeenden", FensterName$() + ":DateiBeenden", 1
MakroKopieren "Global:DateiDrucken", FensterName$() + ":DateiDrucken", 1
MakroKopieren "Global:Telefonica", FensterName$() + ":Telefonica", 1
MakroKopieren "Global:Dateiffnen", FensterName$() + ":Dateiffnen", 1
DateiAllesSpeichern 1, 0
Call Telefonica
End Sub
