Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de
  Inventor VBA
  benutzerdefinierte iProbs löschen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
  
PNY wird von NVIDIA zum Händler des Jahres gewählt – zum dritten Mal in Folge, eine Pressemitteilung
Autor Thema:  benutzerdefinierte iProbs löschen (2110 mal gelesen)
tuxometer
Mitglied



Sehen Sie sich das Profil von tuxometer an!   Senden Sie eine Private Message an tuxometer  Schreiben Sie einen Gästebucheintrag für tuxometer

Beiträge: 271
Registriert: 05.10.2006

Inventor 2011 Pro;
Win 7 Pro;

erstellt am: 17. Jun. 2008 11:55    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

daywa1k3r
Ehrenmitglied V.I.P. h.c.
Softwareentwickler



Sehen Sie sich das Profil von daywa1k3r an!   Senden Sie eine Private Message an daywa1k3r  Schreiben Sie einen Gästebucheintrag für daywa1k3r

Beiträge: 3497
Registriert: 01.08.2002

Alienware m17x, Win7, Inventor2012

erstellt am: 17. Jun. 2008 14:08    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für tuxometer 10 Unities + Antwort hilfreich

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

tuxometer
Mitglied



Sehen Sie sich das Profil von tuxometer an!   Senden Sie eine Private Message an tuxometer  Schreiben Sie einen Gästebucheintrag für tuxometer

Beiträge: 271
Registriert: 05.10.2006

Inventor 2011 Pro;
Win 7 Pro;

erstellt am: 17. Jun. 2008 14:43    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Super!

danke 

-----
Erich

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2025 CAD.de | Impressum | Datenschutz