Cacher is the code snippet organizer for pro developers

Sub equationIsPicture()
    Dim p As InlineShape
    For Each p In ActiveDocument.InlineShapes
        If p.Range.Information(wdWithInTable) Then
            p.Select
            If Selection.Tables(1).Range.Rows.count = 1 Then
                If Selection.Range.ParagraphFormat.SpaceBefore = 6 And Selection.Range.ParagraphFormat.SpaceAfter = 6 Then
                    Selection.comments.Add Selection.Range, "The equation is a picture"
                End If
                   
            End If
        End If
    Next
End Sub