Método Range.EndOf (Word)
Mueve o extiende la posición del carácter final de un intervalo al final de la unidad de texto más próxima.
Sintaxis
expresión. EndOf( _Unit_ , _Extend_ )
expresión requerida. Variable que representa un objeto Range.
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Unit | Opcional | Variant | Unidad que se va a mover la posición de carácter final. Puede ser cualquier WdUnits, excepto wdLine. El valor predeterminado es wdWord. |
| Extend | Obligatorio | WdMovementType | Especifica si se va a mover o extender el final del intervalo. Si el valor es wdMove, ambos extremos del objeto range o selection se mueven hasta el final de la unidad especificada. Si se utiliza wdExtend, el final del intervalo o la selección se extiende hasta el final de la unidad especificada. El valor predeterminado es wdMove. |
Comentarios
Este método devuelve un valor que indica el número de posiciones de caracteres que se ha movido o extendido el intervalo o la selección; se trata de un movimiento hacia delante en el documento.
Si las posiciones tanto inicial como final del intervalo o de la selección ya están al final de la unidad especificada, este método no mueve ni extiende el intervalo ni la selección. Por ejemplo, si la selección está al final de una palabra y el espacio final, la siguiente instrucción no cambia la selección ( char es igual a 0 (cero)).
char = Selection.EndOf(Unit:=wdWord, Extend:=wdMove)
Ejemplo:
En este ejemplo se extiende la selección hasta el final del párrafo.
charmoved = Selection.EndOf(Unit:=wdParagraph, Extend:=wdExtend)
If charmoved = 0 Then MsgBox "Selection unchanged"
En este ejemplo se mueve myRange hasta el final de la primera palabra de la selección; es decir, a continuación del espacio final.
Set myRange = Selection.Characters(1)
myRange.EndOf Unit:=wdWord, Extend:=wdMove
En este ejemplo se agrega una tabla, se selecciona la primera celda de la fila dos y, a continuación, se extiende la selección al final de la columna.
Set myRange = ActiveDocument.Range(0, 0)
Set myTable = ActiveDocument.Tables.Add(Range:=myRange, _
NumRows:=5, NumColumns:=3)
myTable.Cell(2, 1).Select
Selection.EndOf Unit:=wdColumn, Extend:=wdExtend
Vea también
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.