vba - VBA 应用程序如何在英语和法语版本的 Windows/Word 中使用正确的内置样式

Question

我开发了一个 Word 2003 报告生成应用程序，用于从数据库中提取数据。

大多数组织使用英文版的 Windows 和 Office。但是，我们法国办事处的许多用户都使用他们的本地版本。如果我使用 Word 的任何内置标题样式标题 (1-9)，则法语版本需要标题 (1-9)。

在我当前的解决方案中，用户设置表单选项，VBA 执行以下操作:

Dim HeadingStyle as String
Dim HeadingLevel as Integer


If ChooseReportFrm.FrenchOpt.Value = True Then 
 HeadingStyle = "Titre "
Else
 HeadingStyle = "Heading "
End If
...

Call InsertText(HeadingStyle & CStr(HeadingLevel))

我想让这个过程自动进行并且对用户完全透明。我一直在徒劳地寻找一种与位置无关的方法来设置正确的样式，例如枚举常量。有人对更优雅的解决方案有任何想法吗？

Answer 1

看看 WdBuiltinStyle Enumeration 。

指定样式时，您可以通过它们的 local name 来完成此操作(这就是您现在所做的)，但您也可以使用枚举值之一，在您的情况下，将 Style 属性设置为 WdBuiltinStyle.wdStyleHeading1 会执行以下操作技巧。

Dim para As Paragraph
Set para = ActiveDocument.Paragraphs(1)

para.Style = WdBuiltinStyle.wdStyleHeading1