Indesign: remove all inline empty frames script?

Hi,
I need to delete all inline empty frames within a document. Those inline empty frames appear after a data merge is done.
Please help!

Are there any other inline frames?
The code for an inline frame is
Find
^a
or
GREP
~a
If you search for these and replace with nothing, then all inline frames will be removed
But if you have other inline frames I think you may need a script for that.

Similar Messages

Remove All Missing Links with frames

How can I make a script to remove all missing links with frames In indesign?
var doc = app.activeDocument;
var links = doc.links;
for (var i = links.length-1; i >= 0; i--) {
if (links[i].status == LinkStatus.LINK_MISSING) {
try {
   links[i].parent.remove();
             var image = link.parent;
          var frame = image.parent;
          frame.remove();
          counter++;
catch (err) {
   $.writeln(i + " - " + err);
I try this script, but still remain a frame, what's wrong with that?

@Harvey – in priciple nothing's wrong with that.
But you need only to remove the parent.parent of the found link.
You could also resolve the object that is behind parent.parent to make sure it will work:
var myContainerToRemove = links[i].parent.parent.getElements()[0];
myContainerToRemove.remove();
No container, no image, no link ;-)
Of course that will leave a container frame behind, if the container of the graphic is itself nested into another object.
This could be a Texts object (together with a text frame) or a SplineObject like a Rectangle, Oval, Polygon, a Button as well as a State inside an MSO…
A remnant could also be a Group object containing only one page item…
Depends on how the page items are used and the layout is constructed.
Uwe

Delete Empty Frames in Indesign through AppleScript

Hi Everyone,
We have some users who mistakenly add empty frames in the indesign document. (these are generally very small for example {4.9786 in, 3.9402 in} etc)
Can we identify such frames through an apple script.
Usually the frames can be made as a text frame, graphics or unassigned. I am able to delete the empty text frames by using below code:
tell application "InDesign CS4"
tell page 1 of document 1
delete every text frame whose contents is ""
end tell
end tell
However, not sure how to delete empty graphics or unassigned frames.
Appreciate your help and suggestions!
Thanks,
Abhi

You could check the rectangle for graphic 1 and check the rectangle for its content type. Something like:
tell application "Adobe InDesign CS4"
          tell document 1
                    tell page 1
                              tell rectangle 1
display dialog (content type as text) --> "unassigned" or "graphic type"
                                        if exists graphic 1 then
                                                  display dialog ("There is a graphic in this rectangle.")
                                        else
                                                  display dialog ("There is no graphic in this rectangle.")
                                        end if
                              end tell
                    end tell
          end tell
end tell

Remove All InDex Markers in empty cells

I have a doc with lots of tables & empty cells. Each empty cells have an index markers in it and I need to remove all of them.
The find/change replacing '^I' by '' (nothing) don’t remove them.
Is their a way to remove all Index Markers via a script?
Jean-Claude

Can you send an example idml or inx?
Otherwise perhaps you can try something like this:
var aDoc = app.documents[0];
var allTables = aDoc.stories.everyItem().tables.everyItem().getElements();
app.findTextPreferences = app.changeTextPreferences = null;
app.findTextPreferences.findWhat = "<FEFF>";
app.changeTextPreferences.changeTo = "";
aDoc.stories.everyItem().tables.everyItem().changeText();
app.findTextPreferences = app.changeTextPreferences = null;
alert("done");
This is a part of a script written by Uwe Laubender. I think this could help you.

Can anyone help me deleted this existing photos in my photo library.i already did to sync it up on itunes ang remove all photos ang sync.but still there is 5 photos in my general about eventhough my camera roll is empty.plsss help.thanks.

can anyone help me deleted this existing photos in my photo library.i already did to sync it up on itunes ang remove all photos ang sync.but still there is 5 photos in my general about eventhough my camera roll is empty.PLEASE HELP!Thanks.

i mean "and" not "ang" btw.

My iPhoto 11, V 9.4.2, locks up/freezes when I attempt to empty the iPhoto trash bin. Originally, I thought it was due to 800 files in the trash, however, I removed ALL but 5 photos from the trash and it continues to lock up.

My iPhoto 11, V 9.4.2, locks up/freezes when I attempt to empty the iPhoto trash bin.
Originally, I thought it was due to 800+ files in the trash, however, I removed all but 5 photo files from the trash and it continues to lock up. Inititally the "progress" bar would get to about 1/2 way and then it would stop and stall. However, now the progress bar no longer shows a progress line it immediately freezes and locks up. Can anyone help?

You may have damaged the library - Back up your iPhoto library, Depress and hold the option (alt) and command keys and launch iPhoto - rebuild your iPhoto library
LN

Working alternating with iPhoto and FCE tgrying to import pictures from iPhoto into FCE suddenly all my 22300 pictures disappeared leaving empty frames. Does somebody know where the pictures could have gone and how can I get them back into iPhoto? Lothar

Working alternating with iPhoto and FCE tgrying to import pictures from iPhoto into FCE suddenly all my 22300 pictures disappeared leaving empty frames. Does somebody know where the pictures could have gone and how can I get them back into iPhoto? Lothar

The ! turns up when iPhoto loses the connection between the thumbnail in the iPhoto Window and the file it represents.
Option 1
Back Up and try rebuild the library: hold down the command and option (or alt) keys while launching iPhoto. Use the resulting dialogue to rebuild. Choose to Rebuild iPhoto Library Database from automatic backup.
If that fails:
Option 2
Download iPhoto Library Manager and use its rebuild function. This will create a new library based on data in the albumdata.xml file. Not everything will be brought over - no slideshows, books or calendars, for instance - but it should get all your albums and keywords back.
Because this process creates an entirely new library and leaves your old one untouched, it is non-destructive, and if you're not happy with the results you can simply return to your old one. .
Regards
TD

How to remove all scripts on object instances?

I'm looking for any kind of solution here, besides disabling the warning.
I hate it when I'm converting someone else's AS2 project to AS3, and there's code buried on an onstage instance somewhere, which gives me the warning:
"Actions on button or MovieClip instances are not supported in ActionScript 3.0. All scripts on object instances will be ignored."
How can I:
     A) Find which instances have code on them.
          or
     B) Remove all code on all instances.
Idea:
Can I save as a different format/version/something and lose this data somehow. Then I could convert it back its current FLA format?

YES!!! So awesome!! Thanks

Script to select all overflow text frames and fit them to content?

I have a document with several text frames that have overset text, due to replacing a font. I was looking for a script that would:
1. find all the text frames that have overset text
2. apply "fit frame to content" command for each of these
Can anyone please help me here? I'm trying to learn scripting but some of these things still confuse me. Thanks.

hi,
give a try to this js code:
var _d = app.documents[0];
var _allStories = _d.stories;
for(var n=_allStories.length-1;n>=0;n--){
var _storyAllTextFrames = _allStories[n].textContainers;
for(var m=_storyAllTextFrames.length-1;m>=0;m--){
_storyAllTextFrames[m].select();
            //Fit Frame to Content:
            try{
            app.scriptMenuActions.itemByID(11291).invoke();
                }catch(e){};
           try{
           app.scriptMenuActions.itemByID(278).invoke();
                }catch(e){};
Disclaimer:
I'm NOT a scripter. Sorry, don't remember exact origin of this code, but it works...

PowerShell script to Retract & Remove all farm solutions

Hi,
I need the PowerShell script to Retract & Remove all SharePoint farm solutions.
Single solution Retract & Remove
Uninstall-SPSolution -Identity <Solution name.wsp>
ex: Uninstall-SPSolution -Identity Solution.wsp
Remove-SPSolution -Identity <Solution name.wsp>
ex: Remove-SPSolution -Identity Solution.wsp

Install & Uninstall solutions from folder
file name - installwsp.ps1
Add-PsSnapin Microsoft.SharePoint.PowerShell
#Do not modify anything in the script from here onwards
function Get-ScriptDirectory
$Invocation = (Get-Variable MyInvocation -Scope 1).Value
Split-Path $Invocation.MyCommand.Path
function Deploy-Solution{
param(
[string]$physicalPath,
[string]$name)
$SolutionName = $name
$SolutionPath = Join-Path ($physicalPath) $SolutionName
echo "Extracting information from $physicalPath"
#Admin service
$AdminServiceName = "SPAdminV4"
$IsAdminServiceWasRunning = $true;
if ($(Get-Service $AdminServiceName).Status -eq "Stopped")
$IsAdminServiceWasRunning = $false;
Start-Service $AdminServiceName
Write-Host 'SERVICE WAS STOPPED, SO IT IS NOW STARTED'
#Uninstall
Write-Host 'UNINSTALLING SOLUTION ...'
$Solution = Get-SPSolution | ? {($_.Name -eq $SolutionName) -and ($_.Deployed -eq $true)}
if ($Solution -ne $null)
if($Solution.ContainsWebApplicationResource)
Uninstall-SPSolution $SolutionName -AllWebApplications -Confirm:$false
else
Uninstall-SPSolution $SolutionName -Confirm:$false
while ($Solution.JobExists)
Start-Sleep 2
Write-Host 'SOLUTION HAS BEEN UNINSTALLED SUCCESSFULLY.'
Write-Host 'REMOVING SOLUTION ...'
if ($(Get-SPSolution | ? {$_.Name -eq $SolutionName}).Deployed -eq $false)
Remove-SPSolution $SolutionName -Confirm:$false
Write-Host 'SOLUTION HAS BEEN REMOVED SUCCESSFULLY.'
Write-Host 'ADDING SOLUTION ...'
Add-SPSolution $SolutionPath | Out-Null
Write-Host 'SOLUTION HAS BEEN ADDED SUCCESSFULLY.'
Write-Host 'DEPLOYING SOLUTION ...'
$Solution = Get-SPSolution | ? {($_.Name -eq $SolutionName) -and ($_.Deployed -eq $false)}
#use '-force' paramater to install all commands in this if statement
if(($Solution -ne $null) -and ($Solution.ContainsWebApplicationResource))
Install-SPSolution $SolutionName –AllwebApplications -GACDeployment -Force -Confirm:$false
else
Install-SPSolution $SolutionName -GACDeployment -Force -Confirm:$false
while ($Solution.Deployed -eq $false)
Start-Sleep 2
Write-Host 'SOLUTION HAS BEEN DEPLOYED SUCCESSFULLY.'
if (-not $IsAdminServiceWasRunning)
Stop-Service $AdminServiceName
#Get Current Physical Path
$currentPhysicalPath = Get-ScriptDirectory
#Iterate through all .wsp files in the current Physical Path to deploy solution
get-childitem $currentPhysicalPath -include *.wsp -recurse | foreach ($_) {Deploy-Solution $currentPhysicalPath $_.name}
#Remove SharePoint Snapin
Remove-PsSnapin Microsoft.SharePoint.PowerShell
Echo Finish
Usage file name - installwsp.bat
cd /c %~dp0
powershell -noexit -file "installwsp.ps1" "%CD%"
pause
Anandhan.S Remember to 'mark or propose as answer' or 'vote as helpful' as appropriate.

Script to remove all printers

I'm trying to find a script to remove all current and stale printers on some TS sessions. I've tried a couple of scripts but they all seem to error one way or another. Firstly I've tried
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * From Win32_Printer Where Network = True")
For Each objPrinter in colInstalledPrinters
objPrinter.Delete_
Next
But I get an invalid parameters on Line 6 with code 80041008 and source SWbemObjectEx. I've also tried
'Define Variables and Objects.
Set WshShell = CreateObject("Wscript.Shell")
Const NETWORK = 22
Set objNetwork = CreateObject("WScript.Network")
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colPrinters = objWMIService.ExecQuery("Select * From Win32_Printer")
For Each objPrinter in colPrinters
If objPrinter.Attributes And NETWORK Then
strPrinter = objPrinter.Name
objNetwork.RemovePrinterConnection strPrinter
End If
Next
'Note: Gpupdate command has to be run twice as the ECHO command can't answer more than one question.
'Refresh the USER policies and also answer no to logoff if asked.
Result = WshShell.Run("cmd /c echo n | gpupdate /target:user /force",0,true)
'Refresh the Computer policies and answer no to reboot.
Result = WshShell.Run("cmd /c echo n | gpupdate /target:computer /force",0,true)
'Hand back the errorlevel
Wscript.Quit(Result)
But with this one I get an error on line 16 with 'This network connection does not exist' and code 800708CA and source WSHNetwork.RemoveNetworkDrive.
Only solution at the moment I can think of is to just remove them all from the registry but would rather do it user based via script.

hmmmm. The ones set by GPO are fine as they are the ones that are meant to stay it's just that there are a lot of rubbish printers sat on peoples user profiles that are old and non-existent so we just want to wipe all the old and just keep the new

How to trash using empty securely...It wont emty the trash after i clicked the remove all items?

How to empty trash using emtpty securely, it wont empty the trash after i clicked the remove all items? Using iMac 2011

If all else fails use Utilities> Terminal.
If there are several locked files in the Trash, you can unlock them all at the same time at the command line. Follow these steps:
Open Terminal. It's located in /Applications/Utilities.
Type:
chflags -R nouchg
Type one space (not pictured) after nouchg in the line above, so that it ends in "nouchg ". Do not press Return yet.
Type:chflags -R nouchg Type one space (not pictured) after nouchg in the line above, so that it ends in "nouchg ". Do not press Return yet.
Double-click the Trash icon in the Dock to reveal the contents of the Trash. If necessary, arrange the Finder window so that a portion of the Terminal window is still visible.
Press the Command-A key combination to select all files in the Trash.
Drag the files from the Trash to the Terminal window.
Note: This automatically enters the pathname for each file. This eliminates the need to individually empty multiple Trash directories, particularly when multiple disks or volumes are present.
Press Return. No special text message will be shown indicating that the command was successful.
Empty the Trash.
If the Trash does not empty or if you see a message in Terminal that says "usage: chflags [-R [-H | -L | -P]] flags file..." you most likely did not type the text in step 2 as indicated or did not leave a space. Repeat the steps if this happens.

[CS2][JS] How to scale all inline images to 70%

To all the script gurus out there. can you help me make a script that scale all inline images to 70%? 'coz we got this client and they supply us with lots of eps files then the instruction would be to reduce the size of all images without touching the original ones. it takes time to process all of them in indesign manually.
help please.

Thank you so much guys. I'll try it later. Although I have one more problem. I got this LabelGraphics script from Indesignsecret.com modified for CS2 (originally from CS3), and it works fine for displayed figures but for inline it only labels the figures in first page.
here's the code:
//LabelGraphics.jsx
main();
//=============================================================\\
function main(){
if(app.documents.length != 0){
if(app.documents.item(0).allGraphics.length != 0){
myDisplayDialog();
else{
alert("Document contains no graphics.");
else{
alert("Please open a document and try again.");
//=============================================================\\
function myDisplayDialog(){
var myLabelWidth = 100;
var myStyleNames = myGetParagraphStyleNames();
var myDialog = app.dialogs.add({name:"Graphics name"});
with(myDialog.dialogColumns.add()){
//Label type
with(dialogRows.add()){
with(dialogColumns.add()){
staticTexts.add({staticLabel:"Label Type", minWidth:myLabelWidth});
with(dialogColumns.add()){
var myLabelTypeDropdown = dropdowns.add({stringList:["File name", "File path", "XMP description", "XMP author","Paste from clipboard"], selectedIndex:0});
with(dialogRows.add()){
with(dialogColumns.add()){
staticTexts.add({staticLabel:"Label Offset", minWidth:myLabelWidth});
with(dialogColumns.add()){
var myLabelOffsetField = measurementEditboxes.add({editValue:0});
//Style to apply
with(dialogRows.add()){
with(dialogColumns.add()){
staticTexts.add({staticLabel:"Label Style", minWidth:myLabelWidth});
with(dialogColumns.add()){
var myLabelStyleDropdown = dropdowns.add({stringList:myStyleNames, selectedIndex:4});
//=============================================================\\
var myResult = myDialog.show();
if(myResult == true){
var myLabelType = myLabelTypeDropdown.selectedIndex;
var myLabelHeight = 24; // A generic label height that will be adjusted later
myPasteFailure = false;
var myLabelOffset = myLabelOffsetField.editValue;
var myLabelStyle = myStyleNames[myLabelStyleDropdown.selectedIndex];
myDialog.destroy();
var myOldXUnits = app.documents.item(0).viewPreferences.horizontalMeasurementUnits;
var myOldYUnits = app.documents.item(0).viewPreferences.verticalMeasurementUnits;
app.documents.item(0).viewPreferences.horizontalMeasurementUnits = MeasurementUnits.points;
app.documents.item(0).viewPreferences.verticalMeasurementUnits = MeasurementUnits.points;
try{
myAddLabels(myLabelType, myLabelHeight, myLabelOffset, myLabelStyle);
catch(e){
alert("Unable to add lables. " + e);
try{
resizeOverset() ;
catch(e){
alert("Unable to correct overset text. " + e);
if (myPasteFailure == true){
alert("Unable to paste from clipboard.");
app.documents.item(0).viewPreferences.horizontalMeasurementUnits = myOldXUnits;
app.documents.item(0).viewPreferences.verticalMeasurementUnits = myOldYUnits;
else{
myDialog.destroy();
//=============================================================\\
function myAddLabels(myLabelType, myLabelHeight, myLabelOffset, myLabelStyleName){
var myDocument = app.documents.item(0);
myStoriesArray = new Array();
if (app.selection.length == 0) // If nothing is selected apply caption to all graphics in the document
var myConfirmation = confirm("Add captions to all images in the document?", false, "LabelGraphics.jsx" );
if (myConfirmation == true)
var myGraphics = myDocument.allGraphics;
else
{ // If graphics are selected, just add captions to the selected items, as long as they are rectangles(image frames)
var myConfirmation = true;
var mySelections = app.selection;
myGraphics = new Array();
for(i = 0; i < mySelections.length; i++){
if(mySelections[i] == "[object Rectangle]"){ //Check to make sure selection only includes rectangles
myGraphics.push(mySelections[i].allGraphics[0]);
else{
//alert("Objects other than graphics were selected!");
//Nothing happens if you don't select at least one graphic
myLabelStyle = myDocument.paragraphStyles.item(myLabelStyleName);
if (myConfirmation == true){
for(var myCounter = 0; myCounter < myGraphics.length; myCounter++){
try{
myAddLabel(myDocument, myGraphics[myCounter], myLabelType, myLabelHeight, myLabelOffset, myLabelStyle, myStoriesArray);
catch(e){};
//=============================================================\\
function myAddLabel(myDocument, myGraphic, myLabelType, myLabelHeight, myLabelOffset, myLabelStyle, myStoriesArray){
var myLabel;
var myLink = myGraphic.itemLink;
var myPasteFromClipboard = false;
//Create the label layer if it does not already exist.
var myLabelLayer = myDocument.layers.item("Grapiks");
try{
myLabelLayer.name;
catch (myError){
myLabelLayer = myDocument.layers.add({name:"Grapiks"});
//Label type defines the text that goes in the label.
switch(myLabelType){
//File name
case 0:
myLabel = myLink.name;
break;
//File path
case 1:
myLabel = myLink.filePath;
break;
//XMP description
case 2:
try{
myLabel = myLink.linkXmp.description;
catch(myError){
myLabel = "No description available.";
break;
//XMP author
case 3:
try{
myLabel = myLink.linkXmp.author
catch(myError){
myLabel = "No author available.";
break;
//Paste from the clipboard
case 4:
try{
myPasteFromClipboard = true;
catch(myError){
myLabel = "No clipboard data available.";
break;
var myFrame = myGraphic.parent;
myX1 = myFrame.geometricBounds[1];
myY1 = myFrame.geometricBounds[2] + myLabelOffset;
myX2 = myFrame.geometricBounds[3];
myY2 = myY1 + myLabelHeight;
if (myPasteFromClipboard ==true)
try{
var myTextFrame = myFrame.parent.textFrames.add(myLabelLayer, undefined, undefined,{geometricBounds:[myY1, myX1, myY2, myX2]});
myTextFrame.insertionPoints.item(0).select();
app.paste();
catch(e){
myTextFrame.remove();
myPasteFailure = true;
else{
var myTextFrame = myFrame.parent.textFrames.add(myLabelLayer, undefined, undefined,{geometricBounds:[myY1, myX1, myY2, myX2], contents:myLabel});
myTextFrame.textFramePreferences.firstBaselineOffset = FirstBaseline.leadingOffset;
myTextFrame.paragraphs.item(0).appliedParagraphStyle = myLabelStyle;
myFrameParentStory = myTextFrame.parentStory;
myStoriesArray.push(myFrameParentStory);
//=============================================================\\
function myGetParagraphStyleNames(){
var myStyleNames = app.documents.item(0).paragraphStyles.everyItem().name;
return myStyleNames;
function resizeOverset() {
for (var j = myStoriesArray.length - 1; j >= 0; j--) {
myLastFrame = myStoriesArray[j].texts[0].parentTextFrames[myStoriesArray[j].texts[0].parentTextFrames.l ength - 1];
myNewY2 = myLastFrame.geometricBounds[3]; //get the width of the text frame before doing fit()
myLastFrame.fit(FitOptions.FRAME_TO_CONTENT);
myNewY1 = myLastFrame.geometricBounds[1];
myNewX1 = myLastFrame.geometricBounds[2];
myNewX2 = myLastFrame.geometricBounds[0];

Remove ALL Images from PDF Export?

I'd like to remove ALL images from a PDF export (Indesign CS6), with the intention of having the smallest file size possible for review. All the images are Photoshop PSDs.
I have created a PDF Preset (PDF 1.7) that omits EPS, PDF and Bitmap.
That covers any PSDs that contain opaque backgrounds, i.e. are considered to be non-transparent. However, any PSDs that do NOT contain such backgrounds still appear in the exported PDF. I assume they are NOT considered to be Bitmaps?!?
I've gone for maximal compression of images (in the Preset) also just to see how small I can get the file, but it's still over a meg, and I'd really like even smaller. I live in a rural part of England where net access is painfully slow, and even a few meg of data takes far too long to upload, not to mention the constant drop-outs. Consider further that my document is likely to grow by several orders of magnitude and hopefully you can see why I'd like to sort this issue out as soon as possible.
I've not done any scripting but assume it would be trivial to hide images with a script. However, I'm not sure how such a script might know how to make visible only the images that were previously hidden by the script. Obviously I would not wish to unhide images that must stay hidden. Maybe some form of image/object tagging, if that's even possible in this product, i.e. tag them "temp hide" on first pass of the script, and so forth.
Any suggestions much appreciated.
Regards,
James

@James – to mark the container frames of the nonprinting images by a fill color, you could add the following lines of code in the for loop:
allGraphicsArray[n].nonprinting = true;
//The parent of the graphic is the container that holds it.
//We could use it to fill it with a tint of e.g. 20% of black:
allGraphicsArray[n].parent.fillColor = "Black";
allGraphicsArray[n].parent.fillTint = 20;
But this approach will add a new problem for images, that only use a portion of the holding graphic frame. Or are only partly visible due to a clipping path or a clipping mask or totally transparent areas due to transparent pixels.
Already colored backgrounds will be recolored…
@Sandee – I see the advantage of the PostScript to Distiller way in this situation, but there are two disadvantages:
1. Live transparency will be flattened (could be no issue in this use case, but you never know).
2. The gray area with the big X will be applied also to parts of the images where no pixels are present (transparent pixels in PhotoShop or TIFF files).
To work around all these issues we need a more complex script that is building a path object around the transparent parts of an image or using an applied clipping path for that purpose and fill that with a gray tint (and maybe with an X).
Here some screen shots to illustrate the problems (with or without using PostScript/Distiller):
1. Original set up:
One placed PhotoShop file with transparency stacked upon the text frame.
The image inside its holding frame is selected.
The visibility of one of its layers depicting a second chair on the left side is switched off.
2. The same setup in a different view:
3. After running the script with the two additional lines of code:
Using the PostScript method would do nearly the same plus adding a cross using the area of the selected image.
Uwe

How can you create a paragraph style that removes all spaces and forces everything to lower case?

Hi,
Is there anyway of using GREP (or some other magical wizardry) to create a paragraph style that automatically removes all spaces and forces words into lower case?
Strange request i know....I'm wanting to use it for datamerged email addresses.
Thanks

so doing it through InDesign is a work around I'm exploring.
Excel has the 'LOWER' function and the ability to record macros for a quick find/replace on the spaces - so that's definitely a good option if it can't be solved purely in InDesign.
You can change case via scripting in InDesign. This AppleScript (OSX only) will set the case of the selected paragraph style to lower. It would be possible to add some code that would strip spaces as well:
tell application "Adobe InDesign CS6"
    activate
        set StyleList to name of every paragraph style of active document
    set myDialog to make dialog with properties {name:"Document Paragraph Styles"}
    tell myDialog
        tell (make dialog column)
            tell (make border panel)
                tell (make dialog column)
                    make static text with properties {static label:"Choose a Style", min width:150}
                end tell
                tell (make dialog column)
                    set myPresetsDropdown to make dropdown with properties {string list:StyleList, selected index:0, min width:150}
                end tell
            end tell
        end tell
    end tell
    set myResult to show myDialog
    if myResult = true then
        --+1 gets the correct name because list starts at 0
        set myStyle to item ((selected index of myPresetsDropdown) + 1) of StyleList
    else
        return
    end if
    destroy myDialog
    tell active document
        set myStyle to paragraph style myStyle
        repeat with j from 1 to (count stories)
            repeat with i from 1 to (count paragraphs in story j)
                if applied paragraph style of paragraph i of story j is myStyle then
                    --defines a variable to replace the generic this_text parameter in the handler
                    set SCText to the contents of paragraph i of story j
                    set contents of paragraph i of story j to my change_case_of(SCText)
                end if
            end repeat
        end repeat
    end tell
end tell
on change_case_of(this_text)
    set the_comparison_string to "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    set the_source_string to "abcdefghijklmnopqrstuvwxyz"
    set the_new_text to ""
    repeat with thisChar in this_text
        set x to the offset of thisChar in the_comparison_string
        if x is not 0 then
            set the_new_text to (the_new_text & character x of the_source_string) as string
        else
            set the_new_text to (the_new_text & thisChar) as string
        end if
    end repeat
    return the_new_text
end change_case_of

Indesign: remove all inline empty frames script?

Similar Messages

Maybe you are looking for