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.
Mueve la posición del carácter final de un intervalo. Este método devuelve un valor Long que representa el número de unidades que el intervalo o la selección se han movido realmente, o bien devuelve 0 (cero) si el movimiento no se realizó correctamente.
Sintaxis
expresión. MoveEnd (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 | Número de unidades que se va a mover. Si el número es positivo, la posición de carácter final avanza en el documento. Si es negativo, retrocede. Si la posición final sobrepasa la inicial, se contrae el intervalo y se mueven juntas las dos posiciones. |
Valor devuelto
Long
Ejemplo
En este ejemplo se establece un intervalo de texto, se mueven las posiciones del carácter inicial y final del intervalo y, a continuación, se da formato a la fuente del intervalo.
Sub MoveStartEnd()
Dim rngText As TextRange
Set rngText = ActiveDocument.Pages(1).Shapes(1).TextFrame _
.TextRange.Paragraphs(Start:=3, Length:=1)
With rngText
.MoveStart Unit:=pbTextUnitLine, Size:=-2
.MoveEnd Unit:=pbTextUnitLine, Size:=1
With .Font
.Bold = msoTrue
.Size = 15
End With
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.