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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

   Sub WPConverter()

      Dim docToConvert : docToConvert="c:\users\public\test.wpd"

      Dim objWordPerfect
      Set objWordPerfect = CreateObject("WordPerfect.PerfectScript")
      objWordPerfect.AppMaximize
      objWordPerfect.Backup 0
      objWordPerfect.BackupOriginalDoc 0
      objWordPerfect.PerfectExpert 0

      Dim DPSDK : Set DPSDK = CreateObject("docuPrinter.SDK")
      DPSDK.BackupSettings

      objWordPerfect.FileOpen docToConvert

      DPSDK.doSleep 100

      DPSDK.documentOutputFormat="PDF"
      DPSDK.documentOutputFolder="c:\users\public\"
      DPSDK.documentOutputName="demoWP"

      DPSDK.HideSaveAsWindow = true  
      DPSDK.DefaultAction=1
      DPSDK.ApplySettings

      objWordPerfect.PrintTo docToConvert, "docuPrinter"

      Dim RVal : RVal = DPSDK.Create ' Create output document
      If (RVal <> 0) Then MsgBox "Error while creating document!!!"

      objWordPerfect.CloseNoSave 0
      objWordPerfect.Quit

      Set objWordPerfect=Nothing

      DPSDK.RestoreSettings
      Set DPSDK=Nothing

      MsgBox "Done converting!!!"

   End Sub