Need to convert Visio 2003 back to Visio 4...

[Juergen Marquardt]

....collegue falsely had opened my Visio 4 documents
with visio 2003 and saved all of them in 2003 format.

Need to convert them back to Visio 4 format.

Any way to do this?

Juergen

 

[Juergen Marquardt]

....maybe this is a way?

2003 -> 2000 -> 5.0 -> 4.0 ?

 

[John Marshall, MVP]

That's the path, the trick is getting a hold of the three versions.

John... Visio MVP

Need stencils or ideas? http://www.mvps.org/visio/3rdparty.htm
Need VBA examples? http://www.mvps.org/visio/VBA.htm
Common Visio Questions http://www.mvps.org/visio/common_questions.htm
Visio Wishlist http://www.mvps.org/visio/wish_list.htm

 

[Juergen Marquardt]

2003 -> 2000 -> 5.0 -> 4.0 ?

That's the path, the trick is getting a hold of the three versions.

John... Visio MVP

Do you?
Juergen

 

[John Marshall, MVP]

I have V2003 and Visio 2002 installed. I would just need to reload Visio 5.

It's a very easy process to have Visio read all the Visio drawings in a
directory and then save them in the previous format. The following code will
convert from Visio 2000/2002 to Visio 5.

Public Sub SaveAsV5()
' Create a new file and save in Visio 5 format
Dim DocObj As Visio.Document
Dim PathName As String, FullFileName As String
' Set the default pathname
PathName = "C:\My Documents\"
FullFileName = PathName & "test.vsd"
Set docObj = Documents.Open(FullFileName)
DocObj.Version = &H50000
' For Visio 2000/2002 from Visio 2003 use:
' DocObj.Version = visVersion100

DocObj.SaveAs FullFileName
DocObj.Close
End Sub

If you are not in a rush, I can try the conversion.

John... Visio MVP

Need stencils or ideas? http://www.mvps.org/visio/3rdparty.htm
Need VBA examples? http://www.mvps.org/visio/VBA.htm
Common Visio Questions http://www.mvps.org/visio/common_questions.htm
Visio Wishlist http://www.mvps.org/visio/wish_list.htm