---

zur Zeit habe ich ein Aufgabe: 100 und mehr Zeichnungen zu kontrollieren (INV7) und die Eigenschaftskartei dementsprechend auszufüllen. Folgende Klicks muss ich machen:
- - auf Modell im TREE (bzw vorerst laden)
- - Eigenschaften
- - Status
- - „Kontrolliert am“ mein Name
- - Häkchen setzen bei „Kontrolldatum“
- - Übernahme
- - Ok
- - Abspeichern
- - Schließen
- - Laden öffnen Explorer
Und das bei jeder Zeichnung. Diese Klicks würde ich gerne sparen. Aber als Makro aufzeichnen wie bei Word scheint hier nicht zu funktionieren! Oder doch?

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

---

Und praktisch die Zeichnungen gar nicht kontrollieren? 

Was bist denn du für einer? 

------------------
Grüße daywa1k3r

FX64 Software Solutions
Mold&More Software Solutions

[Diese Nachricht wurde von daywa1k3r am 29. Jul. 2005 editiert.]

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

---

stimmt, ich bin einer...
Natürlich kontrolliere ich erst die Zeichnungen, korrigiere sie, mache Änderungen, usw. Aber dann kommt immer wieder der selbe Ablauf, und dazu sind Makros eigentlich wie geschaffen! Aber das Aufzeichnen funktioniert hier nicht!!!

Michael

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

---

Das ist eine kleine Funktion, die in ein offenes Dokument die zwei Properties einfügt. Mach eine neue Werkzeugleiste und binde die Funktion an ein Button (wie es geht findest du hier im Forum). Jedes mal wenn du dann die Zeichnung kontrolliert hast, klicke ein mal drauf. Die Batch Sache gefällt mir irgendwie nicht, wobei sowas könnte vielleicht mit dem Scheduler gebatcht werden. Keine Ahnung. Musst du schauen.

Code:

---

Public Sub Kontrolliert()
    ThisApplication.ActiveDocument.PropertySets(3).Item("Checked By").Value = "Dein Name"
    ThisApplication.ActiveDocument.PropertySets(3).Item("Date Checked").Value = Now
End Sub

---

BTW Speichern nicht vergessen

------------------
Grüße daywa1k3r

FX64 Software Solutions
Mold&More Software Solutions

[Diese Nachricht wurde von daywa1k3r am 29. Jul. 2005 editiert.]

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

---

Klappt toll, ich glaube ich habe ein neues Hobby gefunden
(nachdem ich jahrelang ME10 Macros geschrieben habe! Das Wochenende ist gerettet)!
Nur eine kleine Frage noch: wie kann ich jetzt noch den Bildschirm automatisch aktualisieren, damit ich auch sehen kann, das der Kopf auch richtig ausgefüllt ist?
Übrigens schaue ich mir die Zeichung einzeln an und dann wird sofort die Eigenschaften geändert und abgespeichert, also KEIN batch!

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

---

Zitat:

---

Original erstellt von ylps:

Nur eine kleine Frage noch: wie kann ich jetzt noch den Bildschirm automatisch aktualisieren, damit ich auch sehen kann, das der Kopf auch richtig ausgefüllt ist?

---

So:

Code:

---

Public Sub Kontrolliert()
    ThisApplication.ActiveDocument.PropertySets(3).Item("Checked By").Value = "Dein Name"
    ThisApplication.ActiveDocument.PropertySets(3).Item("Date Checked").Value = Now
    ThisApplication.ActiveDocument.Update
End Sub

---

------------------
Grüße daywa1k3r

FX64 Software Solutions
Mold&More Software Solutions

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

---

Danke 
Das reicht fürs erste. Mal sehen wie ich am Wochende weiterkommen werde.

Vielen dank nochmals,

Michael

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