' This script opens a WordPerfect
' document, and saves it as HTML file.
'
' Tested with Corel WordPerfect 12 only.
'
' Written by Rob van der Woude
' http://www.robvanderwoude.com

Option Explicit

WP2HTML "D:\MyFiles\MyDoc.wpd"

Sub WP2HTML( myFile )
' This subroutine opens a WordPerfect document,
' then saves it as HTML, and closes WordPerfect.
' If the HTML file exists, the subroutine will
' prompt for overwrite.
' If WordPerfect was already active, the subroutine
' will prompt the user to save the changes in other
' documents.
'
' Written by Rob van der Woude
' http://www.robvanderwoude.com

	' Standard housekeeping
	Dim objFSO, objWP, objWPFile, strHTMLFile, strWPFile

	Const AmiPro_12_FileOpen_Format                              = 201
	Const AmiPro_12A_FileOpen_Format                             = 202
	Const AmiPro_12B_FileOpen_Format                             = 203
	Const AmiPro_20_FileOpen_Format                              = 204
	Const AmiPro_30_FileOpen_Format                              = 205
	Const ANSIDelimitedTextWindows_FileOpen_Format               = 406
	Const ANSIGenericWordProcessor_Windows_FileOpen_Format       = 407
	Const ANSIText_Windows_FileOpen_Format                       = 161
	Const AreAHangol_FileOpen_Format                             = 375
	Const Aruga_23_FileOpen_Format                               = 396
	Const ASCIIStandard_FileOpen_Format                          = 160
	Const ASCIIStripped_FileOpen_Format                          = 165
	Const DelimitedText_FileOpen_Format                          = 163
	Const DisplayWrite_40_FileOpen_Format                        =  82
	Const DisplayWrite_42_FileOpen_Format                        =  83
	Const DisplayWrite_50_FileOpen_Format                        =  84
	Const Excel_40_FileOpen_Format                               = 807
	Const FFT_FileOpen_Format                                    =  81
	Const Hana_FileOpen_Format                                   = 376
	Const HTML_FileOpen_Format                                   = 226
	Const Ichitaro_3x_FileOpen_Format                            = 392
	Const Ichitaro_4x_FileOpen_Format                            = 393
	Const Ichitaro_5x_FileOpen_Format                            = 394
	Const Kermit_7bit_Transfer_FileOpen_Format                   = 173
	Const Matu_4_FileOpen_Format                                 = 397
	Const Matu_5_FileOpen_Format                                 = 398
	Const Matu_6_FileOpen_Format                                 = 399
	Const MicroSoftWord_40_FileOpen_Format                       =  52
	Const MicroSoftWord_50_FileOpen_Format                       =  53
	Const MicroSoftWord_55_FileOpen_Format                       =  54
	Const MultiMate_33_FileOpen_Format                           = 100
	Const MultiMate_40_FileOpen_Format                           = 103
	Const MultiMateAdvantage_36_FileOpen_Format                  = 101
	Const MultiMateAdvantageII_10_FileOpen_Format                = 102
	Const NavyDIF_FileOpen_Format                                = 175
	Const OfficeWriter_60_FileOpen_Format                        = 120
	Const OfficeWriter_611_FileOpen_Format                       = 122
	Const OfficeWriter_61_FileOpen_Format                        = 121
	Const OfficeWriter_62_FileOpen_Format                        = 123
	Const P1EXE_FileOpen_Format                                  = 395
	Const RFT_FileOpen_Format                                    =  80
	Const RTF_FileOpen_Format                                    = 150
	Const RTFJ_FileOpen_Format                                   = 391
	Const SGML_FileOpen_Format                                   = 227
	Const WaiSing_251_FileOpen_Format                            = 380
	Const WindowsWrite_FileOpen_Format                           = 210
	Const WordForWindows_10_FileOpen_Format                      =  60
	Const WordForWindows_11_FileOpen_Format                      =  61
	Const WordForWindows_12_FileOpen_Format                      = 371
	Const WordForWindows_1A_FileOpen_Format                      =  62
	Const WordForWindows_20_FileOpen_Format                      =  63
	Const WordForWindows_20a_FileOpen_Format                     =  64
	Const WordForWindows_20b_FileOpen_Format                     =  65
	Const WordForWindows_20c_FileOpen_Format                     =  66
	Const WordForWindows_50_FileOpen_Format                      = 372
	Const WordForWindows_60_FileOpen_Format                      =  67
	Const WordPerfect_42_FileOpen_Format                         =   1
	Const WordPerfect_50_FileOpen_Format                         =   2
	Const WordPerfect_51_FileOpen_Format                         =   3
	Const WordPerfect_5xA_FileOpen_Format                        = 370
	Const WordPerfect_60_FileOpen_Format                         =   4
	Const WordPerfect_6_7_8_FileOpen_Format                      =   4
	Const WordPerfect_7_FileOpen_Format                          =   6
	Const WordPerfect_90_FileOpen_Format                         =   4
	Const WordPerfect_CompoundFile_FileOpen_Format               =   6
	Const WordStar2000_10_FileOpen_Format                        =  40
	Const WordStar2000_20_FileOpen_Format                        =  41
	Const WordStar2000_30_FileOpen_Format                        =  42
	Const WordStar_331_FileOpen_Format                           =  31
	Const WordStar_33_FileOpen_Format                            =  30
	Const WordStar_34_FileOpen_Format                            =  32
	Const WordStar_40_FileOpen_Format                            =  33
	Const WordStar_50_FileOpen_Format                            =  34
	Const WordStar_55_FileOpen_Format                            =  35
	Const WordStar_60_FileOpen_Format                            =  36
	Const WPS_Chinese_FileOpen_Format                            = 377
	Const XML_UTF16Big_FileOpen_Format                           = 222
	Const XML_UTF16Lit_FileOpen_Format                           = 223
	Const XML_UTF8_FileOpen_Format                               = 224
	Const XyWriteIIIPlus_355_FileOpen_Format                     = 190
	Const XyWriteIIIPlus_356_FileOpen_Format                     = 191

	Const AmiPro_12_FileSave_ExportType                          = 201
	Const AmiPro_12A_FileSave_ExportType                         = 202
	Const AmiPro_12B_FileSave_ExportType                         = 203
	Const AmiPro_20_FileSave_ExportType                          = 204
	Const AmiPro_30_FileSave_ExportType                          = 205
	Const ANSIDelimitedTextWindows_FileSave_ExportType           = 406
	Const ANSIGeneratedWordProcessor_Windows_FileSave_ExportType = 407
	Const ANSIText_Windows_FileSave_ExportType                   = 161
	Const AreAHangol_FileSave_ExportType                         = 375
	Const Aruga_23_FileSave_ExportType                           = 396
	Const ASCIIStandard_FileSave_ExportType                      = 160
	Const ASCIIStripped_FileSave_ExportType                      = 165
	Const DelimitedText_FileSave_ExportType                      = 163
	Const DisplayWrite_40_FileSave_ExportType                    =  82
	Const DisplayWrite_42_FileSave_ExportType                    =  83
	Const DisplayWrite_50_FileSave_ExportType                    =  84
	Const EDGAR_FileSave_ExportType                              = 225
	Const Excel_40_FileSave_ExportType                           = 807
	Const FFT_FileSave_ExportType                                =  81
	Const Hana_FileSave_ExportType                               = 376
	Const HTML_FileSave_ExportType                               = 226
	Const Ichitaro_3x_FileSave_ExportType                        = 392
	Const Ichitaro_4x_FileSave_ExportType                        = 393
	Const Ichitaro_5x_FileSave_ExportType                        = 394
	Const Kermit_7bit_Transfer_FileSave_ExportType               = 173
	Const Matu_4_FileSave_ExportType                             = 397
	Const Matu_5_FileSave_ExportType                             = 398
	Const Matu_6_FileSave_ExportType                             = 399
	Const MicroSoftWord_40_FileSave_ExportType                   =  52
	Const MicroSoftWord_50_FileSave_ExportType                   =  53
	Const MicroSoftWord_55_FileSave_ExportType                   =  54
	Const MultiMate_33_FileSave_ExportType                       = 100
	Const MultiMate_40_FileSave_ExportType                       = 103
	Const MultiMateAdvantage_36_FileSave_ExportType              = 101
	Const MultiMateAdvantageII_10_FileSave_ExportType            = 102
	Const NavyDIF_FileSave_ExportType                            = 175
	Const OfficeWriter_60_FileSave_ExportType                    = 120
	Const OfficeWriter_611_FileSave_ExportType                   = 122
	Const OfficeWriter_61_FileSave_ExportType                    = 121
	Const OfficeWriter_62_FileSave_ExportType                    = 123
	Const P1EXE_FileSave_ExportType                              = 395
	Const QuattroPro_30_FileSave_ExportType                      = 836
	Const QuattroPro_40_FileSave_ExportType                      = 837
	Const RFT_FileSave_ExportType                                =  80
	Const RTF_FileSave_ExportType                                = 150
	Const RTFJ_FileSave_ExportType                               = 391
	Const SGML_FileSave_ExportType                               = 227
	Const WaiSing_251_FileSave_ExportType                        = 380
	Const WindowsWrite_FileSave_ExportType                       = 210
	Const WordForWindows_10_FileSave_ExportType                  =  60
	Const WordForWindows_11_FileSave_ExportType                  =  61
	Const WordForWindows_12_FileSave_ExportType                  = 371
	Const WordForWindows_1A_FileSave_ExportType                  =  62
	Const WordForWindows_20_FileSave_ExportType                  =  63
	Const WordForWindows_20a_FileSave_ExportType                 =  64
	Const WordForWindows_20b_FileSave_ExportType                 =  65
	Const WordForWindows_20c_FileSave_ExportType                 =  66
	Const WordForWindows_50_FileSave_ExportType                  = 372
	Const WordForWindows_60_FileSave_ExportType                  =  67
	Const WordPerfect_42_FileSave_ExportType                     =   1
	Const WordPerfect_50_FileSave_ExportType                     =   2
	Const WordPerfect_51_FileSave_ExportType                     =   3
	Const WordPerfect_5xA_FileSave_ExportType                    = 370
	Const WordPerfect_60_FileSave_ExportType                     =   4
	Const WordPerfect_6_7_8_FileSave_ExportType                  =   4
	Const WordPerfect_7_FileSave_ExportType                      =   6
	Const WordPerfect_90_FileSave_ExportType                     =   4
	Const WordPerfect_CompoundFile_FileSave_ExportType           =   6
	Const WordStar2000_10_FileSave_ExportType                    =  40
	Const WordStar2000_20_FileSave_ExportType                    =  41
	Const WordStar2000_30_FileSave_ExportType                    =  42
	Const WordStar_331_FileSave_ExportType                       =  31
	Const WordStar_33_FileSave_ExportType                        =  30
	Const WordStar_34_FileSave_ExportType                        =  32
	Const WordStar_40_FileSave_ExportType                        =  33
	Const WordStar_50_FileSave_ExportType                        =  34
	Const WordStar_55_FileSave_ExportType                        =  35
	Const WordStar_60_FileSave_ExportType                        =  36
	Const WPS_Chinese_FileSave_ExportType                        = 377
	Const XML_UTF16Big_FileSave_ExportType                       = 222
	Const XML_UTF16Lit_FileSave_ExportType                       = 223
	Const XML_UTF8_FileSave_ExportType                           = 224
	Const XyWriteIIIPlus_355_FileSave_ExportType                 = 190
	Const XyWriteIIIPlus_356_FileSave_ExportType                 = 191

	Const No_FileSave_Overwrite                                  =   0
	Const Prompt_FileSave_Overwrite                              =   2
	Const Yes_FileSave_Overwrite                                 =   1

	Const vbBinaryCompare                                        =   0
	Const vbTextCompare                                          =   1

	' Create a File System object
	Set objFSO = CreateObject( "Scripting.FileSystemObject" )

	' Create a WordPerfect OLE Automation object
	Set objWP = CreateObject( "WordPerfect.PerfectScript" )

	With objWP
		' Check if the WordPerfect file exists
		If objFSO.FileExists( myFile ) Then
			Set objWPFile   = objFSO.GetFile( myFile )
		Else
			WScript.Echo "FILE OPEN ERROR: The file does not exist" & vbCrLf
			' Close WordPerfect
			.ExitWordPerfect
			Exit Sub
		End If
		strWPFile = objWPFile.Path
		strHTMLFile = objFSO.BuildPath( objWPFile.ParentFolder, Left( objWPFile.Name, Len( objWPFile.Name ) - 3 ) & "html" )

		' Maximize the window
		.AppMaximize

		' Open the document
		On Error Resume Next
		.FileOpen strWPFile, WordPerfect_6_7_8_FileOpen_Format
		If Err Then
			WScript.Echo "FILE OPEN ERROR: " & Err.Number & vbCrLf & Err.Description & vbCrLf
			Err.Clear
			' Close WordPerfect
			.ExitWordPerfect
			Exit Sub
		End If

		' Save the document as HTML file
		.FileSave strHTMLFile, HTML_FileSave_ExportType, Prompt_FileSave_Overwrite
		If Err Then
			WScript.Echo "FILE SAVE AS ERROR: " & Err.Number & vbCrLf & Err.Description & vbCrLf
			Err.Clear
		End If

		' Close WordPerfect
		.ExitWordPerfect
		If Err Then
			WScript.Echo "PROGRAM CLOSE ERROR: " & Err.Number & vbCrLf & Err.Description & vbCrLf
			Err.Clear
		End If
		On Error Goto 0
	End With

	' Release the object
	Set objWP = Nothing
End Sub