Identify all open Visio Applications

[robaxeman]

Hi All - I'm new to VBA so having fun trying various things out. I've created a macro in WORD to identify and open all the embedded visio files. This opens a new Visio application for each embedded Visio file, each containing a single Page. What I want to do now is to copy each indivudal page into a new Visio document, finishing with a single Visio document with multiple pages. I have come across the Application. object but I can't see how I can use this to switch between all the open Visio applications. I guess what I need to do is to identify all the open Applications, then cycle through them extracting the page and saving it to the new document.

Any ideas??

I originally tried using the SaveAs method on the embedded visio documents, but I believe that this method is not allowed with Visio embedded objects.

Many Thanks in advance.

R.
:help

[robaxeman]

An update: I have now found that the SaveAs method does work with embedded Visio objects, as long as you specify a full pathname for the file you're saving to - so I don't need to identify open Visio files anymore.

Big thanks to Frosty!

R.