Previous | Next | (P-PDF) General

Topic: CreatePageHilite
Conf: (P-PDF) General, Msg: 84895
From: Keyto
Date: 3/26/2003 01:48 AM

Hi,

This code works on an XP machine, when I tried it on Win NT 4 workstation PC I get an error message when I do the For statement (because of pageSelect.GetNumText). The code reads the text from a pdf file page by page.
The error is:

-2147417851 "The server threw an exception"

Set myPDFPage = myPDF.AcquirePage(pagenumber)
Set myPageHilite = CreateObject("AcroExch.HiliteList")
hiliteResult = myPageHilite.Add(0, 9000)
Set pageSelect = myPDFPage.CreatePageHilite(myPageHilite)
Dim i As Integer
For i = 0 To pageSelect.GetNumText - 1
pdfData = pdfData & pageSelect.GetText(i)
Next