Método Application.SetDefaultTheme (Word)
Define um tema padrão para o Word usar com novos documentos, mensagens de email ou páginas da Web.
Sintaxe
expressão. SetDefaultTheme (Nome, DocumentType)
expressão Obrigatório. Uma variável que representa um objeto Application.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Name | Obrigatório | String | O nome do tema que você quer definir como padrão, além de quaisquer opções de formatação do tema que você queira aplicar. O formato dessa cadeia de caracteres é "themennn" em que o tema e o nnn são definidos na tabela Temas. |
| Documenttype | Obrigatório | WdDocumentMedium | O tipo do novo documento ao qual você está atribuindo um tema padrão. |
Temas
| String | Descrição |
|---|---|
| tema | O nome da pasta que contém os dados do tema desejado. (O local padrão para pastas de dados de tema é C:\Arquivos de Programa\Arquivos Comuns\Microsoft Shared\Temas.) Você deve usar o nome da pasta para o tema em vez do nome de exibição que aparece na caixa de diálogo Tema (comando Tema , menu Formatar ). |
| nnn | Uma sequência de três dígitos que indica quais opções de formatação do tema devem ser ativadas (1 para ativar, 0 para desativar). Os dígitos correspondem às caixas de seleção Cores vivas, Elementos gráficos ativos e Imagem de plano de fundo na caixa de diálogo Tema (comando Tema, menu Formatar). Se essa cadeia de caracteres for omitida, o valor padrão para nnn será "011" (Active Graphics e Background Image serão ativados). |
Comentários
A configuração de um tema padrão não aplicará esse tema ao documento em branco criado automaticamente ao iniciar o Word. Todos os novos documentos criados depois disso terão o tema padrão.
Você também pode usar a propriedade ThemeName para retornar e definir o tema padrão para novas mensagens de email.
Exemplo
Este exemplo especifica que o Word usa o tema Blueprint para todas as novas mensagens de email.
Application.SetDefaultTheme "blueprnt", wdEmailMessage
Este exemplo especifica que o Word usa o tema Expedição com o Active Graphics para todas as novas páginas da Web.
Application.SetDefaultTheme "expeditn 010", wdWebPage
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.