获取所有形状的形状属性值

Question

我有一些形状，包括我想要提取的自定义属性数据。 目前我使用一个看起来很慢的循环。因此，我希望有可能立即获得所有数据。

代码：

For n = 0 To ActiveDocument.Pages(Pages).Shapes.Item(Index).RowCount(visSectionProp) - 1
    x = ActiveDocument.Pages(Pages).Shapes.Item(Index).CellsSRC(visSectionProp, n, visCustPropsValue).Formula
    shape_props(i + shapecount_old, n) = x
Next

有没有人有想法？

提前谢谢！