Aplicar formato al texto
En este tema se incluyen ejemplos de Visual Basic relacionados con las tareas de las secciones siguientes.
Aplicar formato a la selección
En el ejemplo siguiente se usa la propiedad Selection para aplicar formato de caracteres y párrafos al texto seleccionado. Use la propiedad Font para obtener acceso a las propiedades y los métodos de formato de carácter y use la propiedad ParagraphFormat para obtener acceso a las propiedades y los métodos de formato de párrafo.
Sub FormatSelection()
With Selection.Font
.Name = "Times New Roman"
.Size = 14
.AllCaps = True
End With
With Selection.ParagraphFormat
.LeftIndent = InchesToPoints(0.5)
.Space1
End With
End Sub
Aplicar formato a un intervalo
En el ejemplo siguiente se define un objeto Range que hace referencia a los tres primeros párrafos del documento activo. El objeto Range recibe el formato aplicando las propiedades del objeto Font y del objeto ParagraphFormat.
Sub FormatRange()
Dim rngFormat As Range
Set rngFormat = ActiveDocument.Range( _
Start:=ActiveDocument.Paragraphs(1).Range.Start, _
End:=ActiveDocument.Paragraphs(3).Range.End)
With rngFormat
.Font.Name = "Arial"
.ParagraphFormat.Alignment = wdAlignParagraphJustify
End With
End Sub
Insertar texto y aplicar formato de carácter y de párrafo
En el ejemplo siguiente se agrega la palabra "Título" en la parte superior del documento actual. El primer párrafo está centrado y se agrega un espaciado de 1,2 cm después del párrafo. La palabra "Título" tiene formato de fuente Arial de 24 puntos.
Sub InsertFormatText()
Dim rngFormat As Range
Set rngFormat = ActiveDocument.Range(Start:=0, End:=0)
With rngFormat
.InsertAfter Text:="Title"
.InsertParagraphAfter
With .Font
.Name = "Tahoma"
.Size = 24
.Bold = True
End With
End With
With ActiveDocument.Paragraphs(1)
.Alignment = wdAlignParagraphCenter
.SpaceAfter = InchesToPoints(0.5)
End With
End Sub
Alternar el espaciado antes de un párrafo entre 12 puntos y ninguno
En el ejemplo siguiente se cambia el formato del espaciado antes del primer párrafo de la selección. La macro recupera el espacio actual antes del valor y, si el valor es de 12 puntos, se quita el formato space-before (la propiedad SpaceBefore se establece en cero). Si el valor de espacio antes es distinto de 12, la propiedad SpaceBefore se establece en 12 puntos.
Sub ToggleParagraphSpace()
With Selection.Paragraphs(1)
If .SpaceBefore = 12 Then
.SpaceBefore = 0
Else
.SpaceBefore = 12
End If
End With
End Sub
Activar y desactivar el formato de negrita
En el siguiente ejemplo, se cambia el formato de negrita de la selección.
Sub ToggleBold()
Selection.Font.Bold = wdToggle
End Sub
Aumentar el margen izquierdo de 1,2 cm
En el ejemplo siguiente se aumentan los márgenes derechos e izquierdos de 1,2 cm. El objeto PageSetup contiene todos los atributos de configuración de página de un documento (como margen izquierdo, margen inferior y tamaño de papel) como propiedades. La propiedad LeftMargin se usa para devolver y establecer la configuración del margen izquierdo. La propiedad RightMargin se usa para devolver y establecer la configuración del margen derecho.
Sub FormatMargins()
With ActiveDocument.PageSetup
.LeftMargin = .LeftMargin + InchesToPoints(0.5)
.RightMargin = .RightMargin + InchesToPoints(0.5)
End With
End Sub
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.
Comentarios
https://aka.ms/ContentUserFeedback.
Próximamente: A lo largo de 2024 iremos eliminando gradualmente GitHub Issues como mecanismo de comentarios sobre el contenido y lo sustituiremos por un nuevo sistema de comentarios. Para más información, vea:Enviar y ver comentarios de