今日は、長体・平体スクリプトを公開します。
横組で15倍のフレームを作ります。
文字列は「●もじもじ…もじもじ…もじもじ…●」
で●を除く「もじもじ…もじもじ…もじもじ…」を選択し、
以下のスクリプトを実行。
'---------------------------------------------------------------
'どんな文字列も１行に収めるスクリプト
'長体です。0.5％きざみで動きます。
Set MyInDesign = CreateObject("InDesign.Application.CS")
With MyInDesign
While .Selection(1).Paragraphs(1).Lines.Count > 1
.Selection(1).HorizontalScale = .Selection(1).HorizontalScale - 0.5
Wend
End With
Set MyInDesign = Nothing
'---------------------------------------------------------------

選択している文字列に0.5％ずつ長体を減らして、
１行になったらループを抜けて終了という状態です。
縦組なら以下のスクリプトを使って下さい。
'---------------------------------------------------------------
'どんな文字列も１行に収めるスクリプト
'長体です。0.5％きざみで動きます。
Set MyInDesign = CreateObject("InDesign.Application.CS")
With MyInDesign
While .Selection(1).Lines.Count > 1
.Selection(1).VerticalScale = .Selection(1).VerticalScale - 0.5
Wend
End With
Set MyInDesign = Nothing
'---------------------------------------------------------------