Solution: Convert mult-page Visio to MS Word (via GIF)

[Andrew]

Here's how to convert a Visio drawing (with many pages) into MS Word
in two simple steps:

1) With your visio doc, File->Save as, "directory c:\visiowebview\",
filetype: HTML (or webpage)

2) Create a macro in word, Tools->Macros->Macros, type in a name like
"visioToWord" and then pressn "New". Then paste in the following
code. Save it and the run the macro Tools->Macros->Macros, select
"visioToWord" and press run. What you'll get is all of your visio
pages pasted into word as separate GIF images (which were created when
you did the save as HTML)

Hope this works out for ya'll.

-Andrew

***************************
For Visio2003, use the following:
and replace the "-----------" with the total number of pages in your
visio doc.
***************************
Sub visioToWord

filepather = "c:\visiowebview\gif_"
For i = 1 To ------------
Selection.InlineShapes.AddPicture FileName:= _
filepather & i & ".gif" _
, LinkToFile:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Next i
End Sub
*****************************
For Visio2000, use this:
and replace the "-----------" with the total number of pages in your
visio doc, and replace "<filename>" with the name of your visio
document
*****************************
Sub visioToWord

filepather = "c:\visiowebview\<filename>_"
For i = 1 To ----------------
Selection.InlineShapes.AddPicture FileName:= _
filepather & i & "0_raster.gif" _
, LinkToFile:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Next i
End Sub