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

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

Синтаксис

выражение. TextRange

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

Пример

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

Sub AddTextToTextFrame() 
 With ActiveDocument.Pages(1).TextFrame.TextRange 
 .Text = "My Text" 
 With .Font 
 .Bold = msoTrue 
 .Size = 25 
 .Name = "Arial" 
 End With 
 End With 
End Sub

В следующем примере к активной публикации добавляется прямоугольник и текст.

Sub AddTextToShape() 
 With ActiveDocument.Pages(1).Shapes.AddShape(Type:=msoShapeRectangle, _ 
 Left:=72, Top:=72, Width:=250, Height:=140) 
 .TextFrame.TextRange.Text = "Here is some test text" 
 End With 
End Sub

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

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