Compartilhar via

Objeto Font (Publisher)

  • Artigo

Contém atributos de fonte (nome da fonte, tamanho da fonte, cor etc.) de um objeto.

Comentários

Use a propriedade TextStyle.Font para retornar o objeto Font .

Exemplo

A instrução a seguir aplica formatação em negrito à seleção.

Sub BoldText() 
 Selection.TextRange.Font.Bold = True 
End Sub

O exemplo a seguir formata o primeiro parágrafo na publicação ativa como Arial de 24 pontos em itálico.

Sub FormatText() 
 Dim txtRange As TextRange 
 Set txtRange = ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange 
 With txtRange.Font 
 .Bold = True 
 .Name = "Arial" 
 .Size = 24 
 End With 
End Sub

O exemplo a seguir altera a formatação do estilo 'Título 2' na publicação ativa para Arial e negrito.

Sub FormatStyle() 
 With ActiveDocument.TextStyles("Normal").Font 
 .Name = "Tahoma" 
 .Italic = True 
 .Size = 15 
 End With 
End Sub

Você também pode duplicar um objeto Font usando a propriedade TextRange.Duplicate . O exemplo a seguir cria um novo estilo de caractere com a formatação da seleção além de formatação em itálico de caracteres. Não é alterada a formatação da seleção.

Sub DuplicateFont() 
 Dim fntNew As Font 
 Set fntNew = Selection.TextRange.Font.Duplicate 
 fntNew.Italic = True 
 ActiveDocument.TextStyles.Add(StyleName:="Italics").Font = fntNew 
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.