Dim docNew As Document
Dim shpStar As Shape
Set docNew = ActiveDocument
For Each shpStar In docNew.Shapes
If shpStar.AutoShapeType = ksoShape16pointStar Then
shpStar.AutoShapeType = ksoShape32pointStar
End If
Next