---

Hallo zusammen,

mit einer Schleife über alle Blätter eines Dokumentes auf jedes Blatt einen Block einfügen.

Habt Ihr da eine Idee?

Ich hab da leider noch nichts gefunden.

Danke :-)

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

---

Hallo Pete95,

wo hakt es denn? Bzgl. der Schleife mal einen kurzes Schnipsel aus
meinem PDF/DXF-Makro (Teile kommen von Stefan Berlitz  )

Code:

---

    ' die Anzahl der Blätter holen, und dann in der Schleife eines nach
    ' dem anderen Abspeichern. Dazu ein Handle auf das aktuelle Blatt holen
    lAnzahlBl = swDrawingDoc.GetSheetCount
    Set swSheet = swDrawingDoc.GetCurrentSheet
   
   
    ' wenn mehr als ein Blatt da ist könnte es sein, dass wir nicht auf
    ' Blatt 1 sind. In einem Makro müssen wir jetzt einen Trick machen, um
    ' auf das erste Blatt zurückzukommen.
    ' Dazu immer wieder ein Blatt zurückspringen und dabei den Blattnamen
    ' vergleichen; wenn der gleich bleibt haben wir das erste Blatt erreicht.
    strSheetName = swSheet.GetName
    For i = 1 To lAnzahlBl - 1
        swDrawingDoc.SheetPrevious
        Set swSheet = swDrawingDoc.GetCurrentSheet
        If (strSheetName = swSheet.GetName) Then
            Exit For
        End If
    Next i
       
    ' jetzt sind wir garantiert auf dem ersten Blatt und können jetzt eins
    ' nach dem anderen Abspeichern
    For i = 1 To lAnzahlBl

      <<<HIER MUSS DEIN CODE FÜR DEN BLOCK REIN>>>

    Next i

---

So hast du schon mal die Schleife 

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

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