---

Hallo,
ich bekomme immer wieder mal Teile (ipt) mit vielen benutzerdefinierten iProperty´s.
Der Versuch all diese mit einem Macro zu löschen klappt leider nicht.

Code:

---

Sub Property_loeschen()

  Dim oDoc As Document
  Set oDoc = ThisApplication.ActiveDocument

  Dim oPropSets As PropertySets
  Set oPropSets = oDoc.PropertySets

  Dim oProp As Property
  Dim oPropSet As PropertySet
 
  For Each oProp In oPropSet
    oProp.Delete
  Next
 
End Sub

---

wo liegt der Fehler ?

------
Erich

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Code:

---

Sub Property_loeschen()

  Dim oDoc As Document
  Set oDoc = ThisApplication.ActiveDocument

  Dim oPropSets As PropertySets
  Set oPropSets = oDoc.PropertySets

  Dim oProp As Property
  Dim oPropSet As PropertySet

  Set oPropSet = oPropSets(4)
 
  For Each oProp In oPropSet
    oProp.Delete
  Next
 
End Sub

---

------------------
Grüße Igor

FX64 Software Solutions

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Super!

danke 

-----
Erich

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP