Verwendete Fonts finden

Hallo, liebe Mitstreiter!

Kennt jemand eine Möglichkeit, in Word per Script oder mit einem externen Programm alle verwendeten Fonts herauszufinden, die in mehreren Worddokumenten verwendet werden? Z. B. so, dass man einen Ordner mit Dokumenten angibt und eine Fontliste herausbekommt, damit man feststellen kann, welche Fonts man evtl. nachträglich installieren muss.

Ich such das schon lange, google auch immer mal wieder danach, aber bisher ohne Erfolg ...

Wer weiß Rat?
Gruß
kuer.gee

 

Hallo kuer.gee

1. Ein fertiges AddIn, das zeigt, welche Fonts noch nachinstalliert werden müssten, ist mir nicht bekannt.


2. Man kann die verwendeten Fonts aber aus der Datei auslesen, im Klartext, aber im Hex-Format.
Oeffne eine Word-Datei in einem Hex-Viewer (oder einem Hex-Editor - aber Vorsicht > wenn dort versehentlich etwas geändert wird, ist die Datei vielleicht zerstört...)
Ganz am Ende der Datei stehen die verwendeten Fonts im Text, in Textfeldern, in Kommentaren....
...aber eigenartigerweise nicht in Diagrammen, diese stehen mitten drin.
Bis Word2003 geht das, bei Word2007 weiss ich nicht... wohl eher nicht...

Ich kann diese Fontnamen sehen, aber ich habe keine Ahnung, wie ich diese automatisiert dort auslesen könnte.


3. Ein VBA-Script kann fast alles... es gibt aber keine Eigenschaft die er abfragen könnte, welche Fonts die Datei enthält.
Er muss deshalb jedes Zeichen einzeln prüfen, schauen ob der Font neu ist und diesen gegebenenfalls speichern.
Jedes Zeichen einzeln, weil oft die Schrift wechselt, um ein einzelnes, im Originalfont nicht vorhandenes Zeichen einzugeben.

Nachteile >
- der Script prüft nur den Haupttext, Textfelder, Diagramme usw bleiben ungeprüft.
- der Code hat sehr viel zu tun und ist entsprechend langsam.
Ein kurzes Dokument mit 100+ Zeichen vielleicht eine Sekunde.
Ich habe ein Dokument mit 100'000 Zeichen und Leerstellen (25 Seiten) durchlaufen lassen >>> 70 Sekunden !

Mit ganzen Verzeichnissen kommt man natürlich schnell auf enorme Datenmengen...


4. ...wenn Du trotz dieser Mängel Verwendung dafür hättest, könnte ich Dir einen benutzerfreundlichen Code dafür basteln.
Für mich würde ich es nicht verwenden, die seltsamen Schriften sind ja meistens in Diagrammen oder Zeichnungen. Wenn es dann sein muss, schaue ich lieber in den Hex-Viewer...

Gruss Urs

 

hmmmmh........ es kam noch ein verspäteter Gedankenblitz vorbei....

Das oben beschriebene Makro kann nicht richtig funktionieren, weil...
...Word automatisch eine ihm ähnlich erscheinende Schrift verwendet, wenn die verlangte Schrift nicht installiert ist.
Wenn es gar keine Aehnlichkeit finden sollte, weiss ich jetzt auch nicht, was es dann tut...

Das bedeutet, dass das Makro auf alle Fälle den von Word automatisch genommenen Ersatz auslesen muss, und nicht das, was eigentlich vorgesehen war.

Es bleibt also nur, die Datei auszulesen bevor sie Word geöffnet hat.
Eine einzelne Problem-Datei schaue ich mir im Hex-Viewer an, bei ganzen Serien wäre das natürlich eine geisttötende Arbeit.
Allerdings könnte man vielleicht davon ausgehen, dass alle Dateien vom gleichen Ersteller denselben seltsamen Font verwenden...

Um das zu automatisieren braucht es zuerst einmal viel Fachwissen, wie Word die Dateien genau speichert, um auch am richtigen Ort suchen zu können... und dieses Wissen habe ich nicht.

Gruss Urs

 

Von sich aus sicher nicht.
Aber wenn beim Schliessen auf die Frage "Wollen sie die Aenderungen speichern..." der schnelle Klick-Finger bejaht ?
Oder wenn die Datei tatsächlich geändert wurde und gespeichert werden soll ?
Ich weiss nicht, was dann passiert...

Wie ich das testen könnte... ich habe keine Dateien mit exotischen Fonts.

Gruss Urs