Selection to New Page - Macro - Update

pkg_sriram
10 months ago

Sub SelectionToNewPage()
Dim sr As ShapeRange
Set sr = ActiveSelectionRange
sr.Cut
ActiveDocument.AddPages 1
ActivePage.ActiveLayer.Paste

End Sub

Can someone add this...

after moving the selection... immediately launch to rename the page option 

Parents
No Data
Reply Children

© Corel Corporation. All rights reserved. The content herein is in the form of a personal web log ("Blog") or forum posting. As such, the views expressed in this site are those of the participants and do not necessarily reflect the views of Corel Corporation, or its affiliates and their respective officers, directors, employees and agents. Terms of Use / Privacy​ ​/ ​Cookies / Terms and Conditions / User Guidelines.