RTF Variablen in den userprops

Mein Fehler, in WPobj_Image diese Zeile (275) so abändern:

if FSavingBinary then Result := data.RtfText.SaveToStream(Dest, 'WPTOOLS-NoPageInfo,-NoVariables,')

Das ändert leider nichts, die Dinger befinden sich immer noch im dem Base64-Part von <txtobj><!-- XXXXX --></txtobj>

Das ist natürlich nicht im Sinne des Erfinders.

Als Lösung in WPIOWPTools eine Zeile enfügen:

// Save RTF Variables ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
if not OptNoVariables and not(soNoRTFVariables in FStoreOptions) and
(RTFDataCollection.RTFVariables.Count > 0)
and (FRTFData.Kind = wpIsBody) // 4.8.2013
then
begin

Hallo,

habe gerade festgestellt das in jeder TextBox die im WPT-Format gespeichert wird, sich die kompletten RTF-Variablen erneut befinden :-\

Das bläht das Dokument unnötig auf und diese werden doch im Dokument ganz oben gespeichert? Ich in meinem Dokument über 60 Variablen die ich in der TextBox unter userprops wiederfinden...

Wie kann man das unterdrücken?

Mfg, Kai Brendel