如何可以引擎以及易于使用的使用正确的内在的样式英文和法文版本的Windows/Word

StackOverflow https://stackoverflow.com/questions/807327

  •  03-07-2019
  •  | 
  •  

题

我发明了一个词2003年报告产生的应用程序提取数据，从数据库。

大多数组织采用英文版本的Windows和办公室。但是，许多用户在我们的法国人办公室使用自己的当地版本。如果我使用的任何词的内在标题式的标题(1至9)，法语版本预计Titre(1至9)。

在我的前的解决方案，用户设置的一种形式的选择，随时随地！不会如下：

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))

我想让这个过程自动的，并完全透明的用户。我一直在寻找徒劳的一位独立的方式设置纠正式的，如列举的一个恒定不变。没有任何人有任何想法，更优雅的解决方案吗？

有帮助吗？

解决方案

看看 WdBuiltinStyle 枚举.

当分配风格,您可以通过他们的 地方名称 (这是什么看来你现在做的)，但是也可以使用一枚举，值，在你的情况下设置的 Style 酒店来 WdBuiltinStyle.wdStyleHeading1 就可以做到。

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

para.Style = WdBuiltinStyle.wdStyleHeading1
许可以下： CC-BY-SA 和 归因
不隶属于 StackOverflow
scroll top