Why are not all words transferred to my Excel sheet?
The code transfers all the values from the PDF file into my Excel sheet .... I thought so .... On page 2 and following, after two-thirds of the page the enumeration ends and it continues on the next page ... On page 1 but everything is transferred .... has anyone ever had the phenomenon? I need all the text from the PDF ![]()
Set jso = PDDoc.GetJSObject
i = 0
For iPage = 0 To PDDoc.GetNumPages - 1
icount = jso.getPageNumWords(0)
For iWord = 0 To icount - 1
word = jso.getPageNthWord(iPage, iWord, True)
If VarType(word) = vbString Then
Tabelle5.Cells(i + 1, 1) = word
i = i + 1
End If
Next iWord
Next iPage
Set PDDoc = Nothing
Set jso = Nothing
greetings tobi
