FC2カウンター
ブログ内検索
プロフィール

流星光輝

Author:流星光輝
InDesignを仕事で使っています。
まんどい作業をScriptで解決すべく
精進の日々を過ごしております。

カレンダー
09 | 2017/10 | 11
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31 - - - -

スポンサーサイト
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
スポンサー広告  

長体・平体スクリプト
今日は、長体・平体スクリプトを公開します。
横組で15倍のフレームを作ります。
文字列は「●もじもじ…もじもじ…もじもじ…●」
で●を除く「もじもじ…もじもじ…もじもじ…」を選択し、
以下のスクリプトを実行。
'---------------------------------------------------------------
'どんな文字列も1行に収めるスクリプト
'長体です。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%ずつ長体を減らして、
1行になったらループを抜けて終了という状態です。
縦組なら以下のスクリプトを使って下さい。
'---------------------------------------------------------------
'どんな文字列も1行に収めるスクリプト
'長体です。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
'---------------------------------------------------------------
InDesign Scripting TB(0) CM(0) 

New LogTop LogOld Log

COMMENT


PREV PAGE   TOP   NEXT PAGE

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。