Convert a PDF document to an RTF document.
Sub ConvertToWord(InputFileName As String,
OutputFileName
As String,
[Password]
As Variant,
[From]
As Variant,
[To]
As Variant)
InputFileName
Input file name in absolute path format.
OutputFileName
Output RTF file name in absolute path format.
Password (optional)
Password to open the PDF document, if any.
From (optional)
The starting page number to convert.
To (optional)
The ending page number to convert.
Please refer to the list of return exceptions.
On Error GoTo Convert_Err
oConverter = CreateObject("EasyConverter.PDF2Word.3")
Call oConverter.ConvertToWord(inFileName, outFileName)
MsgBox("Success", vbOKOnly + vbInformation)
Convert_End:
oConverter = Nothing
Exit Sub
Convert_Err:
' Handle error
MsgBox("Error(" + CStr(Err.Number) + ")", vbOKOnly + vbInformation)
Resume Convert_End