I tried to use this script to select all shapes and it worked well on single layers
Sub selectmulti()ActivePage.Shapes.All.CreateSelectionEnd Sub
But now I have multi layers and at least one LOCKED shape on them. And the script SKIPPED all layers that have LOCKED shapes. It only select all shapes on Layers that didn't have any LOCKED item.
Is it the bug or how do I change the code?
You could try this:
Sub selectmulti() ActivePage.SelectableShapes.All.CreateSelection End Sub