Fields.AddHorizontalInVertical-Methode (Publisher)

Fügt horizontalen Text in einen Vertikalen Textstrom ein und gibt den neuen horizontalen Text als Field-Objekt zurück.

Syntax

Ausdruck. AddHorizontalInVertical (Bereich, Text)

Ausdruck Eine Variable, die ein Fields-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Range	Erforderlich	TextRange	Der Textbereich, in den der horizontale Text eingefügt werden soll.
Text	Erforderlich	String	Der Text, der horizontal eingefügt werden soll.

Rückgabewert

Feld

Beispiel

In diesem Beispiel wird der Text Horizontaler Test nach dem vorhandenen vertikalen Text in Form 1 auf Seite 1 der aktiven Publikation horizontal eingefügt.

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 und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.