DEFINE VARIABLE hAcrobat AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE hAVDoc AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE hPDDoc AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE hText AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE hTextNm AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE hAVDoc1 AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE hJSObj AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE Objs AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE Obj AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE v_Count AS INTEGER NO-UNDO.
DEFINE VARIABLE v_TxtCount AS INTEGER NO-UNDO.
DEFINE VARIABLE v_Compare AS CHARACTER NO-UNDO.
DEFINE VARIABLE v_Temp AS CHARACTER EXTENT 10 NO-UNDO.
CREATE "AcroExch.PDDoc" hPDDoc.
CREATE "AcroExch.PDDoc" hText.
CREATE "AcroExch.AVDOC" hAVDoc.
CREATE "AcroExch.App" hAcrobat.
CREATE "AcroExch.HiliteList" hText.
hAVDoc:OPEN("YOUR-PDF-FILE.pdf", "").
hPDDoc = hAVDoc:GetPDDoc.
hJSObj = hPDDoc:GetJSObject.
OUTPUT TO h:\PDF-Read-2.txt.
REPEAT v_Count = 0 TO hPDDoc:GetNumPages - 1:
ASSIGN hTextNm = hPDDoc:AcquirePage(v_Count).
hText:Add(0, 9000).
hAVDoc1 = hTextNm:CreatePageHilite(hText).
MESSAGE "--------------" v_Count "------------------" hAVDoc1:GetNumText .
ASSIGN v_Compare = "".
REPEAT v_TxtCount = 0 TO hAVDoc1:GetNumText - 1 :
ASSIGN v_Compare = v_Compare + "|" + hAVDoc1:GetText(v_TxtCount).
END.
MESSAGE v_Compare.
END.
OUTPUT CLOSE.
/* release all objects here */