Propriété TextRange.Duplicate (Publisher)

Cette propriété renvoie un objet TextRange qui représente un double de la plage de texte spécifiée.

Syntaxe

expression. Double

Expression Variable qui représente un objet TextRange .

Valeur renvoyée

TextRange

Exemple

Cet exemple définit la valeur d'une variable de type chaîne comme étant le contenu de la zone de texte spécifiée sur la première page de la composition active. Il crée ensuite une page avec une zone de texte et définit le contenu de la nouvelle zone de texte sur la valeur de la variable de chaîne.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.