Alle Formatvorlagen auf Deutsch umstellen

Werden Dokumente von verschiedenen Benutzern bearbeitet und übersetzt, sammeln sich in Dokumenten unter Umständen unbemerkt Formatvorlagen mit anderen Sprachen an. Wenn der Benutzer nun unbekümmert Texte überschreibt, ohne besonders darauf zu achten, welche Sprache einer bestimmten Formatvorlage zugewiesen ist, wird die Silbentrennung nicht mehr zuverlässig funktionieren, denn diese ist abhängig von der voreingestellten Sprache.
Um nicht die Definitionen jeder einzelnen Formatvorlage »zu Fuß« kontrollieren zu müssen, vereinheitlicht die folgende Prozedur alle im Dokument vorhandenen Formatvorlagen auf Deutsch. Das lässt sich natürlich auch für jede andere Sprache ausführen.


Sub SpracheAufDeutschUmstellen()  
' Alle Formatvorlagen auf Deutsch umstellen ' © Schreibbüro Nora Richter
Dim FV As Word.Style

For Each FV In ActiveDocument.Styles
If FV.Type < 3 Then
' 1 und 2 sind FV mit Spracheigenschaft (Absatz, Zeichen),
' 3 und 4 sind solche ohne (Tabelle, Liste)
FV.LanguageID = wdGerman
End If
Next FV
End Sub

So ordnen Sie dem Makro eine Schaltfläche auf einer Symbolleiste oder einen Shortcut zu: → Tutorial: VBA-Code für Makro einbringen und verwenden.

Schreibbüro Richter, Georg-Schumann-Str. 8, 04105 Leipzig, Tel.: (03 41) 59 008 95