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.