Microsoft Word 2013 忽略脚注的语言设置

Question

我有：

• Microsoft Office Home and Business 2013 英文版
• Windows 10 专业英语，

但我正在编辑波兰语文本。

我已经永久改变了脚注文本-style 的语言为波兰语，但这会被忽略并“重置”为英语（英国）每次我添加新的脚注：

每次添加新脚注时，我都需要进入样式设置并关闭此对话框好的（改变脚注文本-style 的语言不需要再次转换为波兰语；打开此对话框时，波兰语会被正确检查，如您在上面的屏幕截图中所见）。

或者我必须手动更改此行的语言（对于每个新的脚注）。

更奇怪的是，在写下新的脚注之后：

• 当我选择单个单词或不选择任何内容（仅将光标放在脚注的行中）时，状态栏显示此行的语言设置为英语（英国）（如截图所示），
• 当我选择整个脚注的行（即左键单击左边距）时，状态栏显示同一行的语言设置为抛光，

然后再回来：抛光（选择整行时）或英语（英国）（当选择其中的一部分或者不选择任何内容时）。

这是已知的问题吗？是一些错误还是奇怪的功能？有没有什么解决方法？

这个问题发生在（就我而言）脚注文本仅限样式的语言。对所有其他样式和样式属性的更改都是永久性的，我无需手动更改任何内容。

编辑：样式已定义，语言已设置为。这是我做的第一件事。然而，样式定义中的语言总是被忽略，每次添加新脚注时Polish都会重置为 。English (United Kingdom)。

Answer 1

最好的方法是更改​​文档中使用的页脚样式定义。这是一种更好的方法，因为使用该样式的任何文本都会立即受到影响（您已经修改了样式的页脚除外）：

1. 显示功能区上的“主页”选项卡。
2. 单击样式组右下角的小图标。Word 显示样式任务窗格。
3. 在显示的样式列表中，将鼠标指针悬停在要更改的样式名称上，此处为Footer和/或Footnote Text。样式名称右侧应出现一个下拉箭头。
4. 单击下拉箭头并选择调整. Word 显示“修改样式”对话框。
5. 点击格式并选择语言从下拉列表中选择“语言”。Word 将显示“语言”对话框。
6. 选择您希望使用该样式格式化的任何文本使用的语言。
7. 单击“确定”。
8. 单击“确定”关闭“修改样式”对话框。

---

经过进一步研究后，我发现上述建议是有效的，但是 Word 中有一个错误使其无效：通过功能区插入脚注时，Word 会在脚注中附加一个空格字符，而该脚注的语言样式不正确。

补救措施是将每个脚注都以 开头Backspace，这将删除该字符并仅保留符合正确脚注文本样式的文本。

资料来源：

• Word for Mac 2011 在脚注中恢复为美国语言
• 脚注默认使用键盘语言，而不是主文本指定的语言

请注意，最后一个源代码是在 2011 年 10 月创建的。当时这个错误被报告给了微软，但在过去的 8 年里从未得到解决。

Answer 2

就解决方法而言，我编写了以下宏（英国和美国英语和德语有同样的问题；宏受到 harrymc 的回答和所参考的来源的启发）。特里格拉夫

Sub InsertFootnoteNow()

' Intercepts built-in command

' Stand-alone macro is used (as opposed to built-in command) because footnote proofing language _
    cannot be permanently assigned to footnote text via style formatting but will switch back to system language settings. _
    Macro provides for work-around insofar as (1) the system language settings pertain to a single space character _
    Word appends to the footnote reference in the footer which is (2) deleted by this macro.

    If Selection.StoryType <> wdMainTextStory Then
        MsgBox "Footnotes can only be added to the main text body of the document." ' Preventing VBA/macro error if macro is triggered while selection/cursor is in footnote text 
    Else
        With Selection
            With .FootnoteOptions
                    .Location = wdBottomOfPage
                    .NumberingRule = wdRestartContinuous
                    .StartingNumber = 1
                    .NumberStyle = wdNoteNumberStyleArabic
                    .LayoutColumns = 0
            End With
            .Footnotes.Add Range:=Selection.Range, Reference:=""
        End With
        Selection.TypeBackspace
        Selection.TypeText Text:=vbTab ' Tab added to ensure justified alignment for my footnote text style paragraph settings
    End If

End Sub

Sub InsertFootnote()

    ' Intercepts built-in command prompting insert footnote dialog

    Call InsertFootnoteNow

End Sub