Объект TextFrame (Word)

Представляет текстовый фрейм в объекте Shape. Объект TextFrame содержит текст в текстовом фрейме и свойства, управляющие полями и ориентацией текстового фрейма.

Замечания

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

ActiveDocument.Shapes(1).TextFrame.TextRange.Text = "My Text"

Примечание.

Некоторые фигуры не поддерживают прикрепленный текст (например, линии, произвольные формы, изображения и объекты OLE). Если вы попытаетесь вернуть или установить свойства, управляющие текстом в текстовом фрейме для этих объектов, произойдет ошибка.

Используйте свойство HasText, чтобы определить, содержит ли текстовый фрейм текст, как показано в следующем примере.

For Each s In ActiveDocument.Shapes 
 With s.TextFrame 
 If .HasText Then MsgBox .TextRange.Text 
 End With 
Next

Текстовые фреймы можно связывать вместе, чтобы текст перетекал из текстового фрейма одной фигуры в текстовый фрейм другой фигуры. Используйте свойства Next и Previous для связывания текстовых фреймов. В следующем примере создается текстовое поле (прямоугольник с текстовым фреймом) и в него добавляется текст. Затем он создает еще одно текстовое поле и связывает два текстовых фрейма вместе, так что текст перетекает из первого текстового фрейма во второй.

Set myTB1 = ActiveDocument.Shapes.AddTextbox _ 
 (msoTextOrientationHorizontal, 72, 72, 72, 36) 
myTB1.TextFrame.TextRange = _ 
 "This is some text. This is some more text." 
Set myTB2 = ActiveDocument.Shapes.AddTextbox _ 
 (msoTextOrientationHorizontal, 72, 144, 72, 36) 
myTB1.TextFrame.Next = myTB2.TextFrame

Используйте свойство ContainingRange, чтобы вернуть объект Range, представляющий всю историю, которая перемещается между связанными текстовыми фреймами. В следующем примере проверяется орфография текста в TextBox 3 и любого другого текста, связанного с TextBox 3.

Set myStory = ActiveDocument.Shapes("TextBox 3") _ 
 .TextFrame.ContainingRange 
myStory.CheckSpelling

Методы

Имя
BreakForwardLink
DeleteText
ValidLinkTarget

Свойства

Имя
Application
AutoSize
Column
ContainingRange
Creator
HasText
HorizontalAnchor
MarginBottom
MarginLeft
MarginRight
MarginTop
Next
NoTextRotation
Orientation
Overflowing
Parent
PathFormat
Previous
TextRange
ThreeD
VerticalAnchor
WarpFormat
WordWrap

См. также

Справочник по объектной модели Word

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

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