This example displays the style name (in the language of the user) applied to the selected paragraphs. If more than one style has been applied to the selection, the first style name is displayed.
MsgBox Selection.Paragraphs.Style.NameLocal
This example adds the name "MyH1" as the alias for the Heading 1 style in the active document.
ActiveDocument.Styles("Heading 1").NameLocal = "MyH1"
This example renames the style named "Test" to "Intro."
ActiveDocument.Styles("Test").NameLocal = "Intro"
This example displays the name of the German language two different ways — first in the language of the user, and then in German.
MsgBox Languages(wdGerman).NameLocal
MsgBox Languages(wdGerman).Name