Convert a PDF document to an RTF stream. The RTF output is stored in memory.
Function ConvertToWord2(InputFileName As
String,
[Password]
As Variant,
[From]
As Variant,
[To]
As Variant)
As
Variant
InputFileName
Input 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.
Return Values
RTF Stream.
Please refer to the list of return exceptions.
On Error GoTo Convert_Err
oConverter = CreateObject("EasyConverter.PDF2Word.1")
arrRTF = oConverter.ConvertToWord2(inFileName)
' Save binary data To disk using ADO stream object
Set oADO = CreateObject("ADODB.Stream")
oADO.Type = 1 ' 1: adTypeBinary
oADO.Open
oADO.Write arrRTF
Call oADO.SaveToFile("C:\output.rtf", 2) ' 2: adSaveCreateOverwrite
oADO.Close
MsgBox("Success", vbOKOnly + vbInformation)
Convert_End:
oConverter = Nothing
Exit Sub
Convert_Err:
' Handle error
MsgBox("Error(" + CStr(Err.Number) + ")", vbOKOnly + vbInformation)
Resume Convert_End