Наваял такой код для показа количества комментариев:
Код:
Set pdSourceDoc = CreateObject("AcroExch.PDDoc")
strFilename="C:\1\TestDoc.pdf"
pdSourceDoc.Open strFilename
iSourcePageCount = pdSourceDoc.GetNumPages()
Set pAcroSourcePage = pdSourceDoc.AcquirePage(0)
iSourceAnnotationCount = pAcroSourcePage.GetNumAnnots()
msgbox iSourcePageCount
msgbox iSourceAnnotationCount
Количество страниц "iSourcePageCount" показывает верно, а
количество комментариев "iSourceAnnotationCount" показывает в 2 раза больше. Не пойму почему?
Если этот код верный помогите интегрировать его в код из поста
Цитата Iska:
«Немного» не получится:
читать дальше » »
|
