Shape.MoveIntoTextFlow 方法 (Publisher)

将给定的形状移动到 TextRange 对象定义的文本流中。 形状始终在文本流的开头内联插入。

语法

表达式。MoveIntoTextFlow (Range)

表达 一个代表 Shape 对象的变量。

参数

名称	必需/可选	数据类型	说明
Range	必需	TextRange	文字的范围，将在其之前插入指定形状。

返回值

Nothing

注解

如果要移动的形状已内联或不是有效的内联形状类型， 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。