绘制形状后插入页面

Question

使用VBA，我可以绘制一个圆圈，然后插入一个新页面。但是，新页面会在之前插入页面上的圆圈（或正确的方式来查看它可能是：插入新页面将圆圈颠覆到新页面）。如何插入一个新页面以便在带有圆圈的页面之后？

演示问题的代码：

Sub InsertShape()
  ActiveDocument.Shapes.AddShape(msoShapeOval, 154.8, 94.2, 189#, 129# _
      ).Select

  Selection.Collapse
  Selection.InsertBreak Type:=wdPageBreak
End Sub

（在上面的简单示例中，在绘制圆形之前插入分页符实现了我的目标。但是，当在绘制圆形之后的某个时刻决定是否需要有条件地插入新页面时，移动插入绘制圆圈之前的页面不是一个可接受的解决方案。）

谢谢！

Answer 1

Collapse接受一个参数，该参数指定崩溃应该发生的方向。

默认情况下，如果没有给出参数，它会折叠到选择/范围的 start ，因此请尝试提供您想要的特定方向：

Selection.Collapse Direction:=wdCollapseEnd

请参阅：http://msdn.microsoft.com/en-us/library/office/aa171856(v=office.11).aspx