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

Свойство TextFrame.TextRange (Publisher)

  • Статья

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

Синтаксис

expression. 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 и обратная связь.