Примечание.
Для доступа к этой странице требуется авторизация. Вы можете попробовать войти или изменить каталоги.
Для доступа к этой странице требуется авторизация. Вы можете попробовать изменить каталоги.
Представляет текстовый кадр в объекте Shape . Объект TextFrame содержит текст в текстовом фрейме и свойства, управляющие полями и ориентацией текстового фрейма.
Замечания
Используйте свойство TextFrame , чтобы вернуть объект TextFrame для фигуры. Свойство TextRange возвращает объект Range , представляющий диапазон текста внутри указанного текстового фрейма. В следующем примере текст добавляется в текстовый кадр фигуры 1 в активном документе.
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 |
Свойства
См. также
Справочник по объектной модели Word
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.