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