本示例将活动文档中的所有 16 磅星形替换为 32 磅星形。

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