Método TextStyles.Add (Publisher)
Adiciona um novo objeto TextStyle à coleção TextStyles especificada e retorna o novo objeto TextStyle .
Sintaxe
expressão. Adicionar (StyleName, Font, ParagraphFormat, BasedOn)
Expressão Uma variável que representa um objeto TextStyles .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| StyleName | Obrigatório | String | O nome do novo estilo de texto. Se o nome coincidir com um estilo de texto existente, este será substituído. |
| Font | Opcional | Font | As configurações de fonte a serem aplicadas ao novo estilo de texto. |
| ParagraphFormat | Opcional | ParagraphFormat | A formatação de parágrafo a ser aplicada ao novo estilo de texto. |
| BasedOn | Opcional | String | O nome do estilo de texto no qual o novo estilo de texto é baseado. Se o nome não coincidir com um estilo de texto existente, ocorrerá um erro. |
Valor de retorno
TextStyle
Exemplo
O exemplo a seguir adiciona um novo estilo de texto à publicação ativa com base no estilo de texto Normal.
Dim tsNew As TextStyle
Set tsNew = ActiveDocument.TextStyles _
.Add(StyleName:="Title", BasedOn:="Normal")
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.