OK, dann ist Hide/When der falsche Ansatz.
Man könnte eine Scriptlein machen, dass beim Querysave Event alle Attachment in ein neues RT Feld verschiebt. Dieses Feld ist dann nur im Edit Modus sichtbar. Nachteil. Die Attachment sind im Read Modus nicht mehr verfügbar.
Code Ansatz den ich mal für etwas ähnliches brauchte, den Du aber sicherlich modifizieren müsstest.
If ( rtitem.Type = RICHTEXT And doc.HasEmbedded ) Then
Forall o In rtitem.EmbeddedObjects
Select Case o.Type
Case EMBED_ATTACHMENT
filepath = tempDirectory & "\" & o.name
Call o.ExtractFile( filepath )
Set newrtitem = New NotesRichTextItem( newdoc, "PDF" )
Set object = newrtitem.EmbedObject ( EMBED_ATTACHMENT, "", filepath)
Kill filepath
End Select
End Forall
End If
Kann Dir auf Wusnch auch den ganzen Code senden.