Shapes.Range (Word)

Retorna um objeto ShapeRange que representa as formas dentro de um intervalo.

Um objeto Shape sempre aparece na mesma página que a página do intervalo ao qual está ancorado.

Range (Index)

Index: Especifica quais formas devem ser incluídas no intervalo especificado. Pode ser um número inteiro que especifica o número de índice de uma forma dentro da coleção Shapes, uma cadeia de caracteres que especifica o nome de uma forma ou uma matriz que contém inteiros ou seqüências.

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