Shape.AutoShapeType Property (Word)
Office 2013
Returns or sets the shape type for the specified Shape object, which must represent an AutoShape other than a line or freeform drawing. Read/write MsoAutoShapeType.
This example replaces all 16-point stars with 32-point stars in the active document.
Sub ReplaceAutoShape() Dim docNew As Document Dim shpStar As Shape Set docNew = ActiveDocument For Each shpStar In docNew.Shapes If shpStar.AutoShapeType = msoShape16pointStar Then shpStar.AutoShapeType = msoShape32pointStar End If Next End Sub