Прочитать на английском

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


Объект 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

Методы

Свойства

См. также

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

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

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