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

流星光輝

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

カレンダー
07 | 2017/08 | 09
- - 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ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。