1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

   Dim fileToConvert As String = "c:\users\public\test.doc"

   Dim DC As Object = CreateObject("Neevia.docConverter")

   DC.setParameter("DocumentOutputFormat", "PDF")
   DC.setParameter("DocumentOutputFolder", "c:\users\public\")
   DC.setParameter("PDFAutoRotatePage", "All")

   Dim rv As Integer = DC.submitFile(fileToConvert, "")

   If (rv <> 0) Then
      MsgBox(" *** SubmitFile error **** ")
   Else
     rv = 2
     While (rv = 2)
       rv = DC.checkStatus(fileToConvert, "")
       Application.DoEvents()
       DC.doSleep(1000)
     End While

     If (rv = 0) Then
       MsgBox(" Converted successfully")
     Else
       MsgBox(" Error converting")
     End If
   End If