Is it possible to create a macro that grabs the contents of a labelled text object and pass it onto the page name? Example below. Here I want the text object to have the label 'sku'.
Hello,2 Variants without SKUSub BhBp_Page_Name()'Var 1ActivePage.Name = ActiveShape.Text.Range(0, 100)End Sub
Sub BhBp_Page_Name()'Var 2'If ActiveSelectionRange.Shapes.Count > 0 ThenIf ActiveShape.Type = 6 ThenActivePage.Name = ActiveShape.Text.Range(0, 100)ElseMsgBox "Please select text"End IfElseMsgBox "Please select text"End IfEnd SubGreetings!If You wont to support me, please donate HERE!
Hello,See below 2 Variants without SKU. Selected text.Greetings