☰

将 Word 2010 文档标签从德语转换为英语？

tag-icon • tag-icon microsoft-word microsoft-word-2010 language
将 Word 2010 文档标签从德语转换为英语？

我的一位德国同事给我发送了一个 Word 文档，让我在 Word 2010 中编辑。当我尝试标记图形时，显示的标签选项如下：

  • 画册
  • 福尔梅尔
  • 表

我如何让 Word 以英语显示选项？

如果我打开一个新文档，选项会以英文显示，因此我认为这不是系统范围内的问题。下面是我的语言偏好设置截图，来自审阅选项卡 → 语言 → 语言偏好设置...

语言偏好

我觉得这看起来非常健康。有什么办法可以解决这个问题吗？

有一个相关问题，但我不认为这适用于我，因为我只受到一份文件的影响，而这些问题中的 OP 存在系统性问题。

答案1

打开文档后，进入 VB 编辑器并创建以下 Sub。您可能需要选择 Normal 模板并使用 Insert->Module 创建可以粘贴代码的位置。替换您真正想要的语言/版本 ID。如果不是 wdEnglishUS，您可以删除“= wdEnglishUS”，然后开始重新输入。当您输入时=，VB 编辑器应该会显示列表。

Sub changeLanguage()
    ActiveDocument.Content.LanguageID = wdEnglishUS
End Sub

按 F5 运行代码。这应该会将任何新标题切换为您想要的英语。问题是，这种更改不会修改现有标题。为此，您需要执行查找/替换。标题名称在几个地方使用：

  • 字幕本身
  • 用于插入标题序列号的 { SEQ } 字段。请确保在执行任何查找/替换之前使用 Alt-F9 显示这些字段代码
  • 文档中用于插入图片列表的任何 { TOC } 字段

此外...当您指定“高于/低于”时，即使您已将主要编辑语言更改为所需的语言，Word 似乎也不会更新字段结果的文本。以下 VBA 代码尝试替换所有 REF 字段，以便让 Word 修改这些结果。它还没有经过太多测试。

Sub replaceRefFields()
Dim f As Word.Field
Dim l As Long
Dim r As Word.Range
Dim s As String
With ActiveDocument
  For l = .Fields.Count To 1 Step -1
    With .Fields(l)
      If .Type = wdFieldRef Then
        Set r = .Result
        s = .Code
        .Delete
        r.Fields.Add r, wdFieldEmpty, s, False
        Set r = Nothing
      End If
    End With
  Next
End With
End Sub

相关内容