Método Selection.EndOf (Word)

Mueve o extiende la posición del carácter final de un intervalo o de una selección 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 Selection.

Parámetros

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Unit	Opcional	Variant	Unidad que se va a mover la posición de carácter final. WdUnits.
Extend	Opcional	Variant	Puede ser cualquiera de las constantes WdMovementType. Si 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

Consulte también

Objeto Selection

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.