CanvasShapes.Range (Word)

Devuelve un objeto ShapeRange.

Los valores de posición de carácter comienzan por 0 (cero) al principio del documento. Los objetos ShapeRange no incluyen objetos InlineShape. Casi todas las operaciones que se pueden hacer con un objeto Shape también puede hacer con un objeto ShapeRange que contenga una única forma.

Range (Index)

Index: Indica qué formas se incluirán en el intervalo especificado.

Sub CanvasShapeRange() 
 Dim rngCanvasShapes As Range 
 Set rngCanvasShapes = ActiveDocument.Shapes(1).CanvasItems.Range(1) 
 rngCanvasShapes.Select 
 rngCanvasShapes.Delete 
End Sub