Set db = ses.Currentdatabase
Set vw = db.GetView("vwSearch")
Set doc = ses.Documentcontext
>>> hier folgt eine Menge Code, der letztlich nur HTML-Code in die Variable strHTML schreibt <<<
strHTML = |<br><table border="1" width="80%" class="erg"><thead><tr><th class="erg" width="20%"><strong>Vordrucknummer</strong></th><th width="60%" class="erg"><strong>Bezeichnung</strong></th><th width="20%" class="erg"><strong>Dokumentklasse</strong></th></tr></thead>| & strHTML
strHTML = strHTML & |</table>|
Call doc.Replaceitemvalue("ispBody", strHTML)
Call doc.Save(False,False)
Print "[/" + db.FilePath + "/vwSearchResults/" & doc.Universalid & "?OpenDocument]"
GoTo ende
In der Maske gibt es u.a. das auf sich selbst berechnete Feld "ispBody" Typ Richtext.
Ich hoffe das hilft.