Fields.AddHorizontalInVertical method (Publisher)

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.