Application.SetDefaultTheme メソッド (Word)

Word が新しい文書、電子メール メッセージ、または Web ページで使用する既定のテーマを設定します。

構文

SetDefaultTheme (Name, DocumentType)

expression 必須です。 Application オブジェクトを表す変数を指定します。

パラメーター

名前 必須 / オプション データ型 説明
名前 必須 String 既定のテーマとして割り当てるテーマの名前と、適用するテーマの書式設定オプション。 この文字列の形式は "themennn" です。ここで、 テーマnnnThemes テーブルで定義されています。
DocumentType 必須 WdDocumentMedium 既定のテーマを割り当てる新規文書の種類を指定します。

テーマ

String 説明
theme 要求されるテーマのデータが保存されたフォルダーの名前です。 (テーマ データ フォルダーの既定の場所は C:\Program Files\Common Files\Microsoft Shared\Themes です。)[テーマ] ダイアログ ボックス ([テーマ] コマンドの [書式] メニュー) に表示される表示名ではなく、テーマのフォルダー名を使用する必要があります。
nnn 有効にするテーマの書式オプション (1 は有効、0 は無効) を示す 3 桁の文字列です。 各桁は、[テーマ] ダイアログ ボックス ([書式] メニューの [テーマ]) の [鮮明な色]、[アクティブ グラフィックス]、および [背景のイメージ] チェック ボックスと対応しています。 この文字列を省略した場合、 nnn の既定値は "011" になります (アクティブ グラフィックスと背景画像はアクティブ化)。

注釈

既定のテーマの設定は、Word の起動時に自動的に作成される新しい文書には適用されません。 起動後に作成した新しい文書には、既定のテーマが適用されます。

また、ThemeName プロパティを使用して、新しい電子メール メッセージの既定のテーマを返し設定することもできます。

この例では、すべての新規電子メール メッセージに Word でブループリントのテーマを使用するように指定します。

Application.SetDefaultTheme "blueprnt", wdEmailMessage

この例では、すべての新規 Web ページに Active Graphics Word Expedition テーマを使用することを指定します。

Application.SetDefaultTheme "expeditn 010", wdWebPage

関連項目

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。