macro request - grab text object label and pass to page name

ActivePage.Name = ActivePage.FindShape("sku").Text.Story

That's making some assumptions:

1. There is a shape on the page named "sku".
2. That shape is a text shape.
3. That text shape doesn't have too many characters.

So, that line of code could work, but it would require more effort if you wanted to make it "safe".

Brute-Fish said:

What code would you use to copy selected text to a page name? My page header includes a line of text that has a sign type and a descriptor. I would like to just use the sign type to name the page. So I would like to highlight the sign type and run the code to rename the page.

Quick-and-dirty, you could use this:

ActivePage.Name = ActiveShape.Text.Selection

That assumes that some range of characters are currently selected in a Text shape.

There are no safeties built into that to prevent errors (if nothing is selected, if the selection is not a text shape, etc.).