1. Christoph Jüngling
  2. VB and VBA Code Library

Source

VB and VBA Code Library / ExportVisioCode.bas

Attribute VB_Name = "ExportVisioCode"
''
' Some helper functions
'
' @author   Christoph Jüngling <Christoph@Juengling-EDV.de>

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