Propriedade TextRange.Duplicate (Publisher)

Retorna um objeto TextRange que representa uma duplicação do intervalo especificado de texto.

Sintaxe

expressão. Duplicar

expressão Uma variável que representa um objeto TextRange .

Valor de retorno

TextRange

Exemplo

Este exemplo define o valor de uma variável sequência como conteúdo da caixa especificada de texto na primeira página da publicação ativa. Em seguida, cria uma nova página com uma caixa de texto e define o conteúdo da nova caixa de texto igual ao valor da variável de cadeia.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.