Поделиться через

Свойство TextRange.Duplicate (Издатель)

  • Статья

Возвращает объект TextRange , представляющий дубликат указанного текстового диапазона.

Синтаксис

expression. Дублировать

Выражение Переменная, представляющая объект TextRange .

Возвращаемое значение

TextRange

Пример

В этом примере для строковой переменной задается содержимое указанного текстового поля на первой странице активной публикации. Затем он создает новую страницу с текстовым полем и задает содержимое нового текстового поля, равное значению строковой переменной.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.