---

Hallo zusammen,

Ich habe folgendes Problem:
Wir verwenden ein Makro um Dateien mit Eigenschaften zu speichern.
Nun hab ich das Makro meinem Amerikanischen Kollegen gemailt, er hat
nun das Problem dass bei einer gewissen Abfrage das Makro nicht richtig
ausgeführt wird (Er hat auch SW 2011 , aber im Gegensatz zu uns (WIN XP)
verwendet er Windows 7

Hier ein Auszug aus dem Makro:
Private Sub CmdGet_Click()

  Dim swApp As Object
  Dim Part As Object
  Set swApp = CreateObject("SldWorks.Application")
  Set Part = swApp.ActiveDoc
  DocName = Part.GetTitle
  NameLen = Len(DocName)
  DocExtension = ""
  bgCol = RGB(255, 255, 255)
  InputForm.ComboProjekt.BackColor = bgCol
  InputForm.TxtNum.BackColor = bgCol
  InputForm.ComboIndex.BackColor = bgCol
  InputForm.TxtBeschr.BackColor = bgCol
  InputForm.ComboAuthor.BackColor = bgCol
  If Part.GetType = 1 Then
      DocExtension = InStr(1, UCase(DocName), ".SLDPRT", 0)
  ElseIf Part.GetType = 2 Then
      DocExtension = InStr(1, UCase(DocName), ".SLDASM", 0)
  End If
  If DocExtension = 0 Then
      Message = "Dokument wurde noch nicht gespeichert, kann" & vbCrLf & _
                "Dokument Eigenschaften nicht übernehmen!"
      swApp.SendMsgToUser (Message)

Das Problem liegt meiner meinung daran dass die folgenden Befehle unter WIndows 7
nicht richtig ausgelesen werden:
If Part.GetType = 1 Then 
      DocExtension = InStr(1, UCase(DocName), ".SLDPRT", 0)
  ElseIf Part.GetType = 2 Then
      DocExtension = InStr(1, UCase(DocName), ".SLDASM", 0)
  End If

Kann es sein dass unter Windows 7 der Befehl Part.GetType andere Werte als 1 oder 2 für Parts oder Assemblies
ausliest?

Versteht wahrscheinlich niemand, aber ich versuchs trotzdem

Danke für einen HInweis

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

---

Hallo NPa,

frag deinen Kollegen mal, an welcher Stelle das Makro hängenbleibt und wie
die Fehlermeldung lautet. Ich vermute mal, dass da einige Verweise "gerade"
gebogen werden müssen (ist aber nur eine Vermutung).

------------------
==========
Gruß
Andreas
==========

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

---

Danke für den Tip, ich werde
mal ne Teamviewer session durchführen
Gruss

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

---

So, Problem gelöst, es
lag an der Windows Order bzw Dateieneinstellung.
Wenn die Dateien ohne extension angezeigt werden
kann das makro nichts damit anfangen....strange
aber egal, hauptsache es funktioniert jetzt:-)

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