Benutzerdefinierte Eigenschaften löschen

[mula]

Ich bitte um Hilfe.
im Jahr 2013
Ich habe eine Reihe von ipt Dateien (centinaia) wo es benutzerdefinierte Eigenschaften, die ich löschen möchte
Ich werde dann benutzerdefinierte Prototypen ok kopieren, indem sie aus einer feinen Datei kopieren..
Wie kann ich sie schnell loswerden?
in Designassistent gibt es die Option "Projektkopie", aber es gibt keine "elimina"
Danke.

 

[mula]

Liebe Herren. .
Kann mir niemand helfen?
Danke.

 

[pompeo79]

design assistant>properties>(single/multiple Auswahl von Dateien mit ctrl /shift) Rechtsklick >iproperties> Update-Werte

oder zusammen auch aus dem Sumpf

 

[Catafratto]

Wenn alle Ihre ipts immer die gleichen iproperties zu löschen haben, machen Sie eine Kopie in c:\test\ und starten Sie dieses Makro, indem Sie es in vba (alt-f11, um auf den visuellen Editor zuzugreifen). Öffnet alle Dateien im Ordner, löscht die iprops, die Sie nicht brauchen und fügen Sie die, die Sie benötigen. Sie müssen Zeilen hinzufügen/schneiden, aber es ist intuitiv, an der Grenze, die Sie fragen.
Tschüss!


Private sub delete_iprop()
dim myfile, mypath, myname
dim oapp als Erfinder. Anwendungsbereich
set oapp = thisapplication

dim odoc als Dokument

mypath = "c:\test\" den Pfad gesetzt.
myname = dir(mypath) ' den ersten Eintrag abrufen.

dim opropsets als Immobiliensets
dim ocustprops als Immobilienset
dim omyprop als Eigentum

do while myname <> " starten Sie die Schleife.
' ignorieren Sie das aktuelle Verzeichnis und das enthaltene Verzeichnis.
wenn mein Name < > " und mein Name < > "
set odoc = oapp.documents.open(mypath & myname, true)
opropsets = odoc.propertysets
ocustprops = opropsets.item("{d5cd505-2e9c-101b-9397-08002b2cf9ae}")

set omyprop = ocustprops.item("iprop_1") anstelle von iprop_1 ersetzen benutzerdefinierte Iproperty eliminiert werden
omyprop.delete

omyprop = ocustprop.item("iprop_2") wie oben
omyprop.delete

call ocustprops.add("custom value_1", "mynewproperty_1"), um neue Iproperty hinzuzufügen

odoc. speichern
odoc.close
Ende
myname = Dir' nächster Eintrag.
Schleifen


Ende

 

[Catafratto]

Ich wusste nichts von Pompeo79. Wir sagen Descantabauchi.

 

[mula]

Vielen Dank..
Ich versuche, es dir zu sagen. .

 

[mula]

Ich habe versucht, wie Pompeo79 sagt.
Es funktioniert.
Dann werde ich das tun...
Ich kreiere zusammen mit den Teilen, in denen ich die benutzerdefinierten Eigenschaften absagen muss, dann mit Designassistent die Tore. .
Danke.

 

[and]

Können Sie einige .iams absagen?

 

[dsw]

Si