keiner eine Idee? ???
If doc.hasItem("filesTifArch") Then
Set itFilesTif = doc.getFirstItem("filesTifArch")
If itFilesTif.Type = RichText Then
Forall x In itFilesTif.EmbeddedObjects
If x.type = EMBED_ATTACHMENT Then
x.remove
End If
End Forall
End If
End If