Shapes.Range (Word)

Returns a ShapeRange object that represents the shapes within a range.

A Shape object always appears on the same page as the range it is anchored to.

Range (Index)

Index: Specifies which shapes are to be included in the specified range. Can be an integer that specifies the index number of a shape within the Shapes collection, a string that specifies the name of a shape, or a array that contains integers or strings.

Sub ShRange() 
 With ActiveDocument.Shapes.Range(1).Fill 
 .ForeColor.RGB = RGB(255, 0, 255) 
 .Visible = msoTrue 
 End With 
End Sub