Thanks ben eruit.
:thumb:
Code:
Private Sub CommandButton1_Click()
Dim shp As Shape, tmp As String, myDoc, i As Integer
i = 0
For Each shp In ActiveDocument.Shapes
i = i + 1
shp.Select
Application.ScreenRefresh
tmp = InputBox[B][COLOR="#FF0000"]("IndexNr = " & i[/COLOR][/B], "", shp.Name)
shp.Name = tmp
Next shp
End Sub
:thumb:
Laatst bewerkt: