“Tüm belgeleri orijinal belgenin hangi şekilde ifade ettiği için
İzle! !!
“Projede aynalı belgeler, türevler vs. de dahil edilmiştir.
alt ana()
dim opartdoc mucit olarak.partdocument
dim odoc mucit olarak. Belge = buapplication.activeeditdocument
dim oassy mucit olarak.assemblydocument
dim scr as string = strings.chr (13)
Eğer odoc.documenttype= documenttypeenum.kassemblydocumentobject o zaman sonra
‘ ‘ ‘ Bir setten makroa başlarsanız, ilgili tüm belgeler
"oassy ‘ ‘ ‘
Her odoc için odoc.allreferenceddocuments
"Ne istersen, e.g.:
Mesajbox.show(odoc.fullfilename + strings.chr (13) + odoc.documenttype.tostring)
Bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki
Eğer odoc.documenttype = documenttypeenum.kpartdocumentobject
“Bir tarafta makroa başlarsan
"opart = odoc
Tekrar yapın.
Sonunda, eğer sona erirse
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