PDF via VBA umbennen
08.07.2016 09:28:35
Thomas
ich möchte mir viel Arbeit ersparen aber leider reichen meine VBA-Kenntnisse nicht aus.
Ich habe eine Tabelle in der eine vielzahl von Nachweisen gepflegt werden. (Beispiel https://www.herber.de/bbs/user/106851.xlsm)
Hierzu werden auch Dokumente einescannt (*.pdf) und verlinkt. Die Scanner vergeben allerdings kryptische Dateinamen, welche keine Aussagekraft haben. Bisher ändere ich alle Dateinamen durch manuelles umbenennen verschiebe die Dateien und setze in der Tabelle einen Hyperlink auf die Datei.
Meine Idee ist nun via VBA einen Dialog zu öffnen in dem ich die Dateien umbenennen kann. Der Dateiname sollte sich wie folgt zusammensetzen
JJJJ_MM_TT_Nachname_Vorname_Kürzel
In der Beispieltabelle wäre das also
2016_01_01_Mustermann_Max_TTL1.pdf
2017_05_02_Mustermann_Max_TTL2.pdf
2018_05_01_Musterfrau_Marion_TTL3.pdf
Der Quellordner (eingescannte Dateien) befindet sich immer im Stammverzeichnis und heißt "Import".
Die Zielordner befinden sich auch immer im Stammverzeichnis und sollen auswählbar sein.
Beim Start des Dialogs sollte das erste Dokument im Quellordner ausgewählt, der Name (per Dropdown?) abgefragt, das Datum aus der Schnittstelle Name / Kürzel geholt der Zielordner ausgewählt werden, das Dokument umbenannt und in den Zielordner verschoben werden. Anschließend wiederholt sich der Vorgang für das nächste Dokument, wobei die Einstellung (Kürzel und Zielordner) beibehalten werden sollte. Sobald der Quellordner leer ist soll sich der Dialog schließen.
Optimal wäre, wenn automatisch in der Datumszelle ein Hyperlink auf das umbenannte Dokument gesetzt wird.
Wenn machbar sollte bei der Namensauswahl die Namen bei denen kein Datum hinterlegt ist nicht erscheinen.
Ich denke das ist eine harte Nuss und ich weiß nicht ob das überhaupt machbar ist.
Viele Grüße,
Thomas