Visio macro to export each page to svg

exportEachPageToSvg.vba

Sub exportSvg()

    Dim formatExtension As String
    formatExtension = ".svg"

    ' initializations
    folder = ThisDocument.Path
    Set doc = Visio.ActiveDocument
    folder = doc.Path

    ' for each page
    For Each pg In doc.Pages

        ' set filename
        FileName = Left(doc.Name, Len(doc.Name) - 4) & "_" & pg.Name

        ' skip background pages
        If (Not (pg.Background)) Then
            ' add extension
            FileName = FileName & formatExtension

            ' save
            Call pg.Export(folder & FileName)
        End If

    Next
End Sub