Tüm iptlerinizin her zaman aynı iproperties to delete, make a copy in c:\test\ and start this makro by enter it in etca (alt-f11 görsel editörü temel erişmek için). Dosyadaki tüm dosyaları açın, ihtiyacınız olmayan ve ihtiyacınız olan olanları ekleyin. You have to add /cut rows but it is sezgisel, at the limit you ask.
Bye!
Özel alt sil_iprop()
dim myfile, mypath, myname
dim oapp mucit olarak. Uygulama uygulama uygulama uygulama uygulama uygulama uygulama uygulama uygulama uygulama uygulama uygulama uygulama uygulama uygulama uygulama uygulama
Set oapp = thisapplication
dim odoc belge olarak
mypath = "c:\test\" yolu belirledi.
Benim adım = dir(mypath) ‘İlk girişini alır.
dim opropsets as propertysets
dim ocustprops as propertyset
dim omyprop as property
Benim adım <> " döngüye başlayın.
“Mevcut diziyi görmezden gelin ve ekleme rehberi.
Eğer benim adım < > " ve benim adım < >"
Set odoc = oapp.documents.open(mypath & myname, true)
Set opropsets = odoc.propertysets
Set ocustprops = opropsets.item ("{d5cd505-2e9c-101b-9397-08002b2cf9ae}")
Set omyprop = ocustprops.item ("iprop_1") yerine iprop_1 özel iproperty ortadan kaldırıldı
Omyprop.delete
Set omyprop = ocustprops.item ("iprop_2") yukarıdaki gibi
Omyprop.delete
Ocustprops.add("custom değeri_1", "mynewproperty_1" eklemek için yeni iproperty_1 eklemek için"
Odoc. kurtarma kurtarma
Odoc.close
Sonunda, eğer sona erirse
Benim adım = korkunç bir sonraki giriş.
döngüsü
end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end
