3

我有一个从 MS Excel 电子表格生成 MS Word 报告的宏。我在报告中使用的样式在宏中用英文编码。

我的一些团队将他们的 MS Office 显示语言设置为法国（这并不奇怪，我在法国工作）。因此，我的宏不起作用，因为样式标题（英文）用于设置样式。例如，我告诉 MS Word 使用样式“List Bullet 1”，而 MS Word 中的相应样式是“Liste à puce 1”，因此找不到匹配项。

所以我的问题是，如何检测 MS Office 显示语言，然后以正确的语言设置样式值？

另一个问题是，除了标题之外，还有其他引用样式的方式吗？

此致，

科尔姆

4

1 回答 1

2

科尔马空中客车公司，

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

至于更改语言设置，您可以通过引用语言 ID 轻松更改语言设置：

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
于 2012-07-30T14:59:55.087 回答