Метод Shape.MoveIntoTextFlow (Publisher)

  • Статья

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

Синтаксис

expression. MoveIntoTextFlow (Range)

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

Параметры

Имя Обязательный или необязательный Тип данных Описание
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 и обратная связь.