分组形状VBA字宏

Question

我正在尝试优化我的宏，这允许我取消组合位于该活动页面中的所有形状，如果这些形状已经取消分组，则此宏将对它们进行分组

我想要做的是修改此代码以允许在Active页面中对所有te文档进行分组和取消组合。我和VBA有点相似 这是我的代码

Private Sub degroupage_Click()
    Dim mydocument As Document
    Set mydocument = ActiveDocument
    On Error Resume Next

    ActiveDocument.Unprotect   'enregistré manuellement
    Dim S As Shape, t As Shape

    For i = 0 To mydocument.Shapes.Item(1).GroupItems.Count
        For Each S In mydocument.Shapes
            If S.Type = msoGroup Then S.Ungroup 'Ungrouping all shapes in all the document :(

            If S.Selection.Ungroup = True Then 
                ActiveDocument.Selection.ShapeRange.Regroup  ' Problem here
        Next
    Next
End Sub

我需要快速帮助 对于Regroup和S.Selection.Ungoup

，错误是不正确的