Word VBA：如何不使用On Error判断形状是否为组

嘿，这个问题很典型！你原来的代码出错，是因为非组形状根本没有GroupItems属性，直接访问它自然会触发运行时错误。不想用On Error捕获的话，有两个非常靠谱的方法可以提前判断形状是不是组：

方法1：检查Shape.Type属性 #

Word里所有形状都有Type属性，组形状的类型对应的常量是msoGroup（数值为6）。直接判断这个属性就能安全区分：

Sub MyMacro()
    Dim sh1 As Shape
    For Each sh1 In ActiveDocument.Shapes
        If sh1.Type = msoGroup Then
            Debug.Print sh1.Name & " is a group!"
            ' 现在可以安全访问GroupItems了
            Debug.Print "This group contains " & sh1.GroupItems.Count & " shapes"
        Else
            Debug.Print sh1.Name & " is not a group!"
        End If
    Next
End Sub

这个方法的优势是直观易用，所有Shape对象都支持Type属性，不会有任何隐藏坑。

方法2：用TypeOf判断对象实际类型 #

组形状本质上是GroupShape类的实例，而普通形状是Shape类。用TypeOf运算符可以直接判断对象的实际类型：

Sub MyMacro()
    Dim sh1 As Shape
    For Each sh1 In ActiveDocument.Shapes
        If TypeOf sh1 Is GroupShape Then
            Debug.Print sh1.Name & " is a group!"
            Debug.Print "This group contains " & sh1.GroupItems.Count & " shapes"
        Else
            Debug.Print sh1.Name & " is not a group!"
        End If
    Next
End Sub

这种方式更偏向面向对象的思路，适合习惯用类型判断的开发者。

两种方法都比错误捕获更优雅，代码逻辑也更清晰，不会因为错误处理掩盖其他潜在问题。

内容的提问来源于stack exchange，提问作者Vasily A