Multiple pages

[Sydne]

I have a very large diagram with multiple pages. Is there any way to easily
save each page as a separate document?

 

[wr]

Hi Sydne,

this macro saves each pages using the page name
I presume you need other names but it is a start

Sub SaveEachPage()
Dim vpages As Visio.Pages
Dim vpage As Visio.Page
Set vpages = ActiveDocument.Pages
Dim vpagepathname As String
Dim fullcount As Integer
fullcount = vpages.Count
For i = 1 To fullcount
Set vpage = vpages.Item(i)
vpagepathname = "c:\test\" & vpage.Name & ".vsd"
Application.ActivePage.Document.SaveAs (vpagepathname)
Next
End Sub


René