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ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
スポンサー広告  

スクリプトから選択させるためには…

昨日から実験していたScriptからSelectさせる実験
14行目の数値を変更すると、別の線幅を処理することが出来ます。
DSW = 0.35 を DSW = 0.75 とかにすれば、0.75ptの線幅のページアイテムを選択することが出来ます。
でも1ptのモノは注意してください。不具合があると思います。
ちなみにアクティブスプレッドを対象にしていますので、処理前に対象のスプレッドに移動しておいて下さい。
※追記 ScriptはVBS形式で保存して使用して下さい。


'---------------------------------------------------------------
'指定した線幅のアイテムを選択するScript
Dim MyInDesign ' As InDesign.Application
Set MyInDesign = CreateObject("InDesign.Application.CS")
'デスクトップで使用するときはコメントアウト(Rem)を解除して下さい。
Rem Const idPoints = 2054188905 ' (&H7A706F69)
Rem Const idAddTo = 1633969202 ' (&H61646432)
'Withコーディングで高速化
With MyInDesign
  'ドキュメントの線幅単位を変更する前に記録します。
  PPP = .ActiveDocument.ViewPreferences.LineMeasurementUnits
  'ドキュメントの線幅単位を「ポイント」に設定します。
  .ActiveDocument.ViewPreferences.LineMeasurementUnits = idPoints
  '探したい線幅をptで指定します。
  DSW = 0.35  '現在はオモテケイを設定しています。
  For ActPgItmCnt = 1 To .ActiveWindow.ActivePage.PageItems.Count
    '線幅の取得
    SW = .ActiveWindow.ActivePage.PageItems(ActPgItmCnt).StrokeWeight
    '線幅チェック
    If SW = DSW Then
      '同じ線幅の場合には選択範囲に追加します。
      .Select .ActiveWindow.ActivePage.PageItems(ActPgItmCnt), idAddTo
    End If
  Next 'ActPgItmCnt
  '記録しておいた線幅単位を元に戻します。
  .ActiveDocument.ViewPreferences.LineMeasurementUnits = PPP
End With
Set MyInDesign = Nothing 'オブジェクトの解放処理です。
'---------------------------------------------------------------

InDesign Scripting TB(0) CM(0) 

New LogTop LogOld Log

COMMENT


PREV PAGE   TOP   NEXT PAGE

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