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.
Inserta texto horizontal en una secuencia de texto vertical y devuelve el nuevo texto horizontal como un objeto Field .
Sintaxis
expresión. AddHorizontalInVertical (Range, Text)
expresión Variable que representa un objeto Fields .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Range | Obligatorio | TextRange | Intervalo de texto en el que se va a insertar el texto horizontal. |
| Text | Obligatorio | String | Texto que se va a insertar horizontalmente. |
Valor devuelto
Field
Ejemplo
En este ejemplo se inserta horizontalmente el texto Prueba horizontal después del texto vertical existente en la forma uno de la página uno de la publicación activa.
Dim rngTemp As TextRange
Dim fldTemp As Field
With ActiveDocument.Pages(1).Shapes(1)
Set rngTemp = .TextFrame.TextRange.InsertAfter("")
Set fldTemp = .TextFrame.TextRange.Fields _
.AddHorizontalInVertical(Range:=rngTemp, Text:="Horizontal Test")
End With
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.