Aplicar formato al texto

Office 2013 and later

En el ejemplo siguiente, se usa la propiedad Selection para aplicar formato a los caracteres y los párrafos del 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

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

En el siguiente ejemplo, se agrega la palabra "Title" en la parte superior del documento actual. El primer párrafo está alineado al centro y detrás de él se agrega un espaciado de 0,5 pulgadas. La palabra "Title" 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

En el siguiente ejemplo, se cambia el formato de espacio antes del primer párrafo de la selección. La macro recupera el valor actual de espacio antes, que es de 12 puntos, y se quita el formato de espacio antes (la propiedad SpaceBefore se ajusta 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 <> 0 Then 
 .SpaceBefore = 0 
 Else 
 .SpaceBefore = 6 
 End If 
 End With 
End Sub

En el siguiente ejemplo, se cambia el formato de negrita de la selección.

Sub ToggleBold() 
 Selection.Font.Bold = wdToggle 
End Sub

En el ejemplo siguiente, se aumentan los márgenes izquierdo y derecho en 0,5 pulgadas. 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
Mostrar: