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.