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, da sie von der voreingestellten Sprache abhängig ist.

Um nicht die Definitionen jeder einzelnen Formatvorlage »zu Fuß« kontrollieren zu müssen, schleift die folgende Prozedur durch alle im Dokument vorhandenen Formatvorlagen und stellt sie bei Bedarf auf Deutsch um. Das lässt sich natürlich auch für jede andere Sprache ausführen.

Die Schleife kann der Ausgangspunkt sein, um andere Eigenschaften/Voreinstellungen von Formatvorlagen zu ändern, etwa nach dem Beispiel von Word MVP Shauna Kelly nicht benötigte Tabellenformatvorlagen (Table styles) auszublenden.

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.