Selection to New Page - Macro - Update

Converted to VBA by ChatGPT

Sub MoveSelectionToNewPage()
Dim sr As ShapeRange
Set sr = ActiveSelectionRange

If sr.Count = 0 Then
Exit Sub
End If

Dim newPage As Page
Set newPage = ActiveDocument.AddPages(1)

Dim layer As Layer
Set layer = newPage.ActiveLayer

sr.MoveToLayer layer

Dim proxy As DataSourceProxy
Set proxy = Application.FrameWork.Application.DataContext.GetDataSource("WPageDataSource")
proxy.InvokeMethod "OnRenamePage"
End Sub