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
These are csharp macros, you can use Visual Studio Tools for Application, to create and edit,
but you need to have Visual Studio installed on your machine, in the case of X8 you need Visual Studio 2015, so I don't use this area either . I have my own tool that allows me to edit in any text editor even in notepad
https://github.com/bonus630/Bonus630DevToolsBar