読者です 読者をやめる 読者になる 読者になる

k_ikiの雑記帳

DTPのこと、創作のことなど、思いつくまま

流星さんに書いていただいたスクリプト

私が借りた掲示板ではひとつのレスに書き込める行数に制限があったため、こちらに記録。
下記スクリプトは単体では動作しない。
詳しくは上のリンク先を参照いただくとして、記録用Scriptとペアで使うためのもの。

''クリッピングパス情報の復活用Script
'----------------------------------------
'ClippingPathNameUndo.vbs
'----------------------------------------
delimiterStr = "〓"
Dim MyInDesign 'As InDesign.Application
Set MyInDesign = CreateObject("InDesign.Application.CS3_J")
With MyInDesign
For LC = 1 To .ActiveDocument.Links.Count
Set D = .ActiveDocument.Links(LC)
D.Parent.ImageIOPreferences.ApplyPhotoshopClippingPath = True
PSDINFO = Split(D.Label, delimiterStr)
UB = UBound(PSDINFO)
For Z = 1 To UB
Select Case PSDINFO(Z)
Case "リンクファイル名":
If D.Name = FN Then
StatusOK = True
End If
Case "クリッピングパス":
If StatusOK = Ture Then
CPS = PSDINFO(Z + 1)
D.Parent.ClippingPath.AppliedPathName = CPS
End If
Case Else
End Select
StatusOK = False
Next 'Z
Next 'LC
End With
Set MyInDesign = Nothing
MSGBOX "クリッピングパスの情報に復元しました。"
'----------------------------------------