Application.SetDefaultTheme メソッド (Word)

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

構文

式。SetDefaultTheme (Name, DocumentType)

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

パラメーター

名前 必須 / オプション データ型 説明
名前 必須 String 既定のテーマとして割り当てるテーマの名前と、適用するテーマの書式設定オプション。 この文字列の形式は "themennn" です。ここで、 テーマ と nnn は Themes テーブルで定義されています。
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 のサポートおよびフィードバックを参照してください。