Source

VB and VBA Code Library / ExportVisioCode.bas

Full commit
Attribute VB_Name = "ExportVisioCode"
''
' Some helper functions
'
' @author   Christoph Jüngling <Christoph@Juengling-EDV.de>
' @link   https://bitbucket.org/juengling/vb-and-vba-code-library
'
Option Explicit

Private Const CLASS_NAME = "ExportVisioCode"

Public Sub DoExport()

Dim ex As clsExportVisioCode

Set ex = New clsExportVisioCode
ex.Path = ActiveDocument.Path & ActiveDocument.name & ".src\"
ex.Export
Set ex = Nothing

End Sub