Zitat:

Servus, kann ja sein, dass ich das jetzt falsch verstanden habe, aber geht es nicht nur einfach darum, Variablen in einer Vorlage mit den Inhalten entsprechender Textboxen zu ersetzen? Dann brauchst du einmal zum Einlesen der Datei: Private Sub cmdLaden_Click() Dim No As Integer, sInput As String No = FreeFile Open "C:\MeineDatei.txt" For Binary As #No sInput = Space(LOF(No)) Get #No,, sInput Close #No txtVorlage.Text = sInput End Sub Und zum Ersetzen: Private Sub cmdErsetzen_Click() Dim No As Integer, sOutput As String sOutput = txtVorlage.Text sOutput = Replace(sOutput, "%name%", txtName.Text) sOutput = Replace(sOutput, "%date%", txtDate.Text) ' ... ' in die Datei speichern No = FreeFile Open "C:\MeineAusgabe.txt" For Output as #No Print #No, sOutput Close #No End Sub Ansonsten bitte korrigieren, Stefan

MfG Lord_Duke
a.k.a. Loki

Design is 4 your Life and not for the others

________________________________________________________________
Windows XP Prof. SP 2 @ 2X 3,45 GHz P4 D ( 830) // DDR2 1024 MB //
GeForce 6600 GT Silent Pipe // 500 GB HDD