11 items - Remove empty things - feature request - please sir

1) Remove empty docks

2) Remove empty menus

3) Remove unused colors in doc palette  (Please sir no work arounds)

4) Remove unused color styles ( direct command, it not go to color styles docker there to find what are not active..... something ... its not that, please give a direct command to clear them all which are not active and unused)

5) Remove empty layers 

6) Remove empty pages 

7) Remove empty text spaces 

8) Remove same objects and overlapped (exactly the same preferenced objects) 

9) Remove all hidden objects (in some cases, hidden objects not required, while sending final outcome to other party, if the hidden objects existed, the other may be confused)

10) Remove all powerclip contents which exists outside of the frame and inner appearing elements are not deleted. 

11) Remove all unselected by leaving the selected 

  • Remove all unselected by leaving the selected 

    as an option - to Invert the selection, that is, to select all the unselected objects

    • Maybe not the perfect solution in all cases but Shift+marquee selection works as "invert selection".
      Can also be used in combination with Alt (selects/deselects every object inside and every object touched by the marquee).

    • 3, 5, 6 & 11(my shortcut is ctrl+Del). I have macros for.

      2.? What "menu" would be empty?

      • Remove empty Menu.... Create New menu... After creating them, or someother reasons, we just drag outside and remove, but it still exists in the user menu of the customization 

        • myron sir, please give 3,5,6 & 11 macros sir 

          • 5.

            Sub DeleteEmptyLayers()

            Dim pg As Page
            Dim lyr As Layer
            Dim sr As ShapeRange
            Optimization = True
            For Each pg In ActiveDocument.Pages
            For Each lyr In pg.Layers
            If Not lyr.IsSpecialLayer Then
            Set sr = lyr.Shapes.All
            If sr.Count = 0 Then
            lyr.Delete
            End If
            End If
            Next
            Next
            Optimization = False
            ActiveWindow.Refresh
            Refresh

            End Sub

            • 11.

              Sub Delete_Not_Selected() 'shortcut assigned cntrl+delete
              Dim sr As ShapeRange
              Optimization = True
              Set sr = ActiveSelectionRange
              ActivePage.Shapes.All.AddToSelection
              sr.RemoveFromSelection
              ActiveSelection.Delete
              Optimization = False
              ActiveWindow.Refresh
              End Sub

              • Thanking you sir 

                • 6.

                  Sub delEmptyPages()
                  Dim p As Page
                  For Each p In ActiveDocument.Pages
                  If p.Shapes.All.Count = 0 Then
                  p.Delete
                  End If
                  If ActiveDocument.Pages.Count = 1 Then
                  Exit Sub
                  End If
                  Next p
                  End Sub