Propiedad TextRange.Duplicate (Publisher)

Devuelve un objeto TextRange que representa el duplicado del intervalo de texto especificado.

Sintaxis

expresión. Duplicado

expresión Variable que representa un objeto TextRange .

Valor devuelto

TextRange

Ejemplo

En este ejemplo se establece el valor de una variable de cadena al contenido del cuadro de texto especificado en la primera página de la publicación activa. A continuación, crea una nueva página con un cuadro de texto y establece el contenido del nuevo cuadro de texto igual al valor de la variable de cadena.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.