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

• Duplicate
• GetScriptName
• Grow
• Reset
• SetScriptName
• Shrink

Propiedades

• AllCaps
• Application
• AttachedToText
• AutomaticPairKerningThreshold
• Bold
• BoldBi
• ContextualAlternates
• DiacriticColor
• ExpandUsingKashida
• Fill
• Glow
• Italic
• ItalicBi
• Kerning
• Ligadura
• Line
• Name
• NumberStyle
• Parent
• Position
• Reflection
• Scaling
• Size
• SizeBi
• SmallCaps
• StrikeThrough
• StylisticAlternates
• StylisticSets
• SubScript
• SuperScript
• Carácter decorativo
• TextShadow
• ThreeD
• Seguimiento
• TrackingPreset
• Underline
• UseDiacriticColor

Vea también

• Referencia del modelo de objetos de Publisher

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.