A (slightly unfinished) script for extracting text from visio diagrams. Similarly works for Powerpoint also. Sub ExtText() Dim pPage As Page Dim sShape As Shape Dim fso As Scripting.FileSystemObject Dim ts1 As TextStream Dim DDocument As Document Set fso = CreateObject(“Scripting.FileSystemObject”) For Each DDocument In Application.Documents Set ts1 = fso.CreateTextFile(Application.ActiveDocument.Path & “” & DDocument.Name & … Continue reading Visio Text extraction
