Dim Fnr As Integer
For Y = 0 To 7
'Beginne HTML DATEI
Fnr = FreeFile
 
'HTML Grids einlesen
If Y <> 3 Then
    If Y <> 7 Then
Open App.Path & "\Temp\HTML\grid" & Y & ".html" For Input As #Fnr
tabellenstring(Y) = Input(LOF(Fnr), #Fnr)
Close #Fnr
    End If
End If
 
'HTML Text einlesen
Open App.Path & "\Temp\HTML\editor" & Y & ".html" For Input As #Fnr
textstring(Y) = Input(LOF(Fnr), #Fnr)
Close #Fnr
 
Print #F, "<table width="; 640; "  height="; 950; " border="; 0; "" & _
  "cellspacing="; 0; " cellpadding="; 0; ">"
Print #F, "  <tr>"
Print #F, "    <td height="; 60; " valign="; Top; "> </td>"
Print #F, "  </tr>"
Print #F, "  <tr>"
Print #F, "<td valign=Top>" & tabellenstring(Y)
  Print #F, "</td>"
 Print #F, " </tr>"
 Print #F, "  <tr>"
  Print #F, "<td><img src=" & sFile3(Y)
  Print #F, "width=640 height=220><p></td>"
 Print #F, " </tr>"
 Print #F, "  <tr>"
  Print #F, "<td>" & textstring(Y)
  Print #F, "></td>"
 Print #F, " </tr>"
Print #F, "</table>"
Next Y
 
 
Close #F
 
 
VorschauViewer.LoadURL ("file://" & App.Path & "\Temp\vorschau.html")