Sub EmptyShapes2()
  Dim aShp As Shape, aShp2 As Shape
  On Error GoTo ErrCatcher
  For Each aShp In ActiveDocument.Shapes
    Select Case aShp.Type
      Case msoChart
        'do nothing
      Case msoGroup
        For Each aShp2 In aShp.GroupItems
          If aShp2.TextFrame.HasText Then
            aShp2.Fill.Visible = False
          End If
        Next aShp2
      Case Else
        If aShp.TextFrame.HasText Then
          aShp.Fill.Visible = False
        End If
    End Select
  Next aShp
  Application.ScreenRefresh
  Exit Sub
ErrCatcher:
  aShp.Select
  MsgBox "Error: " & Err.Number & "  " & Err.Description & vbCr & "Shape type: " & aShp.Type
End Sub