Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

So klappt's!
Autor: Anja
Datum: 08.05.02 16:06
Hallo, falls mal jemand über ein ähnliches Problem stolpert: habe jetzt die Lösung gefunden: Private myPDFPageCount As Object Private openResult As Boolean Private closeResult As Boolean Private pageCount As Integer Sub ermittleSeitenanzahl() Set myPDFPageCount = CreateObject("acroexch.pddoc") 'beim öffnen der Datei wird True/ False zurückgegeben filelocation = InputBox("Zu öffnende PDF-Datei eingeben:", "Datei öffnen") openResult = myPDFPageCount.Open(filelocation) 'falls der File nicht richtig geöffnet werden kann: If openResult = False Then Set myPDFPageCount = Nothing MsgBox "Fehler beim Öffnen der Datei" Exit Sub End If 'ermittle die Anzahl der Seiten pageCount = myPDFPageCount.GetNumPages 'beim schließen der Datei wird True/ False zurückgegeben closeResult = myPDFPageCount.Close 'falls der File nicht richtig geschlossen werden kann: If closeResult = False Then Set myPDFPageCount = Nothing MsgBox "Fehler beim Schließen der Datei" Exit Sub End If 'Objekt auf Nothing setzen, wird ja nicht mehr gebraucht Set myPDFPageCount = Nothing MsgBox "Die PDF-Datei enthält " & pageCount & " Seiten." End Sub Na dann, schönen Tag noch! Anja

Seitenanzahl bei PDFs	125	Anja	08.05.02 08:55
Re: Seitenanzahl bei PDFs	105	Anja	08.05.02 12:16
So klappt's!	105	Anja	08.05.02 16:06

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen