---

Hallo,

in den iProperties haben wir "Artikelnummer" eingepflegt.
Ich will aber nicht, das mein Dwf exporter die erstellte Datei mit der Bauteilnummer abspeichert (doc.DisplayName), sondern mit der iPropertie Artikelnummer

Auszug aus dem VBA
...
Dim ExportFile As String
    ExportFile = DwfDestination & Prefix & VBA.Strings.Left(oDoc.invPartNumberProperty.Value, VBA.Strings.InStrRev(oDoc.invPartNumberProperty.Value, ".")) & "dwf"
    oDoc.SaveAs ExportFile, True

...

Wenn ich "ExportFile = DwfDestination & Prefix & VBA.Strings.Left(oDoc.Artikelnummer.Value, VBA.Strings.InStrRev (...)", einfüge, erscheint der debugger, da er es nicht erkennt.

Wie kann ich herausfinden wie "Artikelnummer" definiert ist?

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

---

Du musst, wie du es zuerst geschrieben hast, die iProperty-Eigenschaft ansprechen. Logischerweiße hat das Object oDoc die keine Eigenschaft oder Methode mit dem Namen Artikelnummer.

Du musst zunächst die passende iProperty-Eigenschaft finden.
Dies kannst du mittels

Code:

---

dim wert as string: wert=""
dim oPS as propertyset
for each ops in odoc.propertysets
dim oP as proerty
for each oP in ops
  if op.name = "Artikelnummer" then
  wert = op.value
  exit for
  endif
next
if len(wert)>0 then
exit for
next

---

Weiter empfehle ich dir für die funktionen left lieber die funktion left$ zu nehmen. Die ist in den meisten fällen schneller:-)

Wenn du weißt, in welcher iProertySet sich deine Eigenschaft befindet, kannst du die erste for-Schleife noch einsparen.
gruß derBrain87

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

---

Ist das eine Benutzerdefinierte iPropertie oder hast du ein vorhandenes Feld benutzt?

------------------
Grüße aus Wien
Philipp
Email: Base64 Encoded:
cGhpcHNfOTJAeWFob28uZGU=

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