Export visio to Ms word and PDF using VB.NET

[JAWAAHAR]

Hi
how to export visio pages or a single page to Ms word and PDF by
using VB.NET.

 

[JuneTheSecond]

My idea is to select a shape and copy, and pasteSpecial on the Word.
Please check if Word and pdf have method like PasteSpecial of Visio.

 

[Al Edlund]

In v2007 (since you neglected to mention your version), exporting to pdf
looks kinda like this

(assumes you have the free add-in installed)

'Private Sub cmdExport_Click()
' Dim visPage As Visio.Page
' Dim strPageName As String
' Dim strPathName As String
' strPathName = "c:\"
'
' If ThisDocument.Pages.Count < 2 Then
' MsgBox "This routine saves page 2 as a pdf file"
' Exit Sub
' End If
'
' Set visPage = ThisDocument.Pages(2)
' visPage.CenterDrawing
' strPageName = visPage.Name
' ActiveWindow.Page = visPage
'
' strPageName = Replace(strPageName, " ", "")
' strPageName = strPathName & strPageName & ".pdf"
'
' ThisDocument.ExportAsFixedFormat visFixedFormatPDF, strPageName,
visDocExIntentPrint, visPrintCurrentPage
'
'End Sub

For moving it to Word I'd just do a copy and paste.

ActiveWindow.SelectAll
ActiveWindow.Group
ActiveWindow.Copy

'add your word specific paste here...

al

 

[JAWAAHAR]

hi Edlund,

i am using vb.net 2.0 . i'd follow ur way but in "ActiveWindow.Page =
visPage" got some err. can u give suggest me a solution for this.

thanks.

 

[JAWAAHAR]

In v2007 (since you neglected to mention your version), exporting to pdf
looks kinda like this

(assumes you have the free add-in installed)

'Private Sub cmdExport_Click()
' Dim visPage As Visio.Page
' Dim strPageName As String
' Dim strPathName As String
' strPathName = "c:\"
'
' If ThisDocument.Pages.Count < 2 Then
' MsgBox "This routine saves page 2 as a pdf file"
' Exit Sub
' End If
'
' Set visPage = ThisDocument.Pages(2)
' visPage.CenterDrawing
' strPageName = visPage.Name
' ActiveWindow.Page = visPage
'
' strPageName = Replace(strPageName, " ", "")
' strPageName = strPathName & strPageName & ".pdf"
'
' ThisDocument.ExportAsFixedFormat visFixedFormatPDF, strPageName,
visDocExIntentPrint, visPrintCurrentPage
'
'End Sub

For moving it to Word I'd just do a copy and paste.

ActiveWindow.SelectAll
ActiveWindow.Group
ActiveWindow.Copy

'add your word specific paste here...

al

 

[Al Edlund]

that code just makes the second page the active one so that it matchs the
export call later on in the routine.
al