Programa para contabilizar hojas de 1 pdf
Publicado por Olga (1 intervención) el 18/11/2016 10:09:59
Tengo este programa:
Es un programa para abrir pdf's, contar el número de páginas que tiene cada pdf, y crear una dbf con esa información. El problema es que me deja los pdf's abiertos en el Adobe acrobat 9 pro, yo quiero que me vaya cerrando los pd's a medida que los va abriendo y contando las páginas. Cómo lo tendría que modificar?
Muchas gracias y un saludo,
Es un programa para abrir pdf's, contar el número de páginas que tiene cada pdf, y crear una dbf con esa información. El problema es que me deja los pdf's abiertos en el Adobe acrobat 9 pro, yo quiero que me vaya cerrando los pd's a medida que los va abriendo y contando las páginas. Cómo lo tendría que modificar?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
SET CENTURY on
CREATE TABLE pdfs (FACTURA C(12),FICHERO C(254), FECHA D(8), HOJAS N(10))
ofich=CREATEOBJECT('Filer.FileUtil')
oFich.SearchPath = SYS(5)+CURDIR()+"PDF\"
oFich.FileExpression = '*.pdf'
oFich.SubFolder = 5
oFich.sortby = 2
oFich.Find(0)
FOR lnCant = 1 TO oFich.Files.Count
IF !EMPTY(strt(strt(oFich.Files.Item(lnCant).Name,'.'),'.'))
loAcroExchApp = CreateObject("AcroExch.App")
loAcroExchApp.Hide()
loAcroExchAVDoc = CreateObject("AcroExch.AVDoc")
loAcroExchPDDocN = CreateObject("AcroExch.PDDoc")
IF loAcroExchAVDoc.Open(oFich.Files.Item(lnCant).Path + oFich.Files.Item(lnCant).Name,"")
IF loAcroExchAVDoc.IsValid = .t.
loAcroExchPDDoc = loAcroExchAVDoc.GetPDDoc()
IntPaginas = loAcroExchPDDoc.GetNumPages()
ENDIF
ENDIF
APPEND BLANK
REPLACE FACTURA WITH STRT(JUSTFNAME(oFich.Files.Item(lnCant).Path + oFich.Files.Item(lnCant).Name),'.'+JUSTEXT(oFich.Files.Item(lnCant).Path + oFich.Files.Item(lnCant).Name)),;
FICHERO WITH oFich.Files.Item(lnCant).Path + oFich.Files.Item(lnCant).Name,;
FECHA WITH CTOD(LEFT(TRANSFORM(DATETIME(1899,12,30) + oFich.Files.Item(lnCant).DateTime * 86400),10)),;
HOJAS WITH IntPaginas
loAcroExchPDDoc.Close()
loAcroExchApp.CloseAllDocs()
loAcroExchApp.Exit()
RELEASE loAcroExchPDDoc
RELEASE loAcroExchAVDoc
RELEASE loAcroExchApp
ENDIF
ENDFOR
CLOSE ALL
Muchas gracias y un saludo,
Valora esta pregunta
0