export multiple pages to DXF

[gorgo2]

Hi, got this code with help from John GDG. I'd like to export each page as a DXF please. I reckon it will need Next P and such, just can't recall how the rest goes.

Sub exportDXF()

    Dim s As Shape, sr As ShapeRange
    Dim w As Double, h As Double
    Dim count As Double, path As String
    
    path = "C:\temp\"
    count = 1
    Set sr = ActivePage.Shapes.All
    
    For Each s In sr
        s.GetSize w, h
        s.CreateSelection
        ActiveDocument.Export (path & "w" & Round(w, 2) & "_x_" & "h" & Round(h, 2) & "_" & count & ".dxf"), cdrDXF, cdrAllPages
        count = count + 1
    Next s
End Sub

[shelbym]

Here is a simple example, see if you can get it working: Export each page

-Shelby

[gorgo2]

Originally Posted by shelbym

Here is a simple example, see if you can get it working: Export each page

-Shelby

I'm getting way too many files.....I don't know what's wrong.

Sub exportWMF()

    Dim s As Shape, sr As ShapeRange
    Dim w As Double, h As Double
    Dim count As Double, path As String
    Dim p As Page
    
    path = "C:\temp\"
    count = 1
    Set sr = ActivePage.Shapes.All
    
    For Each p In ActiveDocument.Pages
    p.Activate
    For Each s In sr
        s.GetSize w, h
        s.CreateSelection
        ActiveDocument.Export (path & "w" & Round(w, 2) & "_x_" & "h" & Round(h, 2) & "_" & count & ".wmf"), cdrWMF, cdrSelection
        count = count + 1
        Next s
    Next p
End Sub

[gorgo]

doh!

http://coreldraw.com/forums/t/19327.aspx