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.