Share via

TextRange-Objekt (Publisher)

  • Artikel

Enthält den Text, der mit einer Form verknüpft ist, sowie Eigenschaften und Methoden für das Bearbeiten des Texts.

HinwBemerkungeneise

Verwenden Sie die TextRange-Eigenschaft des TextFrame-Objekts , um ein TextRange-Objekt für jede von Ihnen angegebene Form zurückzugeben. Verwenden Sie die Text -Eigenschaft, um die Textzeichenfolge in dem TextRange -Objekt zurückzugeben.

Verwenden Sie die ShapeRange.HasTextFrame-Eigenschaft , um zu bestimmen, ob eine Form über einen Textrahmen verfügt, und verwenden Sie die TextFrame.HasText-Eigenschaft , um zu bestimmen, ob der Textrahmen Text enthält.

Verwenden Sie die TextRange-Eigenschaft des Selection-Objekts , um den aktuell markierten Text zurückzugeben.

Verwenden Sie eine der folgenden Methoden, um einen Teil des Texts eines TextRange -Objekts zurückgeben: Characters, Zeilen, Absätze oder Wörter.

Verwenden Sie eine der folgenden Methoden können Sie Zeichen in ein TextRange -Objekt einfügen: InsertAfter, InsertBefore, InsertDateTime, InsertPageNumber oder InsertSymbol.

Beispiel

Im folgenden Beispiel wird der aktiven Publikation ein Rechteck hinzugefügt und der darin enthaltenen Text festgelegt.

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

Da es sich bei der Text -Eigenschaft um die Standardeigenschaft des TextRange -Objekts handelt, sind die folgenden beiden Anweisungen gleichbedeutend.

ActiveDocument.Pages(1).Shapes(1).TextFrame _ 
    .TextRange.text = "Here is some test text" 
ActiveDocument.Pages(1).Shapes(1).TextFrame _ 
    .TextRange = "Here is some test text"

Das folgende Beispiel kopiert die Markierung in die Zwischenablage.

Sub CopyAndPasteText() 
    With ActiveDocument 
        .Selection.TextRange.Copy 
        .Pages(1).Shapes(1).TextFrame.TextRange.Paste 
    End With 
End Sub

Das folgende Beispiel formatiert das zweite Wort in die erste Form auf der ersten Seite der aktiven Publikation. Für das Beispiel funktioniert muss die angegebene Form Text enthalten.

Sub FormatWords() 
    With ActiveDocument.Pages(1).Shapes(1).TextFrame _ 
            .TextRange.Words(2).Font 
        .Bold = msoTrue 
        .Size = 15 
        .Name = "Text Name" 
    End With 
End Sub

In diesem Beispiel wird eine neue Zeile mit Text nach jeglichen vorhandenen Text in der ersten Form auf der ersten Seite der aktiven Publikation eingefügt.

Sub InsertNewText() 
    Dim intCount As Integer 
    With ActiveDocument.Pages(1).Shapes(1).TextFrame _ 
            .TextRange 
        For intCount = 1 To 3 
            .InsertAfter vbLf  "This is a test." 
        Next intCount 
    End With 
End Sub

Methoden

Eigenschaften

Siehe auch

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.