Hallo
wie kann ich den Inhalt eines RichText Feldes prüfen ob dort ein Anhang drinnen ist oder leer.
wollte es mit :
Set rtitem = doc.GetFirstItem( "Attach" )
If ( rtitem.EmbeddedObjects = "" ) Then
Goto Ende
End If
machen aber das geht nicht
Danke
hast Du Dir mal in der Hilfe das Beispiel angesehen?
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
Call o.ExtractFile( "c:\samples\" & o.Source )
Call o.Remove
Call doc.Save( False, True )
End If
End Forall
End IfGruß
Dirk
ich habe das Script so übernommen, wenn im Feld kein Anhang ist
bekomme ich an der Stelle
Forall o In rtitem.EmbeddedObjects
die Meldung "Typ Mismatch"
genau da wollte ich ja den Sprung haben, das er erkennt das das feld leer ist
baue eine Fehlerbehandlung ein.
On error resume next
werte die Variable err (gleich 0 ... kein Fehler) aus.
Mit On error goto 0 schaltest Du diese Fehlerbehandlung wieder aus.
Gruß
Dirk