Compartir a través de


Método Document.Range (Word)

Devuelve un objeto Range con el de inicio especificado y terminando posiciones de carácter.

Sintaxis

expresión. Intervalo (Inicio, Fin)

expresión requerida. Variable que representa un objeto Document.

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
Start Opcional Variant Posición del carácter inicial.
End Opcional Variant Posición del carácter final.

Valor devuelto

Rango

Ejemplo:

En este ejemplo se aplica formato de negrita a los 10 primeros caracteres del documento activo.

Sub DocumentRange() 
 ActiveDocument.Range(Start:=0, End:=10).Bold = True 
End Sub

En este ejemplo se crea un intervalo que se inicia al principio del documento activo y termina en la posición del cursor y, a continuación, se cambian todos los caracteres dentro de ese intervalo a mayúsculas.

Sub DocumentRange2() 
 Dim r As Range 
 Set r = ActiveDocument.Range(Start:=0, End:=Selection.End) 
 r.Case = wdUpperCase 
End Sub

En este ejemplo se crea y establece la variable myRange en párrafos de dos a cuatro del documento activo y, a continuación, se alinean a la derecha los párrafos del intervalo.

Sub DocumentRange3() 
 Dim aDoc As Document 
 Dim myRange As Range 
 Set aDoc = ActiveDocument 
 If aDoc.Paragraphs.Count >= 6 Then 
 Set myRange = aDoc.Range(aDoc.Paragraphs(2).Range.Start, _ 
 aDoc.Paragraphs(4).Range.End) 
 myRange.Paragraphs.Alignment = wdAlignParagraphRight 
 End If 
End Sub

Consulte también

Objeto Document

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.