---

Antwort zu dem von Jasiu erstellten Beitrag

Hallo Jasiu,
Das folgendes Beispielsmakro schließt alle Dokumente zu. Ich hoffe es hilft dir.
mfG
BARBARA

Sub CATMain()

n = CATIA.Documents.Count

If n=0 Then
MsgBox "Es befinden sich keine Dokumente in der Sitzung"
Exit Sub
End If

message = "Es sind " & n & " Dokumente geöffnet" & vbCrLf &_
"Sollen jetzt alle geschlossen werden?"

answer = MsgBox( message, vbYESNO)

If answer = vbYes Then
I=0
While n>0
i=i+1
CATIA.Documents.Item(i).Close
n = CATIA.Documents.Count
Wend
End If

End Sub

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

---

Hi barbara_,

Es ist nicht so einfach 
Wenn in CATIA z.B. ein Product und ein Drawings mit Linken auf dieses Product geladen sind, wird Dein Makro nicht richtig functionieren (Du kriegst eine Schleife). Die "While...Wend" Geschichte muss man ändern!

I=1
While n>0
CATIA.Documents.Item(i).Close
if n = CATIA.Documents.Count then
i=i+1
else
n = CATIA.Documents.Count
endif
Wend

mfG

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