VBA to call "Tools" -> "Reports..."

Started by joemako, April 24, 2009, 02:54:33 PM

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

joemako

I am using Visio 2003 Pro, and I have a list of a few hundred .vsd files and their paths in an Excel file. Is there a way to loop through each of these files and run a report that extracts the "<Displayed Text>" property to Excel for each of the files?

Or maybe I am approaching this the wrong way, anyone know a better way to extract the text from a long list of Visio files?

Paul Herber

#1
If you can copy all the files into one folder, then use my utilities :
http://www.sandrila.co.uk/visio-utilities/
and use the menu SuperUtils -> Document -> Shape(s) Text Export (from files)
and select all the files from the folder. each one will be opened in turn.

Electronic and Electrical engineering, business and software stencils for Visio -

https://www.paulherber.co.uk/

joemako

In their current state, they are in all sorts of different folders. I suppose I could copy them to one folder on my local drive, know a good way to programaticly copy files?

joemako

found out how to copy files with VBA at http://word.tips.net/Pages/T000821_Copying_a_File_in_VBA.html

Thank you for putting together some great tools :)

joemako

Paul,

I ran it, and I get a window with the buttons cut off like the attached image.

What do these buttons say/do?

Paul Herber

Really? !!!
The left button is 'Close' and the right is 'Save Text'.
Does anyone else not see the full dialog box?

Electronic and Electrical engineering, business and software stencils for Visio -

https://www.paulherber.co.uk/

wapperdude

Works fine for me!  V2007 Std.  Windows XP Home, SP3
Visio 2019 Pro

Paul Herber

Joe, could you send me a full (or close enough) screenshot please?
Thanks.

Electronic and Electrical engineering, business and software stencils for Visio -

https://www.paulherber.co.uk/

joemako

Attached is the full Visio Window

Any other details I can provide?

Paul Herber

#9
That is very odd indeed, thanks Joe, I shall look into this forthwith.

Also, does the display go wrong on other reports? (they all use a common dialog box)
menu SuperUtils -> Application -> Add-ons Report
menu SuperUtils -> Document -> Word Count
and others.

And, what happens when you resize the dialog box, do the buttons appear or do they move with the dialog bottom border?
(They should move with the bottom border but visible as per the image:

Electronic and Electrical engineering, business and software stencils for Visio -

https://www.paulherber.co.uk/

joemako

Paul,

The other utilities have the same issue, and resizing the window/dialog does not show any more of the buttons.

some details:
Windows XP SP3
Visio Pro 2003 SP3 (11.8223.8221)
SanDriLa Version 2.4.1.0 Full

Paul Herber

That is really weird, I have no idea what can cause that!
What on earth can make parts of a dialog box resize incorrectly?

Electronic and Electrical engineering, business and software stencils for Visio -

https://www.paulherber.co.uk/

Paul Herber

Does anyone else see a problem with this dialog box?

They are standard buttons anchored to the dialog bottom edge, as the dialog is resized vertically the buttons and the memo area should move and resize with the edge.

Electronic and Electrical engineering, business and software stencils for Visio -

https://www.paulherber.co.uk/

Paul Herber

#13
I've created a simple test file (button_test.exe)
The four buttons should remain anchored and visible when the edges are moved.
Does anyone see any problem in this file?

The exe file is now digitally signed.
Electronic and Electrical engineering, business and software stencils for Visio -

https://www.paulherber.co.uk/

Paul Herber

Well, nobody else is reporting a problem, sorry, I don't know what to suggest at the moment. I have no idea how a simple dialog box can go wrong in this way unless your common controls dlls are non-standard.

Electronic and Electrical engineering, business and software stencils for Visio -

https://www.paulherber.co.uk/