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
pkg_sriram said:Remove all unselected by leaving the selected
as an option - to Invert the selection, that is, to select all the unselected objects
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 PageDim lyr As LayerDim sr As ShapeRangeOptimization = TrueFor 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 NextNextOptimization = FalseActiveWindow.RefreshRefresh
End Sub