我有一个从 MS Excel 电子表格生成 MS Word 报告的宏。我在报告中使用的样式在宏中用英文编码。
我的一些团队将他们的 MS Office 显示语言设置为法国(这并不奇怪,我在法国工作)。因此,我的宏不起作用,因为样式标题(英文)用于设置样式。例如我告诉 MS Word 使用样式“List Bullet 1”,而 MS Word 中相应的样式是“Liste à puce 1”,所以找不到匹配项。
所以我的问题是,如何检测 MS Office 显示语言,然后以正确的语言设置样式值?
另一个问题是,除了标题之外,还有其他引用样式的方式吗?
最好的问候,
冷
最佳答案
科尔马航空,
GSerg 的链接为 Microsoft VBA 如何处理语言设置提供了很好的引用。
使用 VBA,您可以出于各种目的引用 Word 中的语言。例如,您可以确定当前语言,将其存储在变量中,然后在消息框中显示:
Sub LanguageMessageBox()
CurrentLanguage = Selection.LanguageID
MsgBox (CurrentLanguage)
End Sub
您可以在此处找到语言 ID 列表:http://msdn.microsoft.com/en-us/library/bb213877(v=office.12).aspx
您也可以简单地引用语言本身,特别是如果您不想查看数字或以某种算法方式使用数字:
Sub LanguageMessageBox()
CurrentLanguage = Selection.LanguageID
MsgBox (Languages(CurrentLanguage))
End Sub
至于更改语言设置,您可以通过引用languageID轻松更改语言设置:
Sub ChangeLanguage()
' 1033 is wdEnglishUS
' 1034 is wdSpanish
' 1036 is wdFrench
If Selection.LanguageID = 1033 Then
Selection.LanguageID = 1034
Else
Selection.LanguageID = 1036
End If
'Set the grammar dictionary for error checking purposes
Set dicGrammar = Languages(Selection.LanguageID).ActiveGrammarDictionary
End Sub
关于vba - 如何识别 MS Office 在 Visual Basic 中使用的显示语言(即工具栏/菜单)?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/11719754/