---

Hallo zusammen

Ich möchte eine assembly speichern mit VBA aber ohne das eine abfrage kommt ob die unterbaugrupen auch gespeichert werden sollen.
Es soll einfach alles speichern ohne abfrage.
Geht das mit VBA?

Wenn ich ThisApplication.Documents(1).save schreibe fragt er immer mit einem dialog nach, kann man das verhindern?

MFG

Sascha

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

---

Hallo Sascha,

Es gibt unter Optionen/Anpassen einen Befehl, mit dem man Alles Speichern kann, ohne Rückfrage. Der ist sicher über VBA auch zugänglich!

------------------
mfg - Leo

Ceterum censeo dynamic highlight obsoletus (est)

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

---

Hi Sascha!
Unter Extras/Optionen/Meldungen mußt Du die entsprechende Einstellung vornehmen.

Da man bei MoldFactory die Abfrage der "Aktualisierung beim Öffnen von Assemblies" manuell deaktivieren muß, gehe ich davon aus, daß es beim Zugriff auf diese Meldungen per VB eine kleine Hürde gibt  .

------------------
lg   
Tom

       
...so geht mein Boot manchmal unter...

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

---

Hallo

Vielen dank, werde es am Montag versuchen.
Wenn ichs nicht hinbekomme frage ich nochmals.

Bis dann

sascha

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

---

Leider geht es nicht!!!!

Die Meldung Lautet:

Möchten Sie änderungen an "*.iam" und abhängigen Objekten speichern?

Daruntern wrden alle sub assemblies und part dateien einzeln aufgeführt und man kann sagen ob man sie speichern will oder nicht.

Diese Meldung möchte ich ausschalten.
Leider habe ich sie weder unter Meldungen noch sonst wo deaktivieren können.

Sonst noch ideen?

Gruss sascha

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

---

Weis keiner wie man diese meldung unterdrücken kann?

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

---

Du kannst den Dialog nur verhindern, wenn du dir jedes einzelne Part holst, das Dirty Flag prüfst, und wenn das true ist, musst du dieses Teil abspeichern. Ganz am Ende speicherst du dein Assembly, und es kommt keine Meldung.

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

---

hie habe folgendes gemacht:

Public Sub saveDocuments()
Dim doc As Document
For Each doc In ThisApplication.Documents
  If (doc.DocumentType = kPartDocumentObject) Then
    doc.Save
  End If
Next
For Each doc In ThisApplication.Documents
  If (doc.DocumentType = kAssemblyDocumentObject) Then
    doc.Save
  End If
Next
End Sub

Leider geht das auch nicht den wenn assembly in assembly fragt er trotzdem nach auch wenn alle parts schon gespeicher sind.

Gibt es keine andere möglichkeit?

Gruss sascha

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

---

Hi,

du musst das ganze rekursiv aufrufen, wenn du subassemblies hast. Hab gerade kein Beispiel, falls ich den Columbo heute abend schon kenne, kann ich dir eins schreiben :-)

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

---

hab doch was gefunden:
-----------
Sub saveAll(myDoc As Document)
    If (myDoc.DocumentType = kAssemblyDocumentObject) Then
        Dim myAsm As AssemblyDocument
        Set myAsm = myDoc
       
        Dim myOccs As ComponentOccurrences
        Set myOccs = myAsm.ComponentDefinition.Occurrences
        For i = 1 To myOccs.Count
            Dim childDoc As Document
            Set childDoc = myOccs(i).Definition.Document
            Call saveAll(childDoc)
        Next i
    End If
   
    If (myDoc.Dirty) Then
        myDoc.Save
    End If
End Sub

Sub saveMe()
    Call saveAll(ThisApplication.ActiveDocument)
End Sub
---------------------

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