Hallo,
ich würde gerne eine Zeile in Word per VBA als Überschrift 1 formatieren.
Dafür verwende ich folgenden Code:

If Application.Language = 1031 Then
     Selection.Style = ActiveDocument.Styles("Überschrift 1")
    Else
     Selection.Style = ActiveDocument.Styles("Heading 1")
End If

Wenn nun jedoch eine andere Sprache als Deutsch oder Englisch in Word eingestellt ist, funktioniert dies leider nicht.

Gibt es eine Möglichkeit, dass ich einen Text als Überschrift 1 sprachenunabhängig formatiere?

Danke