Примечание.
Для доступа к этой странице требуется авторизация. Вы можете попробовать войти или изменить каталоги.
Для доступа к этой странице требуется авторизация. Вы можете попробовать изменить каталоги.
Представляет текстовый фрейм в объекте 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 , представляющего весь материал, проходящий между связанными текстовыми фреймами. В следующем примере проверяется орфография текста в текстовом поле 3 и любом другом тексте, связанном с текстовым полем 3.
Set myStory = ActiveDocument.Shapes("TextBox 3") _
.TextFrame.ContainingRange
myStory.CheckSpelling
Методы
| Имя |
|---|
| BreakForwardLink |
| DeleteText |
| ValidLinkTarget |
Свойства
См. также
Справочник по объектной модели Word
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.