TextRange.Duplicate-Eigenschaft (Publisher)

Gibt ein TextRangeObjekt zurück, das ein Duplikat des angegebenen Textbereichs darstellt.

Syntax

Ausdruck. Doppelte

Ausdruck Eine Variable, die ein TextRange-Objekt darstellt.

Rückgabewert

TextRange

Beispiel

Bei diesem Beispiel wird der Wert einer Zeichenfolgenvariablen auf den Inhalt des auf der ersten Seite der aktiven Publikation angegebenen Textfelds festgelegt. Anschließend wird eine neue Seite mit einem Textfeld erstellt und der Inhalt des neuen Textfelds auf den Wert der Zeichenfolgenvariablen festgelegt.

Sub DuplicateTextBoxContents() 
 Dim strDuplicate As String 
 Dim pagNew As Page 
 
 With ThisDocument.Pages(1).Shapes(1).TextFrame.TextRange 
 strDuplicate = .Duplicate 
 End With 
 
 Set pagNew = ThisDocument.Pages.Add(Count:=1, After:=1) 
 
 pagNew.Shapes.AddTextbox(Orientation:=pbTextOrientationHorizontal, _ 
 Left:=72, Top:=72, Width:=200, Height:=200).TextFrame _ 
 .TextRange.Text = strDuplicate 
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.