Nota
L'accesso a questa pagina richiede l'autorizzazione. È possibile provare ad accedere o modificare le directory.
L'accesso a questa pagina richiede l'autorizzazione. È possibile provare a modificare le directory.
Inserts horizontal text into a stream of vertical text and returns the new horizontal text as a Field object.
Syntax
expression.AddHorizontalInVertical (Range, Text)
expression A variable that represents a Fields object.
Parameters
| Name | Required/Optional | Data type | Description |
|---|---|---|---|
| Range | Required | TextRange | The text range at which to insert the horizontal text. |
| Text | Required | String | The text to be horizontally inserted. |
Return value
Field
Example
This example horizontally inserts the text Horizontal Test after the existing vertical text in shape one on page one of the active publication.
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
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.