Hallo Walter,
Ich möchte einzeln eingescannte Dokumente (pdf)in eine Datei
zusammenfassen, um sie bei der Präsentation (Active board im
Schulbetrieb) fortlaufend präsentieren zu können.
k.A. was Active Board in Schulen ist.
Bist du da Tagversaurer äh Lehrer *gg* und hast da einen PC samt Beamer der da was an die Wand wirft oder haben da die Schüler zur Not in Zweierteams einen PC vor sich auf denen das zu sehen ist was du da machst?
Oder was ganz anderes?
Bisher muss ich sie zeitaufwendig einzeln in einem Ordner
anwählen, nach jedem Einzelbild entsteht daher durch diese
Manipulation (Ordnersuche, Dokusuche, Mausklick usw.) eine
Black-out Phase von 15 sec, was den Ablauf empfindlich stört.
Heißt das du „blätterst“ im Win-Explorer?
Wie schaffe ich es also, diese Dokumente fortlaufend nur mit 1
Mausklick oder Scrollen zu präsentieren?
Angenommen diese pdfs stehen alle in einem Ordner, stehen da auch andere Pdfs drin die nicht angezeigt werden sollen?
Die Darstellungsreihenfolge ist die Reihe wie sie unsortiert im Ordner stehen?
Bin für eure Vorschläge und Tipps sehr dankbar!
Irgendwie, aber ich kenne Powerpoint Null, wäre rein vom Namen her Powerpoint dafür geignet denn das ist ja Präsentationssoftware.
Ich habe dir mal was für Word gebastelt. Ist nur ein Ansatz.
Wenn du die Doc öffnest so drücke Alt+F11 und du bist im VB-Editor.
Links siehst du eine baumstruktur wie beim Explorer.
Also auch mit dem Pluszeichen usw.
Klicke da mal einfach, mal mit Doppelklick bis du in Modul1 bist.
Dort siehst du diesen Code:
Sub NaechstePdf()
Dim PDfs
Static Nr As Integer
Const Pfad As String = „K:“
PDfs = Array(„Screenshot.pdf“, „dfdfggggggert.pdf“) Nr = IIf(Nr = UBound(PDfs), 0, Nr + 1)
UserForm1.WebBrowser1.Navigate Pfad & PDfs(Nr)
End Sub
Die beiden fetten Codezeilen passt du an.
Anstatt „K:“ deinen Ordnerpfad, vergess das „“ am Ende nicht.
In der Klammer listet du mehrere deiner pdfs auf, siehst ja die Regeln, Gänsfüßchen drumrum und per Komma getrennt.
Knall da mal zum Testen so 5-x PDFs rein.
Dann kannste den Editor schließen und klicke dann auf den Button in der Doc.
Und erzähle ob dir das hilft bzw. was wenn möglich verbessert werden müßte.
Hier die entsprechende Doc:
http://www.file-upload.net/download-3625669/kwpdf.do…
Gruß
Reinhard