Compartilhar via

Objeto TextStyle (Publicador)

  • Artigo

Representa um único estilo interno ou definido pelo usuário. O objeto TextStyle inclui os atributos de estilo (fonte, estilo da fonte, espaçamento de parágrafo e assim por diante) como propriedades do objeto TextStyle.

O objeto TextStyle é um membro do TextStyles coleção. Coleção TextStyles inclui todos os estilos no documento especificado.

Comentários

Use TextStyles (index), em que index é o número ou o nome do estilo de texto, para retornar um único objeto TextStyle . Você deve corresponder exatamente a ortografia e o espaçamento do nome do estilo, mas não necessariamente seu uso de maiusculas.

Use o método TextStyles.Add para criar um novo estilo.

Para aplicar um estilo a um intervalo, parágrafo ou vários parágrafos, defina a propriedade ParagraphFormat.TextStyle como um nome de estilo definido pelo usuário ou interno.

Exemplo

O exemplo a seguir exibe o nome do estilo e o estilo base da primeiro estilo na coleção TextStyles.

Sub BaseStyleName() 
 With ActiveDocument.TextStyles(1) 
 MsgBox "Style name= " & .Name _ 
 & vbCr & "Base style= " & .BaseStyle 
 End With 
End Sub

O exemplo a seguir cria um novo estilo e o aplica ao parágrafo na posição do cursor.

Sub ApplyTextStyle() 
 Dim styNew As TextStyle 
 Dim fntStyle As Font 
 
 'Create a new style 
 Set styNew = ActiveDocument.TextStyles.Add(StyleName:="NewStyle") 
 Set fntStyle = styNew.Font 
 
 'Format the Font object 
 With fntStyle 
 .Name = "Tahoma" 
 .Size = 20 
 .Bold = msoTrue 
 End With 
 
 'Apply the Font object formatting to the new style 
 styNew.Font = fntStyle 
 
 'Apply the new style to the selected paragraph 
 Selection.TextRange.ParagraphFormat.TextStyle = "NewStyle" 
End Sub

Métodos

Propriedades

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.