DXF Export

[koter]

Hallo Michael,

Dies Makro exportiert alle Seiten in einzelne DXF-Dateien:

Code:

Sub ExDXF()
   Dim p As Page
   Dim Pfad As String
   Dim z As Integer
   Pfad = ActiveDocument.FilePath
   z = 0
   For Each p In ActiveDocument.Pages
       z = z + 1
       p.Activate
       ActiveDocument.Export Pfad & Left(ActiveDocument.FileName, _
       Len(ActiveDocument.FileName) - 4) _
       & "_" & z & ".dxf", cdrDXF, cdrCurrentPage
   Next
End Sub

Der Zielpfad ist der des Dokuments.

Gruß

Koter