Shapes.Range (Word)

Devuelve un objeto ShapeRange que representa las formas dentro de un intervalo.

Un objeto Shape siempre aparece en la misma página que el intervalo al que se fija.

Range (Index)

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

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