Método Selection.MoveEndUntil (Word)
Mueve la posición final de la selección especificada hasta que se encuentre en el documento alguno de los caracteres especificados.
Sintaxis
expresión. MoveEndUntil( _Cset_ , _Count_ )
expresión requerida. Variable que representa un objeto Selection.
Parámetros
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Cset | Obligatorio | Variant | Uno o más caracteres. Este argumento distingue mayúsculas de minúsculas. |
| Count | Opcional | Variant | El número máximo de caracteres que se va a mover la selección especificada. Puede ser un número o constante wdForward o wdBackward. Si Count es un número positivo, la selección se mueve hacia delante en el documento. Si es un número negativo, la selección se mueve hacia atrás. El valor predeterminado es wdForward. |
Valor devuelto
Long
Comentarios
Este método devuelve un valor Long que representa el número de caracteres que se haya movido la posición final de la selección especificada. Si Count es mayor que 0 (cero), este método devuelve el número de caracteres movidos más 1. Si Count es menor que 0 (cero), este método devuelve el número de caracteres movidos menos 1. Si no se encontró ningún carácter de Cset, la selección no cambia y el método devuelve 0 (cero). Si la posición final retrocede a un punto anterior a la posición inicial original, esta posición se establece como la nueva posición final.
Si el movimiento se realiza hacia delante, la selección se expande.
Ejemplo:
En este ejemplo, la selección avanza en el documento hasta que se encuentre la letra "a". A continuación, se expande un carácter para que incluya la letra "a".
With Selection
.MoveEndUntil Cset:="a", Count:=wdForward
.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
End With
En este ejemplo, la selección avanza en el documento hasta que se encuentre una tabulación. Si no se encuentra ninguna tabulación en los siguientes 100 caracteres, la selección no se mueve.
char = Selection.MoveEndUntil(Cset:=vbTab, Count:=100)
If char = 0 Then StatusBar = "Selection not moved"
Consulte 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.