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
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 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
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.RefreshEnd 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 pEnd Sub