I usually use List style as "Figure 1" and use that for Cross-reference in the text. Its good way for manage the figure numbers in the manuscript. I don't need to care about the order of figures. However, when I convert it to fixed one and pass to someone who will modify the text. Then, it is hard to re-attach these cross references to the latest manuscript.
You know if I can use cross-reference with my colleagues, there are no problem. But, sometimes plane text is more favorable.
So, I tried to write a macro script. This is my script.
Code: Select all
$doc = Document.active
$list_styles = $doc.listStyles
$message = 'Which is list style re-converted?'
$selected_style = Prompt Options $message, "", "Choose", $list_styles
$selected_style_name = $selected_style.name
Select Document End
While Select Previous List Item
$menu_state = Menu State ":Format:Lists:$selected_style_name"
If $menu_state
$sel = $doc.textSelection
$num = $sel.substring
Begin Perl
chop $num;
End
Prompt $num
while Find $num
$menu_state = Menu State ":Format:Lists:$selected_style_name"
If $menu_state == 1
Break
Else
Menu ":Insert:Cross-reference..."
#Prompt "Inserted Cross-reference link for $num"
End
End
End
End
I cannot find out cross-reference insertion command in macro reference.
Does anyone know good way for accomplish this?
Kosaka