Nota:
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
Contrae el intervalo especificado a su posición inicial o final y, a continuación, mueve el objeto contraído por el número especificado de unidades. Este método devuelve un Long que representa el número de unidades que se ha movido realmente el objeto, o bien devuelve 0 (cero) si el movimiento se ha realizado correctamente.
Sintaxis
expresión. Mover (unidad, tamaño)
expresión Variable que representa un objeto TextRange .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Unit | Obligatorio | PbTextUnit | Unidad que se utilizará para mover el intervalo o selección contraídos. Puede ser una de las constantes PbTextUnit declaradas en la biblioteca de tipos de Microsoft Publisher. |
| Size | Obligatorio | Long | El número de unidades que se moverá el intervalo o selección especificados. Si el tamaño es un número positivo, el objeto se contrae hasta su posición final y se mueve hacia delante en el documento, el número especificado de unidades. Si el tamaño es un número negativo, el objeto se contrae hasta su posición de inicio y se mueve hacia atrás el número de unidades especificado. También puede controlar la dirección de contraer mediante el método Collapse antes de usar el método Move . |
Valor devuelto
Long
Ejemplo
En este ejemplo se contrae el intervalo especificado y se inserta una oración nueva al principio del intervalo.
Sub MoveText()
Dim rngText As TextRange
Set rngText = ActiveDocument.Pages(1).Shapes(1).TextFrame _
.TextRange.Words(Start:=1, Length:=5)
With rngText
.Move Unit:=pbTextUnitParagraph, Size:=-1
.Text = "This adds new text to the beginning of the range. "
End With
End Sub
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.