Formular Eigenschaft Beschreibung mit VBA schreiben

Question

Jedes Objekt (Formular, Report, Tabelle, …) hat in der Datenbankübersicht ein Feld Beschreibung, das man über das Eigenschaftenfenster manuell schreiben kann. Man kann es auch via VBA auslesen z.B. mit

For Each doc In db.Containers(obj_type_name).Documents
    ' get description if exists and sanitize it
    For i = 0 To doc.Properties.count - 1
        If doc.Properties(i).Type = 10 Then
            description = doc.Properties("Description")
            description = Replace(description, vbNewLine, "_")
            Exit For
        Else
            description = ""
        End If
    Next
[...]
Next

Wie kann man dieses Feld mit VBA schreiben?

Ich habe Google schon rauf und runter gefragt. Aber weder http://word.mvps.org/faqs/macrosvba/MixedDocProps.htm noch http://msdn.microsoft.com/en-us/library/office/aa210670(v=office.11).aspx und die Add Methode der Properties Collection führen zum Ziel.

Alternativ könnte ich das Problem völlig umgehen, wenn LoadFromText die Description Eigenschaft selbst setzen kann, auch wenn SaveAsText sie nicht automatisch schreibt.