TextRange.Expand-Methode (Publisher)

Erweitert den angegebenen Bereich oder einer Auswahl. Zurückgeben oder Festlegen einer Long, der die Anzahl der angegebenen Einheiten, die hinzugefügt werden, der Bereich oder einer Auswahl darstellt.

Syntax

Ausdruck. Erweitern (Einheit)

Ausdruck Eine Variable, die ein TextRange-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Unit	Erforderlich	PbTextUnit-Wert	Die Einheit, um die der Bereich erweitert werden soll. Dies kann eine der pbTextUnit-Konstanten sein, die in der Microsoft Publisher-Typbibliothek deklariert sind.

Rückgabewert

Long

Hinweise

Die Expand-Methode verschiebt bei Bedarf beide Endpunkte eines Bereichs. Um nur einen Endpunkt eines Bereichs zu verschieben, verwenden Sie die MoveStart-Methode oder die MoveEnd-Methode .

Beispiel

Dieses Beispiel erstellt einen Bereich, der auf das erste Wort in der ersten Form der aktiven Publikation verweist. Es formatiert weiterhin die Schriftart für das Wort und erweitert dann den Bereich so, dass er auf den gesamten ersten Absatz verweist und formatiert die Schriftart für die ganze Zeile.

Sub ExpandRange() 
 Dim rngText As TextRange 
 
 Set rngText = ActiveDocument.Pages(1).Shapes(1) _ 
 .TextFrame.TextRange.Words(Start:=1, Length:=1) 
 With rngText 
 With .Font 
 .Size = 20 
 .Italic = msoTrue 
 End With 
 .Expand Unit:=pbTextUnitLine 
 .Font.Bold = msoTrue 
 End With 
End Sub

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.