VBA アプリケーションは、英語版とフランス語版の Windows/Word 間で正しい組み込みスタイルを使用するにはどうすればよいですか?

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

  •  03-07-2019
  •  | 
  •  

質問

データベースからデータを抽出する 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))

このプロセスを自動化して、ユーザーに対して完全に透過的にしたいと考えています。列挙定数などの正しいスタイルを設定する場所に依存しない方法を探してきましたが無駄でした。誰かもっとエレガントな解決策のアイデアを持っていますか?

役に立ちましたか？

解決

を見てください。 WdBuiltinStyle 列挙.

スタイルを割り当てるときは、スタイルを割り当てることができます。 地元の名前 （これがあなたが今やっているようです）しかし、あなたの場合は、列挙値の1つを使用することもできます。 Style 財産を WdBuiltinStyle.wdStyleHeading1 うまくいくでしょう。

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

para.Style = WdBuiltinStyle.wdStyleHeading1
ライセンス： CC-BY-SA と 帰属
所属していません StackOverflow
scroll top