Метод ShapeRange.MoveIntoTextFlow (Publisher)

Статья
04/07/2023

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

Синтаксис

expression. MoveIntoTextFlow (Range)

Выражение Переменная, представляющая объект ShapeRange .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Range	Обязательный	TextRange	Диапазон текста, перед которым вставляется заданная фигура.

Замечания

Метод MoveIntoTextFlow завершается ошибкой , если перемещаемая фигура уже является встроенной или если она не является допустимым типом встроенной фигуры. Недопустимые типы встроенных фигур:

Встроенные фигуры
Сгруппированные фигуры
Фрагменты HTML
Интеллектуальные объекты
Связанные текстовые поля

Пример

В следующем примере проверяется, является ли вторая фигура на второй странице публикации встроенной, а если нет, вставляет ее в начало текстового потока заданного текстового диапазона.

Dim theShape As Shape 
Dim theRange As TextRange 
 
Set theRange = ActiveDocument.Pages(2).Shapes(1).TextFrame.TextRange 
Set theShape = ActiveDocument.Pages(2).Shapes(2) 
 
If Not theShape.IsInline = msoTrue Then 
 theShape.MoveIntoTextFlow Range:=theRange 
End If

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

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

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