Wie kann VBA-Anwendung die richtige in -stile in Englisch und Französisch Versionen von Windows / Word-gebaut verwenden

Question

entwickeln ich eine Word 2003-Berichterstellung Anwendung, die Daten aus einer Datenbank extrahiert.

Die meisten der Organisation verwendet englischen Versionen von Windows und Office. Aber viele Anwender in unserem Französisch Büro nutzen, um ihre lokalen Versionen. Wenn ich alle Arten Einbau-Wort verwenden Heading Heading (1-9), die Französisch-Version erwartet Titre (1-9).

In meiner aktuellen Lösung, stellt der Benutzer ein Formular Option und VBA führt Folgendes aus:

Dim HeadingStyle as String
Dim HeadingLevel as Integer


If ChooseReportFrm.FrenchOpt.Value = True Then 
 HeadingStyle = "Titre "
Else
 HeadingStyle = "Heading "
End If
...

Call InsertText(HeadingStyle & CStr(HeadingLevel))

Ich möchte diesen Prozess automatische machen und völlig transparent für den Benutzer. Ich habe für eine ortsunabhängige Art und Weise vergeblich gesucht die korrekte Art, wie ein numerisches konstant einzustellen. Hat jemand irgendwelche Ideen für eine elegantere Lösung?

Answer 1

Haben Sie einen Blick auf die WdBuiltinStyle Enumeration .

Wenn Arten zuordnen, können Sie dies tun, indem sie