在 Word 2010 中复制形状而不使用 .Select？

是否可以在 Word 2010 中复制形状而无需借助.Select？根据开发中心 http://msdn.microsoft.com/en-us/library/office/ff835500.aspx the Anchor属性返回形状的锚定范围。这可能是一种前进的方式吗？但是，下面的代码会返回错误。

Sub createShape()
    Set myShape = ActiveDocument.Shapes.AddShape(msoShapeRectangle, 1, 1, 1, 1)
    myShape.Anchor.Copy
End Sub

虽然似乎不可能在不选择形状的情况下复制它，但可以复制一个形状而不选择它（这是我首先想要复制它的原因）。下面的代码给出了我正在寻找的内容：

Sub createShape()
    Set myshape = ActiveDocument.Shapes.AddShape(msoShapeRectangle, 100, 100, 100, 100)
    Set anothershape = myshape.Duplicate
End Sub