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
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
sir this is not working. Dim pg As Page here showing error. please update this