HeaderFooter.TextRange-Eigenschaft (Publisher)

Gibt ein TextRange-Objekt zurück, das den an eine Form angefügten Text sowie die Eigenschaften und Methoden zum Bearbeiten des Texts darstellt.

Syntax

Ausdruck. Textrange

Ausdruck Eine Variable, die ein HeaderFooter-Objekt darstellt.

Beispiel

Das folgende Beispiel fügt Text zu dem Textrahmen von Form 1 in der aktiven Publikation hinzu und formatiert dann den neuen Text. Dieses Beispiel geht davon aus, dass sich auf der ersten Seite der aktiven Publikation mindestens eine Form befindet.

Sub AddTextToTextFrame() 
 With ActiveDocument.Pages(1).TextFrame.TextRange 
 .Text = "My Text" 
 With .Font 
 .Bold = msoTrue 
 .Size = 25 
 .Name = "Arial" 
 End With 
 End With 
End Sub

Das folgende Beispiel fügt ein Rechteck zu der aktiven Publikation hinzu und fügt diesem Text hinzu.

Sub AddTextToShape() 
 With ActiveDocument.Pages(1).Shapes.AddShape(Type:=msoShapeRectangle, _ 
 Left:=72, Top:=72, Width:=250, Height:=140) 
 .TextFrame.TextRange.Text = "Here is some test text" 
 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.