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