Multi-Frame Operations

[Guy_Smiley@adobeforums.com]

I have ten identical text frames lined up vertically. I would like to
rotate each one 45 degrees in a single operation. If I select all of
them--either with the regular or direct selection tool--and rotate, the
group rotates as a whole.

I know that I could pile the frames up on top of one another, rotate
them, and then redistribute them, but I'm wondering if there is any
direct general way to do this?

[Bob_Levine]

Sounds like a job for a script.

Bob

[Stu_Bloom@adobeforums.com]

Actually a fairly simple script:




Sub RotateTextFrames()
Dim objInDesign As InDesign.Application
Dim objDoc As InDesign.Document
Dim objTF As InDesign.TextFrame

Set objInDesign = CreateObject("InDesign.Application")
Set objDoc = objInDesign.ActiveDocument
For Each objTF In objDoc.Selection
objTF.Rotate 45
Next objTF

End Sub






If you wanted to get fancier:




Sub RotateTextFrames()
Dim objInDesign As InDesign.Application
Dim objDoc As InDesign.Document
Dim sAngle As String
Dim objTF As InDesign.TextFrame

Set objInDesign = CreateObject("InDesign.Application")
Set objDoc = objInDesign.ActiveDocument
sAngle = InputBox("Enter the angle to rotate")
If IsNumeric(sAngle) Then
For Each objTF In objDoc.Selection
objTF.Rotate CDbl(sAngle)
Next objTF
End If
End Sub






If you have VB6, you could compile this and install it as a script in ID. Otherwise, you could run it as a macro from any MSOffice app.

If you have more than 256 text frames in your selection, you'd have to modify it to work around the ID scripting interface's inane limitation of 256 items in a For Each loop.