Sub SelectionToNewPage()Dim sr As ShapeRangeSet sr = ActiveSelectionRangesr.CutActiveDocument.AddPages 1ActivePage.ActiveLayer.Paste
End Sub
Can someone add this...
after moving the selection... immediately launch to rename the page option
[CgsAddInMacro] public void MoveSelectionToNewPage() { ShapeRange sr = corelApp.ActiveSelectionRange; if (sr.Count == 0) return; Page page = corelApp.ActiveDocument.AddPages(1); Layer layer = page.ActiveLayer; sr.MoveToLayer(layer); DataSourceProxy proxy = corelApp.FrameWork.Application.DataContext.GetDataSource("WPageDataSource"); proxy.InvokeMethod("OnRenamePage"); }
oho. how to add this to sub and end in between area. i do not know much about script