把Shape对象以插入式格式插入到指定位置的情况

简而言之，就是将Shape对象以插入格式插入到指定位置。

详细信息如下：（代码是用VB.NET2008编写的，并且WORD版本为200 7）

1、以P表示当前插入符号的位置（X以行为单位，Y以列为单位）

2、使用Shapes.AddTextbox方法添加2个文本框，使用AddLine方法向当前插入符号位置添加2条线，分别标记为T1，T2，L1，L2

3、将T1，T2，L1，L2添加到数组以进行组合：

DimgrpAsWord.Shape = WordApp.ActiveDocument.Shapes.Range（Array）.Group

4、将grp插入（grp.WrapFormatType = wdWrapInline）设置为上一节中记录的P位置

问题出在步骤3、 4。步骤3中的组合后，grp对象将出现在文档的开头。我们如何将组合后获得的Shape对象插入P位置？

我现在使用的方法是获取组合（grp）并将其设置为插件，然后依次进行以下调用：

grp.Select（）'选定的组合

WordApp.Selection.Cut（）'剪切

WordApp.GoBack（）'将插入点立即移至编辑位置（自动移至P）

WordApp.Selection.Paste（）'粘贴

WordApp.Selection.MoveRight（1，1)'将插入符号向右移动一个字符（选择时，它向所选对象的右侧移动）

这有一些麻烦：

1、关闭WORD时，它提示剪贴板上有图像。该对话框显然是一个令人讨厌的“副产品”

2、更重要的是，执行上述操作后，通常无法获得预期的结果。机器速度越慢，实现起来就越困难：执行上述操作后，grp仍位于文档的开头。这个问题非常麻烦，因为它并不总是每次执行时都转到文档的开头，但是有时，请尝试在WordApp.GoBack（）之后添加DoEvent，以便WORD有足够的时间来执行该操作，但是它并没有改善。

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/shumachanpin/article-378237-1.html