Objeto Font (Publicador)

Contiene los atributos de fuente de un objeto (nombre de fuente, tamaño de fuente, color, etc.).

Observaciones

Utilice la propiedad TextStyle.Font para devolver el objeto Font .

Ejemplo

La siguiente instrucción aplica formato de negrita a la selección.

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

En el siguiente ejemplo se da el formato de Arial, 24 puntos y cursiva al primer párrafo de la publicación activa.

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

En el siguiente ejemplo se cambia el formato del Estilo Título 2 de la publicación activa a Arial y negrita.

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

También puede duplicar un objeto Font mediante la propiedad TextRange.Duplicate . En el ejemplo siguiente se crea un nuevo estilo de carácter con el formato de caracteres de la selección y el formato de cursiva. No se cambia el formato de la selección.

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

Propiedades

Vea también

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.

  • Last updated on